From 9ce96dc04549beea2ff773db682499949676c7a6 Mon Sep 17 00:00:00 2001
From: averissimo <averissimo@users.noreply.github.com>
Date: Tue, 27 Feb 2024 11:20:36 +0000
Subject: [PATCH] deploy: 08730aaf0ae680bed9c19c21c5ef1f3eaab18a9a

---
 main/coverage-report/index.html | 71032 +++++++++++++++---------------
 1 file changed, 35852 insertions(+), 35180 deletions(-)

diff --git a/main/coverage-report/index.html b/main/coverage-report/index.html
index cc295e129..7ade8b204 100644
--- a/main/coverage-report/index.html
+++ b/main/coverage-report/index.html
@@ -94,7 +94,7 @@
   font-size: 11px;
 }</style>
   <div class="col-md-8 col-md-offset-2">
-    <h2>teal.modules.general coverage - 2.27%</h2>
+    <h2>teal.modules.general coverage - 2.25%</h2>
     <div class="tabbable">
       <ul class="nav nav-tabs" data-tabsetid="covr">
         <li class="active">
@@ -106,19 +106,19 @@ <h2>teal.modules.general coverage - 2.27%</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-5b0a5aa91ee3b831b408" style="width:100%;height:500px;"></div>
-          <script type="application/json" data-for="htmlwidget-5b0a5aa91ee3b831b408">{"x":{"filter":"none","vertical":false,"fillContainer":false,"data":[["<a href=\"#\">R/tm_missing_data.R<\/a>","<a href=\"#\">R/tm_g_distribution.R<\/a>","<a href=\"#\">R/tm_outliers.R<\/a>","<a href=\"#\">R/tm_a_pca.R<\/a>","<a href=\"#\">R/tm_g_scatterplot.R<\/a>","<a href=\"#\">R/tm_a_regression.R<\/a>","<a href=\"#\">R/tm_g_response.R<\/a>","<a href=\"#\">R/tm_g_association.R<\/a>","<a href=\"#\">R/tm_t_crosstable.R<\/a>","<a href=\"#\">R/tm_data_table.R<\/a>","<a href=\"#\">R/tm_file_viewer.R<\/a>","<a href=\"#\">R/utils.R<\/a>","<a href=\"#\">R/zzz.R<\/a>","<a href=\"#\">R/tm_variable_browser.R<\/a>","<a href=\"#\">R/tm_g_scatterplotmatrix.R<\/a>","<a href=\"#\">R/tm_front_page.R<\/a>","<a href=\"#\">R/tm_g_bivariate.R<\/a>"],[1281,1272,1239,1061,1047,944,555,522,427,318,245,301,5,1331,530,228,1066],[818,805,748,640,564,543,283,266,197,136,128,83,1,668,225,101,541],[0,0,0,0,0,0,0,0,0,0,0,0,0,5,17,9,135],[818,805,748,640,564,543,283,266,197,136,128,83,1,663,208,92,406],["0","0","0","0","0","0","0","0","0","0","0","0","0","0","0","0","4"],["0.00%","0.00%","0.00%","0.00%","0.00%","0.00%","0.00%","0.00%","0.00%","0.00%","0.00%","0.00%","0.00%","0.75%","7.56%","8.91%","24.95%"]],"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-2f4add9a30e1e4623d98" style="width:100%;height:500px;"></div>
+          <script type="application/json" data-for="htmlwidget-2f4add9a30e1e4623d98">{"x":{"filter":"none","vertical":false,"fillContainer":false,"data":[["<a href=\"#\">R/tm_missing_data.R<\/a>","<a href=\"#\">R/tm_g_distribution.R<\/a>","<a href=\"#\">R/tm_outliers.R<\/a>","<a href=\"#\">R/tm_a_pca.R<\/a>","<a href=\"#\">R/tm_a_regression.R<\/a>","<a href=\"#\">R/tm_g_scatterplot.R<\/a>","<a href=\"#\">R/tm_g_response.R<\/a>","<a href=\"#\">R/tm_g_association.R<\/a>","<a href=\"#\">R/tm_t_crosstable.R<\/a>","<a href=\"#\">R/tm_data_table.R<\/a>","<a href=\"#\">R/tm_file_viewer.R<\/a>","<a href=\"#\">R/utils.R<\/a>","<a href=\"#\">R/zzz.R<\/a>","<a href=\"#\">R/tm_variable_browser.R<\/a>","<a href=\"#\">R/tm_g_scatterplotmatrix.R<\/a>","<a href=\"#\">R/tm_front_page.R<\/a>","<a href=\"#\">R/tm_g_bivariate.R<\/a>"],[1281,1272,1239,1061,1040,1047,555,522,427,318,245,301,5,1331,530,228,1066],[818,805,748,640,596,564,283,266,197,136,128,83,1,668,225,101,541],[0,0,0,0,0,0,0,0,0,0,0,0,0,5,17,9,135],[818,805,748,640,596,564,283,266,197,136,128,83,1,663,208,92,406],["0","0","0","0","0","0","0","0","0","0","0","0","0","0","0","0","4"],["0.00%","0.00%","0.00%","0.00%","0.00%","0.00%","0.00%","0.00%","0.00%","0.00%","0.00%","0.00%","0.00%","0.75%","7.56%","8.91%","24.95%"]],"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/tm_file_viewer.R" class="hidden">
+            <div id="R/tm_outliers.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">#' File Viewer Teal Module</pre>
+                      <pre class="language-r">#' Outliers Module</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -132,63 +132,63 @@ <h2>teal.modules.general coverage - 2.27%</h2>
                     <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The file viewer module provides a tool to view static files.</pre>
+                      <pre class="language-r">#' Module to analyze and identify outliers using different methods</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Supported formats include text formats, \code{PDF}, \code{PNG}, \code{APNG},</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">#' \code{JPEG}, \code{SVG}, \code{WEBP}, \code{GIF} and \code{BMP}.</pre>
+                      <pre class="language-r">#' @inheritParams teal::module</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">#' @inheritParams shared_params</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::module</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">#' @inheritParams shared_params</pre>
+                      <pre class="language-r">#' @param outlier_var (`data_extract_spec` or `list` of multiple `data_extract_spec`)</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 input_path optional, (`list`) of the input paths to either: specific files of accepted formats,</pre>
+                      <pre class="language-r">#'  variable to consider for the outliers analysis.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   a directory or a URL. The paths can be specified as absolute paths or relative to the running</pre>
+                      <pre class="language-r">#' @param categorical_var (`data_extract_spec` or `list` of multiple `data_extract_spec`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   directory of the application. Will default to current working directory if not supplied.</pre>
+                      <pre class="language-r">#'   categorical factor to split the selected outlier variables on.</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -202,86572 +202,87244 @@ <h2>teal.modules.general coverage - 2.27%</h2>
                     <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' @templateVar ggnames "Boxplot","Density Plot","Cumulative Distribution Plot"</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">#' @template ggplot2_args_multi</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">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' data &lt;- teal_data()</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">#' data &lt;- within(data, {</pre>
+                      <pre class="language-r">#' # general data example</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 &lt;- data.frame(1)</pre>
+                      <pre class="language-r">#' library(teal.widgets)</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">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' datanames(data) &lt;- c("data")</pre>
+                      <pre class="language-r">#' data &lt;- teal_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">#' data &lt;- within(data, {</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' app &lt;- teal::init(</pre>
+                      <pre class="language-r">#'   CO2 &lt;- CO2</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = data,</pre>
+                      <pre class="language-r">#'   CO2[["primary_key"]] &lt;- seq_len(nrow(CO2))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   modules = teal::modules(</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">#'     teal.modules.general::tm_file_viewer(</pre>
+                      <pre class="language-r">#' datanames(data) &lt;- "CO2"</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       input_path = list(</pre>
+                      <pre class="language-r">#' join_keys(data) &lt;- join_keys(join_key("CO2", "CO2", "primary_key"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         folder = system.file("sample_files", package = "teal.modules.general"),</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">#'         png = system.file("sample_files/sample_file.png", package = "teal.modules.general"),</pre>
+                      <pre class="language-r">#' vars &lt;- choices_selected(variable_choices(data[["CO2"]], c("Plant", "Type", "Treatment")))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         txt = system.file("sample_files/sample_file.txt", package = "teal.modules.general"),</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">#'         url =</pre>
+                      <pre class="language-r">#' app &lt;- init(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           "https://www.fda.gov/files/drugs/published/Portable-Document-Format-Specifications.pdf"</pre>
+                      <pre class="language-r">#'   data = data,</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">#'   modules = modules(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     )</pre>
+                      <pre class="language-r">#'     tm_outliers(</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>
+                      <pre class="language-r">#'       outlier_var = list(</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">#'         data_extract_spec(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' if (interactive()) {</pre>
+                      <pre class="language-r">#'           dataname = "CO2",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   shinyApp(app$ui, app$server)</pre>
+                      <pre class="language-r">#'           select = select_spec(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">#'             label = "Select variable:",</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">#'             choices = variable_choices(data[["CO2"]], c("conc", "uptake")),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">tm_file_viewer &lt;- function(label = "File Viewer Module",</pre>
+                      <pre class="language-r">#'             selected = "uptake",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           input_path = list("Current Working Directory" = ".")) {</pre>
+                      <pre class="language-r">#'             multiple = FALSE,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">42</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  logger::log_info("Initializing tm_file_viewer")</pre>
+                      <pre class="language-r">#'             fixed = FALSE</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">43</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (length(label) == 0 || identical(label, "")) {</pre>
+                      <pre class="language-r">#'           )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">44</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    label &lt;- " "</pre>
+                      <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">  }</pre>
+                      <pre class="language-r">#'       ),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">46</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (length(input_path) == 0 || identical(input_path, "")) {</pre>
+                      <pre class="language-r">#'       categorical_var = list(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">47</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    input_path &lt;- list()</pre>
+                      <pre class="language-r">#'         data_extract_spec(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'           dataname = "CO2",</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">#'           filter = filter_spec(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">50</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(label)</pre>
+                      <pre class="language-r">#'             vars = vars,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">51</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert(</pre>
+                      <pre class="language-r">#'             choices = value_choices(data[["CO2"]], vars$selected),</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">    checkmate::check_list(input_path, types = "character", min.len = 0),</pre>
+                      <pre class="language-r">#'             selected = value_choices(data[["CO2"]], vars$selected),</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">    checkmate::check_character(input_path, min.len = 1)</pre>
+                      <pre class="language-r">#'             multiple = TRUE</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>
+                      <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>
+                      <pre class="language-r">#'         )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">56</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (length(input_path) &gt; 0) {</pre>
+                      <pre class="language-r">#'       ),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">57</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    valid_url &lt;- function(url_input, timeout = 2) {</pre>
+                      <pre class="language-r">#'       ggplot2_args = list(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">58</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      con &lt;- try(url(url_input), silent = TRUE)</pre>
+                      <pre class="language-r">#'         ggplot2_args(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">59</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      check &lt;- suppressWarnings(try(open.connection(con, open = "rt", timeout = timeout), silent = TRUE)[1])</pre>
+                      <pre class="language-r">#'           labs = list(subtitle = "Plot generated by Outliers Module")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">60</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      try(close.connection(con), silent = TRUE)</pre>
+                      <pre class="language-r">#'         )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">61</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ifelse(is.null(check), TRUE, FALSE)</pre>
+                      <pre class="language-r">#'       )</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="missed">
+                  <tr class="never">
                     <td class="num">63</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    idx &lt;- vapply(input_path, function(x) file.exists(x) || valid_url(x), logical(1))</pre>
+                      <pre class="language-r">#'   )</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">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">65</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (!all(idx)) {</pre>
+                      <pre class="language-r">#' if (interactive()) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">66</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      warning(</pre>
+                      <pre class="language-r">#'   shinyApp(app$ui, app$server)</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">        paste0(</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">68</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "Non-existent file or url path. Please provide valid paths for:\n",</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">          paste0(input_path[!idx], collapse = "\n")</pre>
+                      <pre class="language-r">#' # CDISC data example</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">#' library(teal.widgets)</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">#' data &lt;- teal_data()</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">73</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    input_path &lt;- input_path[idx]</pre>
+                      <pre class="language-r">#' data &lt;- within(data, {</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">74</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">#'   ADSL &lt;- rADSL</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">75</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    warning(</pre>
+                      <pre class="language-r">#' })</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">76</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "No file or url paths were provided."</pre>
+                      <pre class="language-r">#' datanames(data) &lt;- "ADSL"</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">77</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#' join_keys(data) &lt;- default_cdisc_join_keys[datanames(data)]</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <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">79</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' fact_vars_adsl &lt;- names(Filter(isTRUE, sapply(data[["ADSL"]], is.factor)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">80</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' vars &lt;- choices_selected(variable_choices(data[["ADSL"]], fact_vars_adsl))</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">  args &lt;- as.list(environment())</pre>
+                      <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>
+                      <pre class="language-r">#' app &lt;- init(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">83</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  module(</pre>
+                      <pre class="language-r">#'   data = data,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">84</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    label = label,</pre>
+                      <pre class="language-r">#'   modules = modules(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">85</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    server = srv_viewer,</pre>
+                      <pre class="language-r">#'     tm_outliers(</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">    server_args = list(input_path = input_path),</pre>
+                      <pre class="language-r">#'       outlier_var = list(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">87</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ui = ui_viewer,</pre>
+                      <pre class="language-r">#'         data_extract_spec(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">88</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ui_args = args,</pre>
+                      <pre class="language-r">#'           dataname = "ADSL",</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">    datanames = NULL</pre>
+                      <pre class="language-r">#'           select = select_spec(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">90</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#'             label = "Select variable:",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">91</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'             choices = variable_choices(data[["ADSL"]], c("AGE", "BMRKR1")),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">92</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'             selected = "AGE",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">93</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">ui_viewer &lt;- function(id, ...) {</pre>
+                      <pre class="language-r">#'             multiple = FALSE,</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">  args &lt;- list(...)</pre>
+                      <pre class="language-r">#'             fixed = FALSE</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">  ns &lt;- NS(id)</pre>
+                      <pre class="language-r">#'           )</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="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">  shiny::tagList(</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">    include_css_files("custom"),</pre>
+                      <pre class="language-r">#'       categorical_var = list(</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">    teal.widgets::standard_layout(</pre>
+                      <pre class="language-r">#'         data_extract_spec(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">100</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      output = div(</pre>
+                      <pre class="language-r">#'           dataname = "ADSL",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">101</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        uiOutput(ns("output"))</pre>
+                      <pre class="language-r">#'           filter = filter_spec(</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">#'             vars = vars,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">103</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      encoding = div(</pre>
+                      <pre class="language-r">#'             choices = value_choices(data[["ADSL"]], vars$selected),</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">        class = "file_viewer_encoding",</pre>
+                      <pre class="language-r">#'             selected = value_choices(data[["ADSL"]], vars$selected),</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">        tags$label("Encodings", class = "text-primary"),</pre>
+                      <pre class="language-r">#'             multiple = TRUE</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">        shinyTree::shinyTree(</pre>
+                      <pre class="language-r">#'           )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">107</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ns("tree"),</pre>
+                      <pre class="language-r">#'         )</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">          dragAndDrop = FALSE,</pre>
+                      <pre class="language-r">#'       ),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">109</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          sort = FALSE,</pre>
+                      <pre class="language-r">#'       ggplot2_args = list(</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">          wholerow = TRUE,</pre>
+                      <pre class="language-r">#'         ggplot2_args(</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">          theme = "proton",</pre>
+                      <pre class="language-r">#'           labs = list(subtitle = "Plot generated by Outliers Module")</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">          multiple = FALSE</pre>
+                      <pre class="language-r">#'         )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <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">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">115</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <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="never">
                     <td class="num">117</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">118</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">119</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">srv_viewer &lt;- function(id, input_path) {</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">120</td>
-                    <td class="coverage">!</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">
+                  <tr class="never">
                     <td class="num">121</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    temp_dir &lt;- tempfile()</pre>
+                      <pre class="language-r">#' @export</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">    if (!dir.exists(temp_dir)) {</pre>
+                      <pre class="language-r">#'</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">      dir.create(temp_dir, recursive = TRUE)</pre>
+                      <pre class="language-r">tm_outliers &lt;- function(label = "Outliers Module",</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">                        outlier_var,</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">    addResourcePath(basename(temp_dir), temp_dir)</pre>
+                      <pre class="language-r">                        categorical_var = NULL,</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>
+                      <pre class="language-r">                        ggtheme = c("gray", "bw", "linedraw", "light", "dark", "minimal", "classic", "void"),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">127</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    test_path_text &lt;- function(selected_path, type) {</pre>
+                      <pre class="language-r">                        ggplot2_args = teal.widgets::ggplot2_args(),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">128</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      out &lt;- tryCatch(</pre>
+                      <pre class="language-r">                        plot_height = c(600, 200, 2000),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">129</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        expr = {</pre>
+                      <pre class="language-r">                        plot_width = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">130</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          if (type != "url") {</pre>
+                      <pre class="language-r">                        pre_output = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">131</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            selected_path &lt;- normalizePath(selected_path, winslash = "/")</pre>
+                      <pre class="language-r">                        post_output = NULL) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">132</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          }</pre>
+                      <pre class="language-r">  logger::log_info("Initializing tm_outliers")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">133</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          readLines(con = selected_path)</pre>
+                      <pre class="language-r">  if (inherits(outlier_var, "data_extract_spec")) outlier_var &lt;- list(outlier_var)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">134</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        },</pre>
+                      <pre class="language-r">  if (inherits(categorical_var, "data_extract_spec")) categorical_var &lt;- list(categorical_var)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">135</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        error = function(cond) FALSE,</pre>
+                      <pre class="language-r">  if (inherits(ggplot2_args, "ggplot2_args")) ggplot2_args &lt;- list(default = ggplot2_args)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">136</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        warning = function(cond) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">137</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          `if`(grepl("^incomplete final line found on", cond[[1]]), suppressWarnings(eval(cond[[2]])), FALSE)</pre>
+                      <pre class="language-r">  ggtheme &lt;- match.arg(ggtheme)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">138</td>
-                    <td class="coverage"></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">
+                  <tr class="missed">
                     <td class="num">139</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">  checkmate::assert_list(outlier_var, types = "data_extract_spec")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">140</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">  checkmate::assert_list(categorical_var, types = "data_extract_spec", null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">141</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  if (is.list(categorical_var)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">142</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    handle_connection_type &lt;- function(selected_path) {</pre>
+                      <pre class="language-r">    lapply(categorical_var, function(x) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">143</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      file_extension &lt;- tools::file_ext(selected_path)</pre>
+                      <pre class="language-r">      if (length(x$filter) &gt; 1L) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">144</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      file_class &lt;- suppressWarnings(file(selected_path))</pre>
+                      <pre class="language-r">        stop("tm_outliers: categorical_var data_extract_specs may only specify one filter_spec", call. = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">145</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      close(file_class)</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="missed">
+                  <tr class="never">
                     <td class="num">147</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      output_text &lt;- test_path_text(selected_path, type = class(file_class)[1])</pre>
+                      <pre class="language-r">  }</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">  plot_choices &lt;- c("Boxplot", "Density Plot", "Cumulative Distribution Plot")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">149</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (class(file_class)[1] == "url") {</pre>
+                      <pre class="language-r">  checkmate::assert_list(ggplot2_args, types = "ggplot2_args")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">150</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        list(selected_path = selected_path, output_text = output_text)</pre>
+                      <pre class="language-r">  checkmate::assert_subset(names(ggplot2_args), c("default", plot_choices))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">151</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">152</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        file.copy(normalizePath(selected_path, winslash = "/"), temp_dir)</pre>
+                      <pre class="language-r">  args &lt;- as.list(environment())</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">153</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        selected_path &lt;- file.path(basename(temp_dir), basename(selected_path))</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">154</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        list(selected_path = selected_path, output_text = output_text)</pre>
+                      <pre class="language-r">  data_extract_list &lt;- list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">155</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">    outlier_var = outlier_var,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">156</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">    categorical_var = categorical_var</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">  )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">158</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    display_file &lt;- function(selected_path) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">159</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      con_type &lt;- handle_connection_type(selected_path)</pre>
+                      <pre class="language-r">  module(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">160</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      file_extension &lt;- tools::file_ext(selected_path)</pre>
+                      <pre class="language-r">    label = label,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">161</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (file_extension %in% c("png", "apng", "jpg", "jpeg", "svg", "gif", "webp", "bmp")) {</pre>
+                      <pre class="language-r">    server = srv_outliers,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">162</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        tags$img(src = con_type$selected_path, alt = "file does not exist")</pre>
+                      <pre class="language-r">    server_args = c(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">163</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else if (file_extension == "pdf") {</pre>
+                      <pre class="language-r">      data_extract_list,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">164</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        tags$embed(</pre>
+                      <pre class="language-r">      list(plot_height = plot_height, plot_width = plot_width, ggplot2_args = ggplot2_args)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">165</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          class = "embed_pdf",</pre>
+                      <pre class="language-r">    ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">166</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          src = con_type$selected_path</pre>
+                      <pre class="language-r">    ui = ui_outliers,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">167</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">    ui_args = args,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">168</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else if (!isFALSE(con_type$output_text[1])) {</pre>
+                      <pre class="language-r">    datanames = teal.transform::get_extract_datanames(data_extract_list)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">169</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        tags$pre(paste0(con_type$output_text, collapse = "\n"))</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">170</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">171</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        tags$p("Please select a supported format.")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">172</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">ui_outliers &lt;- function(id, ...) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">173</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">  args &lt;- list(...)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">174</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">175</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tree_list &lt;- function(file_or_dir) {</pre>
+                      <pre class="language-r">  is_single_dataset_value &lt;- teal.transform::is_single_dataset(args$outlier_var, args$categorical_var)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">176</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      nested_list &lt;- lapply(file_or_dir, function(path) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">177</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        file_class &lt;- suppressWarnings(file(path))</pre>
+                      <pre class="language-r">  teal.widgets::standard_layout(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">178</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        close(file_class)</pre>
+                      <pre class="language-r">    output = teal.widgets::white_small_well(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">179</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (class(file_class)[[1]] != "url") {</pre>
+                      <pre class="language-r">      uiOutput(ns("total_outliers")),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">180</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          isdir &lt;- file.info(path)$isdir</pre>
+                      <pre class="language-r">      DT::dataTableOutput(ns("summary_table")),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">181</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          if (!isdir) {</pre>
+                      <pre class="language-r">      uiOutput(ns("total_missing")),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">182</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            structure(path, ancestry = path, sticon = "file")</pre>
+                      <pre class="language-r">      br(), hr(),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">183</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          } else {</pre>
+                      <pre class="language-r">      tabsetPanel(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">184</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            files &lt;- list.files(path, full.names = TRUE, include.dirs = TRUE)</pre>
+                      <pre class="language-r">        id = ns("tabs"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">185</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            out &lt;- lapply(files, function(x) tree_list(x))</pre>
+                      <pre class="language-r">        tabPanel(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">186</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            out &lt;- unlist(out, recursive = FALSE)</pre>
+                      <pre class="language-r">          "Boxplot",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">187</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            if (length(files) &gt; 0) names(out) &lt;- basename(files)</pre>
+                      <pre class="language-r">          teal.widgets::plot_with_settings_ui(id = ns("box_plot"))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">188</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            out</pre>
+                      <pre class="language-r">        ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">189</td>
-                    <td class="coverage"></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="never">
+                  <tr class="missed">
                     <td class="num">190</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        } else {</pre>
+                      <pre class="language-r">          "Density Plot",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">191</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          structure(path, ancestry = path, sticon = "file")</pre>
+                      <pre class="language-r">          teal.widgets::plot_with_settings_ui(id = ns("density_plot"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <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">
+                  <tr class="missed">
                     <td class="num">193</td>
-                    <td class="coverage"></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="never">
+                  <tr class="missed">
                     <td class="num">194</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          "Cumulative Distribution Plot",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">195</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      missing_labels &lt;- if (is.null(names(nested_list))) seq_along(nested_list) else which(names(nested_list) == "")</pre>
+                      <pre class="language-r">          teal.widgets::plot_with_settings_ui(id = ns("cum_density_plot"))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">196</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      names(nested_list)[missing_labels] &lt;- file_or_dir[missing_labels]</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">197</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      nested_list</pre>
+                      <pre class="language-r">      ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">198</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">      br(), hr(),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">199</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      uiOutput(ns("table_ui_wrap"))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">200</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    output$tree &lt;- shinyTree::renderTree({</pre>
+                      <pre class="language-r">    ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">201</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (length(input_path) &gt; 0) {</pre>
+                      <pre class="language-r">    encoding = div(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">202</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        tree_list(input_path)</pre>
+                      <pre class="language-r">      ### Reporter</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">203</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">      teal.reporter::simple_reporter_ui(ns("simple_reporter")),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">204</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        list("Empty Path" = NULL)</pre>
+                      <pre class="language-r">      ###</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">205</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">      tags$label("Encodings", class = "text-primary"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">206</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">      teal.transform::datanames_input(args[c("outlier_var", "categorical_var")]),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">207</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      teal.transform::data_extract_ui(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">208</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    output$output &lt;- renderUI({</pre>
+                      <pre class="language-r">        id = ns("outlier_var"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">209</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      validate(</pre>
+                      <pre class="language-r">        label = "Variable",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">210</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        need(</pre>
+                      <pre class="language-r">        data_extract_spec = args$outlier_var,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">211</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          length(shinyTree::get_selected(input$tree)) &gt; 0,</pre>
+                      <pre class="language-r">        is_single_dataset = is_single_dataset_value</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">212</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "Please select a file."</pre>
+                      <pre class="language-r">      ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">213</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">      if (!is.null(args$categorical_var)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">214</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">        teal.transform::data_extract_ui(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">215</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          id = ns("categorical_var"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">216</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      obj &lt;- shinyTree::get_selected(input$tree, format = "names")[[1]]</pre>
+                      <pre class="language-r">          label = "Categorical factor",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">217</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      repo &lt;- attr(obj, "ancestry")</pre>
+                      <pre class="language-r">          data_extract_spec = args$categorical_var,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">218</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      repo_collapsed &lt;- if (length(repo) &gt; 1) paste0(repo, collapse = "/") else repo</pre>
+                      <pre class="language-r">          is_single_dataset = is_single_dataset_value</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">      is_not_named &lt;- file.exists(file.path(c(repo_collapsed, obj[1])))[1]</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">      },</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">221</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (is_not_named) {</pre>
+                      <pre class="language-r">      conditionalPanel(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">222</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        selected_path &lt;- do.call("file.path", as.list(c(repo, obj[1])))</pre>
+                      <pre class="language-r">        condition = paste0("input['", ns("tabs"), "'] == 'Boxplot'"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">223</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">        teal.widgets::optionalSelectInput(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">224</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (length(repo) == 0) {</pre>
+                      <pre class="language-r">          inputId = ns("boxplot_alts"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">225</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          selected_path &lt;- do.call("file.path", as.list(attr(input$tree[[obj[1]]], "ancestry")))</pre>
+                      <pre class="language-r">          label = "Plot type",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">226</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        } else {</pre>
+                      <pre class="language-r">          choices = c("Box plot", "Violin plot"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">227</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          selected_path &lt;- do.call("file.path", as.list(attr(input$tree[[repo]][[obj[1]]], "ancestry")))</pre>
+                      <pre class="language-r">          selected = "Box plot",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">228</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">          multiple = FALSE</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>
+                      <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>
+                      <pre class="language-r">      ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">231</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      validate(</pre>
+                      <pre class="language-r">      shinyjs::hidden(checkboxInput(ns("split_outliers"), "Define outliers based on group splitting", value = FALSE)),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">232</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        need(</pre>
+                      <pre class="language-r">      shinyjs::hidden(checkboxInput(ns("order_by_outlier"), "Re-order categories by outliers [by %]", value = FALSE)),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">233</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          !isTRUE(file.info(selected_path)$isdir) &amp;&amp; length(selected_path) &gt; 0,</pre>
+                      <pre class="language-r">      teal.widgets::panel_group(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">234</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "Please select a single file."</pre>
+                      <pre class="language-r">        teal.widgets::panel_item(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">235</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">          title = "Method parameters",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">236</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">          collapsed = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">237</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      display_file(selected_path)</pre>
+                      <pre class="language-r">          teal.widgets::optionalSelectInput(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">238</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">            inputId = ns("method"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">239</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">            label = "Method",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">240</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    onStop(function() {</pre>
+                      <pre class="language-r">            choices = c("IQR", "Z-score", "Percentile"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">241</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      removeResourcePath(basename(temp_dir))</pre>
+                      <pre class="language-r">            selected = "IQR",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">242</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      unlink(temp_dir)</pre>
+                      <pre class="language-r">            multiple = FALSE</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">
+                  <tr class="missed">
                     <td class="num">244</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
+                      <pre class="language-r">          conditionalPanel(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">245</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">            condition =</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/tm_g_response.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">246</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Response Plots</pre>
+                      <pre class="language-r">              paste0("input['", ns("method"), "'] == 'IQR'"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">2</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">247</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @md</pre>
+                      <pre class="language-r">            sliderInput(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">3</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">248</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">              ns("iqr_slider"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">4</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">#' @inheritParams teal::module</pre>
+                      <pre class="language-r">              "Outlier range:",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">5</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">#' @inheritParams shared_params</pre>
+                      <pre class="language-r">              min = 1,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">6</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">#' @param response (`data_extract_spec` or `list` of multiple `data_extract_spec`)</pre>
+                      <pre class="language-r">              max = 5,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">7</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">#'   Which variable to use as the response. You can define one fixed column by using the</pre>
+                      <pre class="language-r">              value = 3,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">8</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">#'   setting `fixed = TRUE` inside the `select_spec`.</pre>
+                      <pre class="language-r">              step = 0.5</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">254</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  `data_extract_spec` must not allow multiple selection in this case.</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">255</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x (`data_extract_spec` or `list` of multiple `data_extract_spec`)</pre>
+                      <pre class="language-r">          ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">11</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">256</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   Which variable to use on the X-axis of the response plot. Allow the user to select multiple</pre>
+                      <pre class="language-r">          conditionalPanel(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">12</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">#'   columns from the `data` allowed in teal.</pre>
+                      <pre class="language-r">            condition =</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">13</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">#'  `data_extract_spec` must not allow multiple selection in this case.</pre>
+                      <pre class="language-r">              paste0("input['", ns("method"), "'] == 'Z-score'"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">14</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">#' @param row_facet optional, (`data_extract_spec` or `list` of multiple `data_extract_spec`)</pre>
+                      <pre class="language-r">            sliderInput(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">15</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">#'   Which data columns to use for faceting rows.</pre>
+                      <pre class="language-r">              ns("zscore_slider"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">16</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">#' @param col_facet optional, (`data_extract_spec` or `list` of multiple `data_extract_spec`)</pre>
+                      <pre class="language-r">              "Outlier range:",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">17</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">#'   Which data to use for faceting columns.</pre>
+                      <pre class="language-r">              min = 1,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">18</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">#' @param coord_flip optional, (`logical`) Whether to flip coordinates between `x` and `response`.</pre>
+                      <pre class="language-r">              max = 5,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">19</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">#' @param count_labels optional, (`logical`) Whether to show count labels.</pre>
+                      <pre class="language-r">              value = 3,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">20</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">#'   Defaults to `TRUE`.</pre>
+                      <pre class="language-r">              step = 0.5</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">266</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param freq optional, (`logical`) Whether to display frequency (`TRUE`) or density (`FALSE`).</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">267</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   Defaults to density (`FALSE`).</pre>
+                      <pre class="language-r">          ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">23</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">#'</pre>
+                      <pre class="language-r">          conditionalPanel(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">24</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">#' @note For more examples, please see the vignette "Using response plot" via</pre>
+                      <pre class="language-r">            condition =</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">25</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">270</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   \code{vignette("using-response-plot", package = "teal.modules.general")}.</pre>
+                      <pre class="language-r">              paste0("input['", ns("method"), "'] == 'Percentile'"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">26</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">#'</pre>
+                      <pre class="language-r">            sliderInput(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">27</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">#' @examples</pre>
+                      <pre class="language-r">              ns("percentile_slider"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">28</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">#' # general data example</pre>
+                      <pre class="language-r">              "Outlier range:",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">29</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">#' library(teal.widgets)</pre>
+                      <pre class="language-r">              min = 0.001,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">30</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">#'</pre>
+                      <pre class="language-r">              max = 0.5,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">31</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">#' data &lt;- teal_data()</pre>
+                      <pre class="language-r">              value = 0.01,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">32</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">277</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' data &lt;- within(data, {</pre>
+                      <pre class="language-r">              step = 0.001</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">278</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   library(nestcolor)</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">34</td>
+                    <td class="num">279</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   mtcars &lt;- mtcars</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">280</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   for (v in c("cyl", "vs", "am", "gear")) {</pre>
+                      <pre class="language-r">          uiOutput(ns("ui_outlier_help"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">36</td>
+                    <td class="num">281</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     mtcars[[v]] &lt;- as.factor(mtcars[[v]])</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</td>
+                    <td class="num">282</td>
                     <td class="coverage"></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="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">283</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' })</pre>
+                      <pre class="language-r">      teal.widgets::panel_item(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">39</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">#' datanames(data) &lt;- "mtcars"</pre>
+                      <pre class="language-r">        title = "Plot settings",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">40</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">285</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="never">
-                    <td class="num">41</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">286</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' app &lt;- init(</pre>
+                      <pre class="language-r">          inputId = ns("ggtheme"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">42</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">#'   data = data,</pre>
+                      <pre class="language-r">          label = "Theme (by ggplot):",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">43</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">#'   modules = modules(</pre>
+                      <pre class="language-r">          choices = ggplot_themes,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">44</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">#'     tm_g_response(</pre>
+                      <pre class="language-r">          selected = args$ggtheme,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">45</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">#'       label = "Response Plots",</pre>
+                      <pre class="language-r">          multiple = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">46</td>
+                    <td class="num">291</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       response = data_extract_spec(</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">47</td>
+                    <td class="num">292</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         dataname = "mtcars",</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">48</td>
+                    <td class="num">293</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         select = select_spec(</pre>
+                      <pre class="language-r">    ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">49</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">#'           label = "Select variable:",</pre>
+                      <pre class="language-r">    forms = tagList(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">50</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">#'           choices = variable_choices(data[["mtcars"]], c("cyl", "gear")),</pre>
+                      <pre class="language-r">      teal.widgets::verbatim_popup_ui(ns("warning"), "Show Warnings"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">51</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">#'           selected = "cyl",</pre>
+                      <pre class="language-r">      teal.widgets::verbatim_popup_ui(ns("rcode"), "Show R code")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">52</td>
+                    <td class="num">297</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           multiple = FALSE,</pre>
+                      <pre class="language-r">    ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">53</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">298</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           fixed = FALSE</pre>
+                      <pre class="language-r">    pre_output = args$pre_output,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">54</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">299</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         )</pre>
+                      <pre class="language-r">    post_output = args$post_output</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">55</td>
+                    <td class="num">300</td>
                     <td class="coverage"></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">301</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       x = data_extract_spec(</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">57</td>
+                    <td class="num">302</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         dataname = "mtcars",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">58</td>
+                    <td class="num">303</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         select = select_spec(</pre>
+                      <pre class="language-r">srv_outliers &lt;- function(id, data, reporter, filter_panel_api, outlier_var,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">59</td>
+                    <td class="num">304</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           label = "Select variable:",</pre>
+                      <pre class="language-r">                         categorical_var, plot_height, plot_width, ggplot2_args) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">60</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">#'           choices = variable_choices(data[["mtcars"]], c("vs", "am")),</pre>
+                      <pre class="language-r">  with_reporter &lt;- !missing(reporter) &amp;&amp; inherits(reporter, "Reporter")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">61</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">#'           selected = "vs",</pre>
+                      <pre class="language-r">  with_filter &lt;- !missing(filter_panel_api) &amp;&amp; inherits(filter_panel_api, "FilterPanelAPI")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">62</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">#'           multiple = FALSE,</pre>
+                      <pre class="language-r">  checkmate::assert_class(data, "reactive")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">63</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">#'           fixed = FALSE</pre>
+                      <pre class="language-r">  checkmate::assert_class(isolate(data()), "teal_data")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">64</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">  moduleServer(id, function(input, output, session) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">65</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">#'       ),</pre>
+                      <pre class="language-r">    vars &lt;- list(outlier_var = outlier_var, categorical_var = categorical_var)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">66</td>
+                    <td class="num">311</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       ggplot2_args = ggplot2_args(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">67</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">#'         labs = list(subtitle = "Plot generated by Response Module")</pre>
+                      <pre class="language-r">    rule_diff &lt;- function(other) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">68</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">313</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       )</pre>
+                      <pre class="language-r">      function(value) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">69</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">#'     )</pre>
+                      <pre class="language-r">        othervalue &lt;- tryCatch(selector_list()[[other]]()[["select"]], error = function(e) NULL)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">70</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">        if (!is.null(othervalue) &amp;&amp; identical(othervalue, value)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">71</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">316</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">          "`Variable` and `Categorical factor` cannot be the same"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">72</td>
+                    <td class="num">317</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">73</td>
+                    <td class="num">318</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">74</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">75</td>
+                    <td class="num">320</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</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">321</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # CDISC data example</pre>
+                      <pre class="language-r">    selector_list &lt;- teal.transform::data_extract_multiple_srv(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">77</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">#' library(teal.widgets)</pre>
+                      <pre class="language-r">      data_extract = vars,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">78</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">323</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      datasets = data,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">79</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">324</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' data &lt;- teal_data()</pre>
+                      <pre class="language-r">      select_validation_rule = list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">80</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">325</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' data &lt;- within(data, {</pre>
+                      <pre class="language-r">        outlier_var = shinyvalidate::compose_rules(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">81</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">326</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   library(nestcolor)</pre>
+                      <pre class="language-r">          shinyvalidate::sv_required("Please select a variable"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">82</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">327</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ADSL &lt;- rADSL</pre>
+                      <pre class="language-r">          rule_diff("categorical_var")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">83</td>
+                    <td class="num">328</td>
                     <td class="coverage"></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="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">329</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' datanames(data) &lt;- c("ADSL")</pre>
+                      <pre class="language-r">        categorical_var = rule_diff("outlier_var")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">85</td>
+                    <td class="num">330</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' join_keys(data) &lt;- default_cdisc_join_keys[datanames(data)]</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">86</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">87</td>
+                    <td class="num">332</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">88</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">333</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = data,</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">89</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">90</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'     tm_g_response(</pre>
+                      <pre class="language-r">    iv_r &lt;- reactive({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">91</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">334</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       label = "Response Plots",</pre>
+                      <pre class="language-r">      iv &lt;- shinyvalidate::InputValidator$new()</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">92</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">335</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       response = data_extract_spec(</pre>
+                      <pre class="language-r">      iv$add_rule("method", shinyvalidate::sv_required("Please select a method"))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">93</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">336</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         dataname = "ADSL",</pre>
+                      <pre class="language-r">      iv$add_rule("boxplot_alts", shinyvalidate::sv_required("Please select Plot Type"))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">94</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">#'         select = select_spec(</pre>
+                      <pre class="language-r">      teal.transform::compose_and_enable_validators(iv, selector_list)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">95</td>
+                    <td class="num">338</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           label = "Select variable:",</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">96</td>
+                    <td class="num">339</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           choices = variable_choices(data[["ADSL"]], c("BMRKR2", "COUNTRY")),</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">340</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           selected = "BMRKR2",</pre>
+                      <pre class="language-r">    reactive_select_input &lt;- reactive({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">98</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">#'           multiple = FALSE,</pre>
+                      <pre class="language-r">      if (is.null(selector_list()$categorical_var) || length(selector_list()$categorical_var()$select) == 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">99</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">#'           fixed = FALSE</pre>
+                      <pre class="language-r">        selector_list()[names(selector_list()) != "categorical_var"]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">100</td>
+                    <td class="num">343</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">101</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">344</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       ),</pre>
+                      <pre class="language-r">        selector_list()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">102</td>
+                    <td class="num">345</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       x = data_extract_spec(</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">103</td>
+                    <td class="num">346</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         dataname = "ADSL",</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">104</td>
+                    <td class="num">347</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         select = select_spec(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">105</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">348</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           label = "Select variable:",</pre>
+                      <pre class="language-r">    anl_merged_input &lt;- teal.transform::merge_expression_srv(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">106</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">349</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           choices = variable_choices(data[["ADSL"]], c("SEX", "RACE")),</pre>
+                      <pre class="language-r">      selector_list = reactive_select_input,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">107</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">350</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           selected = "RACE",</pre>
+                      <pre class="language-r">      datasets = data,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">108</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">351</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           multiple = FALSE,</pre>
+                      <pre class="language-r">      merge_function = "dplyr::inner_join"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">109</td>
+                    <td class="num">352</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           fixed = FALSE</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">110</td>
+                    <td class="num">353</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">111</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">#'       ),</pre>
+                      <pre class="language-r">    anl_merged_q &lt;- reactive({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">112</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">#'       ggplot2_args = ggplot2_args(</pre>
+                      <pre class="language-r">      req(anl_merged_input())</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">113</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">#'         labs = list(subtitle = "Plot generated by Response Module")</pre>
+                      <pre class="language-r">      data() %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">114</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">#'       )</pre>
+                      <pre class="language-r">        teal.code::eval_code(as.expression(anl_merged_input()$expr))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">115</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">116</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">117</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">    merged &lt;- list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">118</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">#' if (interactive()) {</pre>
+                      <pre class="language-r">      anl_input_r = anl_merged_input,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">119</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">#'   shinyApp(app$ui, app$server)</pre>
+                      <pre class="language-r">      anl_q_r = anl_merged_q</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">120</td>
+                    <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">121</td>
+                    <td class="num">364</td>
                     <td class="coverage"></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="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">365</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">    n_outlier_missing &lt;- reactive({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">123</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">      shiny::req(iv_r()$is_valid())</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">124</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">tm_g_response &lt;- function(label = "Response Plot",</pre>
+                      <pre class="language-r">      outlier_var &lt;- as.vector(merged$anl_input_r()$columns_source$outlier_var)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">125</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">                          response,</pre>
+                      <pre class="language-r">      ANL &lt;- merged$anl_q_r()[["ANL"]] # nolint: object_name.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">126</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">                          x,</pre>
+                      <pre class="language-r">      sum(is.na(ANL[[outlier_var]]))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">127</td>
+                    <td class="num">370</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          row_facet = NULL,</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">128</td>
+                    <td class="num">371</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          col_facet = NULL,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">129</td>
+                    <td class="num">372</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          coord_flip = FALSE,</pre>
+                      <pre class="language-r">    # Used to create outlier table and the dropdown with additional columns</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">130</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">                          count_labels = TRUE,</pre>
+                      <pre class="language-r">    dataname_first &lt;- isolate(teal.data::datanames(data())[[1]])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">131</td>
+                    <td class="num">374</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          rotate_xaxis_labels = FALSE,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">132</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">375</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          freq = FALSE,</pre>
+                      <pre class="language-r">    common_code_q &lt;- reactive({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">133</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">                          plot_height = c(600, 400, 5000),</pre>
+                      <pre class="language-r">      shiny::req(iv_r()$is_valid())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">134</td>
+                    <td class="num">377</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          plot_width = NULL,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">135</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">378</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          ggtheme = c("gray", "bw", "linedraw", "light", "dark", "minimal", "classic", "void"),</pre>
+                      <pre class="language-r">      ANL &lt;- merged$anl_q_r()[["ANL"]] # nolint: object_name.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">136</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">                          ggplot2_args = teal.widgets::ggplot2_args(),</pre>
+                      <pre class="language-r">      qenv &lt;- merged$anl_q_r()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">137</td>
+                    <td class="num">380</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          pre_output = NULL,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">138</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">                          post_output = NULL) {</pre>
+                      <pre class="language-r">      outlier_var &lt;- as.vector(merged$anl_input_r()$columns_source$outlier_var)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">139</td>
+                    <td class="num">382</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  logger::log_info("Initializing tm_g_response")</pre>
+                      <pre class="language-r">      categorical_var &lt;- as.vector(merged$anl_input_r()$columns_source$categorical_var)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">140</td>
+                    <td class="num">383</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (inherits(response, "data_extract_spec")) response &lt;- list(response)</pre>
+                      <pre class="language-r">      order_by_outlier &lt;- input$order_by_outlier</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">141</td>
+                    <td class="num">384</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (inherits(x, "data_extract_spec")) x &lt;- list(x)</pre>
+                      <pre class="language-r">      method &lt;- input$method</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">142</td>
+                    <td class="num">385</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (inherits(row_facet, "data_extract_spec")) row_facet &lt;- list(row_facet)</pre>
+                      <pre class="language-r">      split_outliers &lt;- input$split_outliers</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">143</td>
+                    <td class="num">386</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (inherits(col_facet, "data_extract_spec")) col_facet &lt;- list(col_facet)</pre>
+                      <pre class="language-r">      teal::validate_has_data(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">144</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">387</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(label)</pre>
+                      <pre class="language-r">        # missing values in the categorical variable may be used to form a category of its own</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">145</td>
+                    <td class="num">388</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ggtheme &lt;- match.arg(ggtheme)</pre>
+                      <pre class="language-r">        `if`(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">146</td>
+                    <td class="num">389</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(response, types = "data_extract_spec")</pre>
+                      <pre class="language-r">          length(categorical_var) == 0,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">147</td>
+                    <td class="num">390</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!all(vapply(response, function(x) !("" %in% x$select$choices), logical(1)))) {</pre>
+                      <pre class="language-r">          ANL,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">148</td>
+                    <td class="num">391</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stop("'response' should not allow empty values")</pre>
+                      <pre class="language-r">          ANL[, names(ANL) != categorical_var, drop = FALSE]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">149</td>
+                    <td class="num">392</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">150</td>
+                    <td class="num">393</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!all(vapply(response, function(x) !x$select$multiple, logical(1)))) {</pre>
+                      <pre class="language-r">        min_nrow = 10,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">151</td>
+                    <td class="num">394</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stop("'response' should not allow multiple selection")</pre>
+                      <pre class="language-r">        complete = TRUE,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">395</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        allow_inf = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">152</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="missed">
-                    <td class="num">153</td>
+                    <td class="num">397</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(x, types = "data_extract_spec")</pre>
+                      <pre class="language-r">      validate(need(is.numeric(ANL[[outlier_var]]), "`Variable` is not numeric"))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">154</td>
+                    <td class="num">398</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!all(vapply(x, function(x) !("" %in% x$select$choices), logical(1)))) {</pre>
+                      <pre class="language-r">      validate(need(length(unique(ANL[[outlier_var]])) &gt; 1, "Variable has no variation, i.e. only one unique value"))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">155</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">399</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stop("'x' should not allow empty values")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">156</td>
+                    <td class="num">400</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">      # show/hide split_outliers</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">157</td>
+                    <td class="num">401</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!all(vapply(x, function(x) !x$select$multiple, logical(1)))) {</pre>
+                      <pre class="language-r">      if (length(categorical_var) == 0) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">158</td>
+                    <td class="num">402</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stop("'x' should not allow multiple selection")</pre>
+                      <pre class="language-r">        shinyjs::hide("split_outliers")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">159</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">403</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">        if (n_outlier_missing() &gt; 0) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">160</td>
+                    <td class="num">404</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(row_facet, types = "data_extract_spec", null.ok = TRUE)</pre>
+                      <pre class="language-r">          qenv &lt;- teal.code::eval_code(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">161</td>
+                    <td class="num">405</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(col_facet, types = "data_extract_spec", null.ok = TRUE)</pre>
+                      <pre class="language-r">            qenv,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">162</td>
+                    <td class="num">406</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(coord_flip)</pre>
+                      <pre class="language-r">            substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">163</td>
+                    <td class="num">407</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(count_labels)</pre>
+                      <pre class="language-r">              expr = ANL &lt;- ANL %&gt;% dplyr::filter(!is.na(outlier_var_name)), # nolint: object_name.</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">164</td>
+                    <td class="num">408</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(rotate_xaxis_labels)</pre>
+                      <pre class="language-r">              env = list(outlier_var_name = as.name(outlier_var))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">165</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">409</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(freq)</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">166</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">410</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(plot_height, len = 3, any.missing = FALSE, finite = TRUE)</pre>
+                      <pre class="language-r">          )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">411</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">412</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">167</td>
+                    <td class="num">413</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(plot_height[1], lower = plot_height[2], upper = plot_height[3], .var.name = "plot_height")</pre>
+                      <pre class="language-r">        validate(need(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">168</td>
+                    <td class="num">414</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(plot_width, len = 3, any.missing = FALSE, null.ok = TRUE, finite = TRUE)</pre>
+                      <pre class="language-r">          is.factor(ANL[[categorical_var]]) ||</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">169</td>
+                    <td class="num">415</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(</pre>
+                      <pre class="language-r">            is.character(ANL[[categorical_var]]) ||</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">170</td>
+                    <td class="num">416</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    plot_width[1],</pre>
+                      <pre class="language-r">            is.integer(ANL[[categorical_var]]),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">171</td>
+                    <td class="num">417</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lower = plot_width[2], upper = plot_width[3], null.ok = TRUE, .var.name = "plot_width"</pre>
+                      <pre class="language-r">          "`Categorical factor` must be `factor`, `character`, or `integer`"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">172</td>
+                    <td class="num">418</td>
                     <td class="coverage"></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="num">419</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">174</td>
+                    <td class="num">420</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(ggplot2_args, "ggplot2_args")</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">        if (n_outlier_missing() &gt; 0) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">176</td>
+                    <td class="num">421</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  args &lt;- as.list(environment())</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">177</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          qenv &lt;- teal.code::eval_code(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">178</td>
+                    <td class="num">422</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  data_extract_list &lt;- list(</pre>
+                      <pre class="language-r">            qenv,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">179</td>
+                    <td class="num">423</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    response = response,</pre>
+                      <pre class="language-r">            substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">180</td>
+                    <td class="num">424</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x = x,</pre>
+                      <pre class="language-r">              expr = ANL &lt;- ANL %&gt;% dplyr::filter(!is.na(outlier_var_name)), # nolint: object_name.</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">181</td>
+                    <td class="num">425</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    row_facet = row_facet,</pre>
+                      <pre class="language-r">              env = list(outlier_var_name = as.name(outlier_var))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">182</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">426</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    col_facet = col_facet</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">183</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">184</td>
+                    <td class="num">428</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">185</td>
+                    <td class="num">429</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  module(</pre>
+                      <pre class="language-r">        shinyjs::show("split_outliers")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">186</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">430</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    label = label,</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">187</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">431</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    server = srv_g_response,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">188</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">    ui = ui_g_response,</pre>
+                      <pre class="language-r">      # slider</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">189</td>
+                    <td class="num">433</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ui_args = args,</pre>
+                      <pre class="language-r">      outlier_definition_param &lt;- if (method == "IQR") {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">190</td>
+                    <td class="num">434</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    server_args = c(</pre>
+                      <pre class="language-r">        input$iqr_slider</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">191</td>
+                    <td class="num">435</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      data_extract_list,</pre>
+                      <pre class="language-r">      } else if (method == "Z-score") {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">192</td>
+                    <td class="num">436</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      list(plot_height = plot_height, plot_width = plot_width, ggplot2_args = ggplot2_args)</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">        input$zscore_slider</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">194</td>
+                    <td class="num">437</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    datanames = teal.transform::get_extract_datanames(data_extract_list)</pre>
+                      <pre class="language-r">      } else if (method == "Percentile") {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">195</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">        input$percentile_slider</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">196</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">197</td>
+                    <td class="num">440</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">198</td>
+                    <td class="num">441</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">ui_g_response &lt;- function(id, ...) {</pre>
+                      <pre class="language-r">      # this is utils function that converts a %&gt;% NULL %&gt;% b into a %&gt;% b</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">199</td>
+                    <td class="num">442</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ns &lt;- NS(id)</pre>
+                      <pre class="language-r">      remove_pipe_null &lt;- function(x) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">200</td>
+                    <td class="num">443</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  args &lt;- list(...)</pre>
+                      <pre class="language-r">        if (length(x) == 1) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">201</td>
+                    <td class="num">444</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  is_single_dataset_value &lt;- teal.transform::is_single_dataset(args$response, args$x, args$row_facet, args$col_facet)</pre>
+                      <pre class="language-r">          return(x)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">202</td>
+                    <td class="num">445</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">203</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  teal.widgets::standard_layout(</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">204</td>
+                    <td class="num">446</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    output = teal.widgets::white_small_well(</pre>
+                      <pre class="language-r">        if (identical(x[[1]], as.name("%&gt;%")) &amp;&amp; is.null(x[[3]])) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">205</td>
+                    <td class="num">447</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.widgets::plot_with_settings_ui(id = ns("myplot"))</pre>
+                      <pre class="language-r">          return(remove_pipe_null(x[[2]]))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">206</td>
+                    <td class="num">448</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">207</td>
+                    <td class="num">449</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    encoding = div(</pre>
+                      <pre class="language-r">        return(as.call(c(x[[1]], lapply(x[-1], remove_pipe_null))))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">208</td>
+                    <td class="num">450</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ### Reporter</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">209</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">451</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.reporter::simple_reporter_ui(ns("simple_reporter")),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">210</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">452</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ###</pre>
+                      <pre class="language-r">      qenv &lt;- teal.code::eval_code(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">211</td>
+                    <td class="num">453</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      tags$label("Encodings", class = "text-primary"),</pre>
+                      <pre class="language-r">        qenv,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">212</td>
+                    <td class="num">454</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.transform::datanames_input(args[c("response", "x", "row_facet", "col_facet")]),</pre>
+                      <pre class="language-r">        substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">213</td>
+                    <td class="num">455</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.transform::data_extract_ui(</pre>
+                      <pre class="language-r">          expr = {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">214</td>
+                    <td class="num">456</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        id = ns("response"),</pre>
+                      <pre class="language-r">            ANL_OUTLIER &lt;- ANL %&gt;% # nolint: object_name.</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">215</td>
+                    <td class="num">457</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        label = "Response variable",</pre>
+                      <pre class="language-r">              group_expr %&gt;% # styler: off</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">216</td>
+                    <td class="num">458</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        data_extract_spec = args$response,</pre>
+                      <pre class="language-r">              dplyr::mutate(is_outlier = {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">217</td>
+                    <td class="num">459</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        is_single_dataset = is_single_dataset_value</pre>
+                      <pre class="language-r">                q1_q3 &lt;- stats::quantile(outlier_var_name, probs = c(0.25, 0.75))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">218</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">460</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ),</pre>
+                      <pre class="language-r">                iqr &lt;- q1_q3[2] - q1_q3[1]</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">219</td>
+                    <td class="num">461</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.transform::data_extract_ui(</pre>
+                      <pre class="language-r">                !(outlier_var_name &gt;= q1_q3[1] - 1.5 * iqr &amp; outlier_var_name &lt;= q1_q3[2] + 1.5 * iqr)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">462</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">              }) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">220</td>
+                    <td class="num">463</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        id = ns("x"),</pre>
+                      <pre class="language-r">              calculate_outliers %&gt;% # styler: off</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">221</td>
+                    <td class="num">464</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        label = "X variable",</pre>
+                      <pre class="language-r">              ungroup_expr %&gt;% # styler: off</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">222</td>
+                    <td class="num">465</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        data_extract_spec = args$x,</pre>
+                      <pre class="language-r">              dplyr::filter(is_outlier | is_outlier_selected) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">223</td>
+                    <td class="num">466</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        is_single_dataset = is_single_dataset_value</pre>
+                      <pre class="language-r">              dplyr::select(-is_outlier)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">224</td>
+                    <td class="num">467</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">225</td>
+                    <td class="num">468</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (!is.null(args$row_facet)) {</pre>
+                      <pre class="language-r">          env = list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">226</td>
+                    <td class="num">469</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        teal.transform::data_extract_ui(</pre>
+                      <pre class="language-r">            calculate_outliers = if (method == "IQR") {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">227</td>
+                    <td class="num">470</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          id = ns("row_facet"),</pre>
+                      <pre class="language-r">              substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">228</td>
+                    <td class="num">471</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          label = "Row facetting",</pre>
+                      <pre class="language-r">                expr = dplyr::mutate(is_outlier_selected = {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">229</td>
+                    <td class="num">472</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          data_extract_spec = args$row_facet,</pre>
+                      <pre class="language-r">                  q1_q3 &lt;- stats::quantile(outlier_var_name, probs = c(0.25, 0.75))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">230</td>
+                    <td class="num">473</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          is_single_dataset = is_single_dataset_value</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>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">232</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      },</pre>
+                      <pre class="language-r">                  iqr &lt;- q1_q3[2] - q1_q3[1]</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">233</td>
+                    <td class="num">474</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (!is.null(args$col_facet)) {</pre>
+                      <pre class="language-r">                  !(outlier_var_name &gt;= q1_q3[1] - outlier_definition_param * iqr &amp;</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">234</td>
+                    <td class="num">475</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        teal.transform::data_extract_ui(</pre>
+                      <pre class="language-r">                    outlier_var_name &lt;= q1_q3[2] + outlier_definition_param * iqr)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">235</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">476</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          id = ns("col_facet"),</pre>
+                      <pre class="language-r">                }),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">236</td>
+                    <td class="num">477</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          label = "Column facetting",</pre>
+                      <pre class="language-r">                env = list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">237</td>
+                    <td class="num">478</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          data_extract_spec = args$col_facet,</pre>
+                      <pre class="language-r">                  outlier_var_name = as.name(outlier_var),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">238</td>
+                    <td class="num">479</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          is_single_dataset = is_single_dataset_value</pre>
+                      <pre class="language-r">                  outlier_definition_param = outlier_definition_param</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">239</td>
+                    <td class="num">480</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">                )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">240</td>
+                    <td class="num">481</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">      shinyWidgets::radioGroupButtons(</pre>
+                      <pre class="language-r">              )</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">242</td>
+                    <td class="num">482</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        inputId = ns("freq"),</pre>
+                      <pre class="language-r">            } else if (method == "Z-score") {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">243</td>
+                    <td class="num">483</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        label = NULL,</pre>
+                      <pre class="language-r">              substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">244</td>
+                    <td class="num">484</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        choices = c("frequency", "density"),</pre>
+                      <pre class="language-r">                expr = dplyr::mutate(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">245</td>
+                    <td class="num">485</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        selected = ifelse(args$freq, "frequency", "density"),</pre>
+                      <pre class="language-r">                  is_outlier_selected = abs(outlier_var_name - mean(outlier_var_name)) /</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">246</td>
+                    <td class="num">486</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        justified = TRUE</pre>
+                      <pre class="language-r">                    stats::sd(outlier_var_name) &gt; outlier_definition_param</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">247</td>
+                    <td class="num">487</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">248</td>
+                    <td class="num">488</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.widgets::panel_group(</pre>
+                      <pre class="language-r">                env = list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">249</td>
+                    <td class="num">489</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        teal.widgets::panel_item(</pre>
+                      <pre class="language-r">                  outlier_var_name = as.name(outlier_var),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">250</td>
+                    <td class="num">490</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          title = "Plot settings",</pre>
+                      <pre class="language-r">                  outlier_definition_param = outlier_definition_param</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">251</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">491</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          checkboxInput(ns("count_labels"), "Add count labels", value = args$count_labels),</pre>
+                      <pre class="language-r">                )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">252</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">492</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          checkboxInput(ns("coord_flip"), "Swap axes", value = args$coord_flip),</pre>
+                      <pre class="language-r">              )</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">253</td>
+                    <td class="num">493</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          checkboxInput(ns("rotate_xaxis_labels"), "Rotate X axis labels", value = args$rotate_xaxis_labels),</pre>
+                      <pre class="language-r">            } else if (method == "Percentile") {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">254</td>
+                    <td class="num">494</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          selectInput(</pre>
+                      <pre class="language-r">              substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">255</td>
+                    <td class="num">495</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            inputId = ns("ggtheme"),</pre>
+                      <pre class="language-r">                expr = dplyr::mutate(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">256</td>
+                    <td class="num">496</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            label = "Theme (by ggplot):",</pre>
+                      <pre class="language-r">                  is_outlier_selected = outlier_var_name &lt; stats::quantile(outlier_var_name, outlier_definition_param) |</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">257</td>
+                    <td class="num">497</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            choices = ggplot_themes,</pre>
+                      <pre class="language-r">                    outlier_var_name &gt; stats::quantile(outlier_var_name, 1 - outlier_definition_param)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">498</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">258</td>
+                    <td class="num">499</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            selected = args$ggtheme,</pre>
+                      <pre class="language-r">                env = list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">259</td>
+                    <td class="num">500</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            multiple = FALSE</pre>
+                      <pre class="language-r">                  outlier_var_name = as.name(outlier_var),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">260</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">501</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">                  outlier_definition_param = outlier_definition_param</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">261</td>
+                    <td class="num">502</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">                )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">262</td>
+                    <td class="num">503</td>
                     <td class="coverage"></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">504</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">264</td>
+                    <td class="num">505</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    forms = tagList(</pre>
+                      <pre class="language-r">            outlier_var_name = as.name(outlier_var),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">265</td>
+                    <td class="num">506</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.widgets::verbatim_popup_ui(ns("warning"), button_label = "Show Warnings"),</pre>
+                      <pre class="language-r">            group_expr = if (isTRUE(split_outliers) &amp;&amp; length(categorical_var) != 0) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">266</td>
+                    <td class="num">507</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">              substitute(dplyr::group_by(x), list(x = as.name(categorical_var)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">267</td>
+                    <td class="num">508</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">268</td>
+                    <td class="num">509</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    pre_output = args$pre_output,</pre>
+                      <pre class="language-r">            ungroup_expr = if (isTRUE(split_outliers) &amp;&amp; length(categorical_var) != 0) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">269</td>
+                    <td class="num">510</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    post_output = args$post_output</pre>
+                      <pre class="language-r">              substitute(dplyr::ungroup())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">270</td>
+                    <td class="num">511</td>
                     <td class="coverage"></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">512</td>
                     <td class="coverage"></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">513</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        ) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">273</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">514</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">srv_g_response &lt;- function(id,</pre>
+                      <pre class="language-r">          remove_pipe_null()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">274</td>
+                    <td class="num">515</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">275</td>
+                    <td class="num">516</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           reporter,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">276</td>
+                    <td class="num">517</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           filter_panel_api,</pre>
+                      <pre class="language-r">      # ANL_OUTLIER_EXTENDED is the base table</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">277</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">518</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           response,</pre>
+                      <pre class="language-r">      qenv &lt;- teal.code::eval_code(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">278</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">519</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           x,</pre>
+                      <pre class="language-r">        qenv,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">279</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                           row_facet,</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">280</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                           col_facet,</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">281</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                           plot_height,</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">282</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                           plot_width,</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">283</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">                           ggplot2_args) {</pre>
+                      <pre class="language-r">        substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">284</td>
+                    <td class="num">521</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  with_reporter &lt;- !missing(reporter) &amp;&amp; inherits(reporter, "Reporter")</pre>
+                      <pre class="language-r">          expr = {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">285</td>
+                    <td class="num">522</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  with_filter &lt;- !missing(filter_panel_api) &amp;&amp; inherits(filter_panel_api, "FilterPanelAPI")</pre>
+                      <pre class="language-r">            ANL_OUTLIER_EXTENDED &lt;- dplyr::left_join( # nolint: object_name.</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">286</td>
+                    <td class="num">523</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(data, "reactive")</pre>
+                      <pre class="language-r">              ANL_OUTLIER,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">287</td>
+                    <td class="num">524</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">              dplyr::select(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">288</td>
+                    <td class="num">525</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">                dataname,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">289</td>
+                    <td class="num">526</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    data_extract &lt;- list(response = response, x = x, row_facet = row_facet, col_facet = col_facet)</pre>
+                      <pre class="language-r">                dplyr::setdiff(names(dataname), dplyr::setdiff(names(ANL_OUTLIER), join_keys))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">290</td>
+                    <td class="num">527</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">291</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    rule_diff &lt;- function(other) {</pre>
+                      <pre class="language-r">              ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">292</td>
+                    <td class="num">528</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      function(value) {</pre>
+                      <pre class="language-r">              by = join_keys</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">293</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">529</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (other %in% names(selector_list())) {</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">294</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">530</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          othervalue &lt;- selector_list()[[other]]()[["select"]]</pre>
+                      <pre class="language-r">          },</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">295</td>
+                    <td class="num">531</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          if (!is.null(othervalue)) {</pre>
+                      <pre class="language-r">          env = list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">296</td>
+                    <td class="num">532</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            if (identical(value, othervalue)) {</pre>
+                      <pre class="language-r">            dataname = as.name(dataname_first),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">297</td>
+                    <td class="num">533</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              "Row and column facetting variables must be different."</pre>
+                      <pre class="language-r">            join_keys = as.character(teal.data::join_keys(data())[dataname_first, dataname_first])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">298</td>
+                    <td class="num">534</td>
                     <td class="coverage"></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="num">535</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          }</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">300</td>
+                    <td class="num">536</td>
                     <td class="coverage"></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">537</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">302</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">      if (length(categorical_var) &gt; 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">303</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"></pre>
+                      <pre class="language-r">        qenv &lt;- teal.code::eval_code(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">304</td>
+                    <td class="num">540</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    selector_list &lt;- teal.transform::data_extract_multiple_srv(</pre>
+                      <pre class="language-r">          qenv,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">305</td>
+                    <td class="num">541</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      data_extract = data_extract,</pre>
+                      <pre class="language-r">          substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">306</td>
+                    <td class="num">542</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      datasets = data,</pre>
+                      <pre class="language-r">            expr = summary_table_pre &lt;- ANL_OUTLIER %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">307</td>
+                    <td class="num">543</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      select_validation_rule = list(</pre>
+                      <pre class="language-r">              dplyr::filter(is_outlier_selected) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">308</td>
+                    <td class="num">544</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        response = shinyvalidate::sv_required("Please define a column for the response variable"),</pre>
+                      <pre class="language-r">              dplyr::select(outlier_var_name, categorical_var_name) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">309</td>
+                    <td class="num">545</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        x = shinyvalidate::sv_required("Please define a column for X variable"),</pre>
+                      <pre class="language-r">              dplyr::group_by(categorical_var_name) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">310</td>
+                    <td class="num">546</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        row_facet = shinyvalidate::compose_rules(</pre>
+                      <pre class="language-r">              dplyr::summarise(n_outliers = dplyr::n()) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">311</td>
+                    <td class="num">547</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          shinyvalidate::sv_optional(),</pre>
+                      <pre class="language-r">              dplyr::right_join(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">312</td>
+                    <td class="num">548</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ~ if (length(.) &gt; 1) "There must be 1 or no row facetting variable.",</pre>
+                      <pre class="language-r">                ANL %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">313</td>
+                    <td class="num">549</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          rule_diff("col_facet")</pre>
+                      <pre class="language-r">                  dplyr::select(outlier_var_name, categorical_var_name) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">314</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">        ),</pre>
+                      <pre class="language-r">                  dplyr::group_by(categorical_var_name) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">315</td>
+                    <td class="num">551</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        col_facet = shinyvalidate::compose_rules(</pre>
+                      <pre class="language-r">                  dplyr::summarise(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">316</td>
+                    <td class="num">552</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          shinyvalidate::sv_optional(),</pre>
+                      <pre class="language-r">                    total_in_cat = dplyr::n(),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">317</td>
+                    <td class="num">553</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ~ if (length(.) &gt; 1) "There must be 1 or no column facetting variable.",</pre>
+                      <pre class="language-r">                    n_na = sum(is.na(outlier_var_name) | is.na(categorical_var_name))</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">554</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                  ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">318</td>
+                    <td class="num">555</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          rule_diff("row_facet")</pre>
+                      <pre class="language-r">                by = categorical_var</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">319</td>
+                    <td class="num">556</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">              ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">320</td>
+                    <td class="num">557</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">              # This is important as there may be categorical variables with natural orderings, e.g. AGE.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">321</td>
+                    <td class="num">558</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">              # The plots should be displayed by default in increasing order in these situations.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">322</td>
+                    <td class="num">559</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">              # dplyr::arrange will sort integer, factor, and character data types in the expected way.</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">323</td>
+                    <td class="num">560</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    iv_r &lt;- reactive({</pre>
+                      <pre class="language-r">              dplyr::arrange(categorical_var_name) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">324</td>
+                    <td class="num">561</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv &lt;- shinyvalidate::InputValidator$new()</pre>
+                      <pre class="language-r">              dplyr::mutate(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">325</td>
+                    <td class="num">562</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv$add_rule("ggtheme", shinyvalidate::sv_required("Please select a theme"))</pre>
+                      <pre class="language-r">                n_outliers = dplyr::if_else(is.na(n_outliers), 0, as.numeric(n_outliers)),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">326</td>
+                    <td class="num">563</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.transform::compose_and_enable_validators(iv, selector_list)</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>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">328</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                display_str = dplyr::if_else(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">329</td>
+                    <td class="num">564</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    anl_merged_input &lt;- teal.transform::merge_expression_srv(</pre>
+                      <pre class="language-r">                  n_outliers &gt; 0,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">330</td>
+                    <td class="num">565</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      selector_list = selector_list,</pre>
+                      <pre class="language-r">                  sprintf("%d [%.02f%%]", n_outliers, 100 * n_outliers / total_in_cat),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">331</td>
+                    <td class="num">566</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      datasets = data</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">332</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">                  "0"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">333</td>
+                    <td class="num">567</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">334</td>
+                    <td class="num">568</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    anl_merged_q &lt;- reactive({</pre>
+                      <pre class="language-r">                display_str_na = dplyr::if_else(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">335</td>
+                    <td class="num">569</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      req(anl_merged_input())</pre>
+                      <pre class="language-r">                  n_na &gt; 0,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">336</td>
+                    <td class="num">570</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      data() %&gt;%</pre>
+                      <pre class="language-r">                  sprintf("%d [%.02f%%]", n_na, 100 * n_na / total_in_cat),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">337</td>
+                    <td class="num">571</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        teal.code::eval_code(as.expression(anl_merged_input()$expr))</pre>
+                      <pre class="language-r">                  "0"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">338</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="missed">
+                    <td class="num">573</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                order = seq_along(n_outliers)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">339</td>
+                    <td class="num">574</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">340</td>
+                    <td class="num">575</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    merged &lt;- list(</pre>
+                      <pre class="language-r">            env = list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">341</td>
+                    <td class="num">576</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      anl_input_r = anl_merged_input,</pre>
+                      <pre class="language-r">              categorical_var = categorical_var,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">342</td>
+                    <td class="num">577</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      anl_q_r = anl_merged_q</pre>
+                      <pre class="language-r">              categorical_var_name = as.name(categorical_var),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">343</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">578</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">              outlier_var_name = as.name(outlier_var)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">344</td>
+                    <td class="num">579</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">345</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    output_q &lt;- reactive({</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">580</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal::validate_inputs(iv_r())</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">347</td>
+                    <td class="num">581</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">348</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">582</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      qenv &lt;- merged$anl_q_r()</pre>
+                      <pre class="language-r">        # now to handle when user chooses to order based on amount of outliers</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">349</td>
+                    <td class="num">583</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ANL &lt;- qenv[["ANL"]] # nolint: object_name.</pre>
+                      <pre class="language-r">        if (order_by_outlier) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">350</td>
+                    <td class="num">584</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      resp_var &lt;- as.vector(merged$anl_input_r()$columns_source$response)</pre>
+                      <pre class="language-r">          qenv &lt;- teal.code::eval_code(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">351</td>
+                    <td class="num">585</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      x &lt;- as.vector(merged$anl_input_r()$columns_source$x)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">352</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">            qenv,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">353</td>
+                    <td class="num">586</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      validate(need(is.factor(ANL[[resp_var]]), "Please select a factor variable as the response."))</pre>
+                      <pre class="language-r">            quote(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">354</td>
+                    <td class="num">587</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      validate(need(is.factor(ANL[[x]]), "Please select a factor variable as the X-Variable."))</pre>
+                      <pre class="language-r">              summary_table_pre &lt;- summary_table_pre %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">355</td>
+                    <td class="num">588</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal::validate_has_data(ANL, 10)</pre>
+                      <pre class="language-r">                dplyr::arrange(desc(n_outliers / total_in_cat)) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">356</td>
+                    <td class="num">589</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal::validate_has_data(ANL[, c(resp_var, x)], 10, complete = TRUE, allow_inf = FALSE)</pre>
+                      <pre class="language-r">                dplyr::mutate(order = seq_len(nrow(summary_table_pre)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">357</td>
+                    <td class="num">590</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">358</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      row_facet_name &lt;- if (length(merged$anl_input_r()$columns_source$row_facet) == 0) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">359</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        character(0)</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">360</td>
+                    <td class="num">591</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">361</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">        as.vector(merged$anl_input_r()$columns_source$row_facet)</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">362</td>
+                    <td class="num">593</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">363</td>
+                    <td class="num">594</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      col_facet_name &lt;- if (length(merged$anl_input_r()$columns_source$col_facet) == 0) {</pre>
+                      <pre class="language-r">        qenv &lt;- teal.code::eval_code(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">364</td>
+                    <td class="num">595</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        character(0)</pre>
+                      <pre class="language-r">          qenv,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">365</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">596</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">          substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">366</td>
+                    <td class="num">597</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        as.vector(merged$anl_input_r()$columns_source$col_facet)</pre>
+                      <pre class="language-r">            expr = {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">367</td>
+                    <td class="num">598</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">              # In order for geom_rug to work properly when reordering takes place inside facet_grid,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">368</td>
+                    <td class="num">599</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">              # all tables must have the column used for reording.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">369</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">      freq &lt;- input$freq == "frequency"</pre>
+                      <pre class="language-r">              # In this case, the column used for reordering is `order`.</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">370</td>
+                    <td class="num">601</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      swap_axes &lt;- input$coord_flip</pre>
+                      <pre class="language-r">              ANL_OUTLIER &lt;- dplyr::left_join( # nolint: object_name.</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">371</td>
+                    <td class="num">602</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      counts &lt;- input$count_labels</pre>
+                      <pre class="language-r">                ANL_OUTLIER,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">372</td>
+                    <td class="num">603</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      rotate_xaxis_labels &lt;- input$rotate_xaxis_labels</pre>
+                      <pre class="language-r">                summary_table_pre[, c("order", categorical_var)],</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">373</td>
+                    <td class="num">604</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ggtheme &lt;- input$ggtheme</pre>
+                      <pre class="language-r">                by = categorical_var</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">374</td>
+                    <td class="num">605</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">375</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      arg_position &lt;- if (freq) "stack" else "fill"</pre>
+                      <pre class="language-r">              )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">376</td>
+                    <td class="num">606</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">              # so that x axis of plot aligns with columns of summary table, from most outliers to least by percentage</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">377</td>
+                    <td class="num">607</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      rowf &lt;- if (length(row_facet_name) != 0) as.name(row_facet_name)</pre>
+                      <pre class="language-r">              ANL &lt;- ANL %&gt;% # nolint: object_name.</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">378</td>
+                    <td class="num">608</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      colf &lt;- if (length(col_facet_name) != 0) as.name(col_facet_name)</pre>
+                      <pre class="language-r">                dplyr::left_join(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">379</td>
+                    <td class="num">609</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      resp_cl &lt;- as.name(resp_var)</pre>
+                      <pre class="language-r">                  dplyr::select(summary_table_pre, categorical_var_name, order),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">380</td>
+                    <td class="num">610</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      x_cl &lt;- as.name(x)</pre>
+                      <pre class="language-r">                  by = categorical_var</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">381</td>
+                    <td class="num">611</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">382</td>
+                    <td class="num">612</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (swap_axes) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">383</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        qenv &lt;- teal.code::eval_code(</pre>
+                      <pre class="language-r">                dplyr::arrange(order)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">384</td>
+                    <td class="num">613</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          qenv,</pre>
+                      <pre class="language-r">              summary_table &lt;- summary_table_pre %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">385</td>
+                    <td class="num">614</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          substitute(</pre>
+                      <pre class="language-r">                dplyr::select(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">386</td>
+                    <td class="num">615</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            expr = ANL[[x]] &lt;- with(ANL, forcats::fct_rev(x_cl)), # nolint: object_name.</pre>
+                      <pre class="language-r">                  categorical_var_name,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">387</td>
+                    <td class="num">616</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            env = list(x = x, x_cl = x_cl)</pre>
+                      <pre class="language-r">                  Outliers = display_str, Missings = display_str_na, Total = total_in_cat</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">388</td>
+                    <td class="num">617</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">                ) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">389</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">618</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">                dplyr::mutate_all(as.character) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">390</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">619</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">                tidyr::pivot_longer(-categorical_var_name) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">391</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">620</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                tidyr::pivot_wider(names_from = categorical_var, values_from = value) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">392</td>
+                    <td class="num">621</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      qenv &lt;- teal.code::eval_code(</pre>
+                      <pre class="language-r">                tibble::column_to_rownames("name")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">393</td>
+                    <td class="num">622</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        qenv,</pre>
+                      <pre class="language-r">              summary_table</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">623</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            },</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">394</td>
+                    <td class="num">624</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        substitute(</pre>
+                      <pre class="language-r">            env = list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">395</td>
+                    <td class="num">625</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          expr = ANL[[resp_var]] &lt;- factor(ANL[[resp_var]]), # nolint: object_name.</pre>
+                      <pre class="language-r">              categorical_var = categorical_var,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">396</td>
+                    <td class="num">626</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          env = list(resp_var = resp_var)</pre>
+                      <pre class="language-r">              categorical_var_name = as.name(categorical_var)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">397</td>
+                    <td class="num">627</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">398</td>
+                    <td class="num">628</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ) %&gt;%</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">399</td>
+                    <td class="num">629</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # nolint start</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">400</td>
+                    <td class="num">630</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # rowf and colf will be a NULL if not set by a user</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">401</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">631</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        teal.code::eval_code(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">402</td>
+                    <td class="num">632</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          substitute(</pre>
+                      <pre class="language-r">      if (length(categorical_var) &gt; 0 &amp;&amp; nrow(qenv[["ANL_OUTLIER"]]) &gt; 0) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">403</td>
+                    <td class="num">633</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            expr = ANL2 &lt;- ANL %&gt;%</pre>
+                      <pre class="language-r">        shinyjs::show("order_by_outlier")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">404</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">634</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              dplyr::group_by_at(dplyr::vars(x_cl, resp_cl, rowf, colf)) %&gt;%</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">405</td>
+                    <td class="num">635</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              dplyr::summarise(ns = dplyr::n()) %&gt;%</pre>
+                      <pre class="language-r">        shinyjs::hide("order_by_outlier")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">406</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">636</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              dplyr::group_by_at(dplyr::vars(x_cl, rowf, colf)) %&gt;%</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">407</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">637</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              dplyr::mutate(sums = sum(ns), percent = round(ns / sums * 100, 1)),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">408</td>
+                    <td class="num">638</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            env = list(x_cl = x_cl, resp_cl = resp_cl, rowf = rowf, colf = colf)</pre>
+                      <pre class="language-r">      qenv</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">409</td>
+                    <td class="num">639</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">410</td>
+                    <td class="num">640</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ) %&gt;%</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">411</td>
+                    <td class="num">641</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        teal.code::eval_code(</pre>
+                      <pre class="language-r">    output$summary_table &lt;- DT::renderDataTable(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">412</td>
+                    <td class="num">642</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          substitute(</pre>
+                      <pre class="language-r">      expr = {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">413</td>
+                    <td class="num">643</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            expr = ANL3 &lt;- ANL %&gt;%</pre>
+                      <pre class="language-r">        if (iv_r()$is_valid()) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">414</td>
+                    <td class="num">644</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              dplyr::group_by_at(dplyr::vars(x_cl, rowf, colf)) %&gt;%</pre>
+                      <pre class="language-r">          categorical_var &lt;- as.vector(merged$anl_input_r()$columns_source$categorical_var)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">415</td>
+                    <td class="num">645</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              dplyr::summarise(ns = dplyr::n()),</pre>
+                      <pre class="language-r">          if (!is.null(categorical_var)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">416</td>
+                    <td class="num">646</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            env = list(x_cl = x_cl, rowf = rowf, colf = colf)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">417</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">418</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">419</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      # nolint end</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">420</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">            DT::datatable(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">421</td>
+                    <td class="num">647</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      plot_call &lt;- substitute(</pre>
+                      <pre class="language-r">              common_code_q()[["summary_table"]],</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">422</td>
+                    <td class="num">648</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        expr =</pre>
+                      <pre class="language-r">              options = list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">423</td>
+                    <td class="num">649</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ggplot(ANL2, aes(x = x_cl, y = ns)) +</pre>
+                      <pre class="language-r">                dom = "t",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">424</td>
+                    <td class="num">650</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            geom_bar(aes(fill = resp_cl), stat = "identity", position = arg_position),</pre>
+                      <pre class="language-r">                autoWidth = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">425</td>
+                    <td class="num">651</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        env = list(</pre>
+                      <pre class="language-r">                columnDefs = list(list(width = "200px", targets = "_all"))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">426</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">652</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          x_cl = x_cl,</pre>
+                      <pre class="language-r">              )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">427</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">653</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          resp_cl = resp_cl,</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">428</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">654</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          arg_position = arg_position</pre>
+                      <pre class="language-r">          }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">429</td>
+                    <td class="num">655</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">430</td>
+                    <td class="num">656</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">431</td>
+                    <td class="num">657</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">432</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">658</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (!freq) plot_call &lt;- substitute(plot_call + expand_limits(y = c(0, 1.1)), env = list(plot_call = plot_call))</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">433</td>
+                    <td class="num">659</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    # boxplot/violinplot # nolint commented_code</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">434</td>
+                    <td class="num">660</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (counts) {</pre>
+                      <pre class="language-r">    boxplot_q &lt;- reactive({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">435</td>
+                    <td class="num">661</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        plot_call &lt;- substitute(</pre>
+                      <pre class="language-r">      req(common_code_q())</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">436</td>
+                    <td class="num">662</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          expr = plot_call +</pre>
+                      <pre class="language-r">      ANL &lt;- common_code_q()[["ANL"]] # nolint: object_name.</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">437</td>
+                    <td class="num">663</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            geom_text(</pre>
+                      <pre class="language-r">      ANL_OUTLIER &lt;- common_code_q()[["ANL_OUTLIER"]] # nolint: object_name.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">438</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">664</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              data = ANL2,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">439</td>
+                    <td class="num">665</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              aes(label = ns, x = x_cl, y = ns, group = resp_cl),</pre>
+                      <pre class="language-r">      outlier_var &lt;- as.vector(merged$anl_input_r()$columns_source$outlier_var)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">440</td>
+                    <td class="num">666</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              col = "white",</pre>
+                      <pre class="language-r">      categorical_var &lt;- as.vector(merged$anl_input_r()$columns_source$categorical_var)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">441</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">667</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              vjust = "middle",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">442</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">668</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              hjust = "middle",</pre>
+                      <pre class="language-r">      # validation</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">443</td>
+                    <td class="num">669</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              position = position_anl2_value</pre>
+                      <pre class="language-r">      teal::validate_has_data(ANL, 1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">444</td>
+                    <td class="num">670</td>
                     <td class="coverage"></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="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      # boxplot</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">445</td>
+                    <td class="num">672</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            geom_text(</pre>
+                      <pre class="language-r">      plot_call &lt;- quote(ANL %&gt;% ggplot())</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="missed">
-                    <td class="num">446</td>
+                    <td class="num">674</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              data = ANL3, aes(label = ns, x = x_cl, y = anl3_y),</pre>
+                      <pre class="language-r">      plot_call &lt;- if (input$boxplot_alts == "Box plot") {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">447</td>
+                    <td class="num">675</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              hjust = hjust_value,</pre>
+                      <pre class="language-r">        substitute(expr = plot_call + geom_boxplot(outlier.shape = NA), env = list(plot_call = plot_call))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">448</td>
+                    <td class="num">676</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              vjust = vjust_value,</pre>
+                      <pre class="language-r">      } else if (input$boxplot_alts == "Violin plot") {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">449</td>
+                    <td class="num">677</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              position = position_anl3_value</pre>
+                      <pre class="language-r">        substitute(expr = plot_call + geom_violin(), env = list(plot_call = plot_call))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">450</td>
+                    <td class="num">678</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">451</td>
+                    <td class="num">679</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          env = list(</pre>
+                      <pre class="language-r">        NULL</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">452</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">680</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            plot_call = plot_call,</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">453</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">            x_cl = x_cl,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">454</td>
+                    <td class="num">682</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            resp_cl = resp_cl,</pre>
+                      <pre class="language-r">      plot_call &lt;- if (identical(categorical_var, character(0)) || is.null(categorical_var)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">455</td>
+                    <td class="num">683</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            hjust_value = if (swap_axes) "left" else "middle",</pre>
+                      <pre class="language-r">        inner_call &lt;- substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">456</td>
+                    <td class="num">684</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            vjust_value = if (swap_axes) "middle" else -1,</pre>
+                      <pre class="language-r">          expr = plot_call +</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">457</td>
+                    <td class="num">685</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            position_anl2_value = if (!freq) quote(position_fill(0.5)) else quote(position_stack(0.5)),</pre>
+                      <pre class="language-r">            aes(x = "Entire dataset", y = outlier_var_name) +</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">458</td>
+                    <td class="num">686</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            anl3_y = if (!freq) 1.1 else as.name("ns"),</pre>
+                      <pre class="language-r">            scale_x_discrete(),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">459</td>
+                    <td class="num">687</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            position_anl3_value = if (!freq) "fill" else "stack"</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">460</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">          env = list(plot_call = plot_call, outlier_var_name = as.name(outlier_var))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">461</td>
+                    <td class="num">688</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">462</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">689</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">        if (nrow(ANL_OUTLIER) &gt; 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">463</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">690</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">464</td>
+                    <td class="num">691</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (swap_axes) {</pre>
+                      <pre class="language-r">            expr = inner_call + geom_point(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">465</td>
+                    <td class="num">692</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        plot_call &lt;- substitute(plot_call + coord_flip(), env = list(plot_call = plot_call))</pre>
+                      <pre class="language-r">              data = ANL_OUTLIER,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">466</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">693</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">              aes(x = "Entire dataset", y = outlier_var_name, color = is_outlier_selected)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">467</td>
+                    <td class="num">694</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">468</td>
+                    <td class="num">695</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      facet_cl &lt;- facet_ggplot_call(row_facet_name, col_facet_name)</pre>
+                      <pre class="language-r">            env = list(inner_call = inner_call, outlier_var_name = as.name(outlier_var))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">469</td>
+                    <td class="num">696</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">470</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">697</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (!is.null(facet_cl)) {</pre>
+                      <pre class="language-r">        } else {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">471</td>
+                    <td class="num">698</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        plot_call &lt;- substitute(expr = plot_call + facet_cl, env = list(plot_call = plot_call, facet_cl = facet_cl))</pre>
+                      <pre class="language-r">          inner_call</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">472</td>
+                    <td class="num">699</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">473</td>
+                    <td class="num">700</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">474</td>
+                    <td class="num">701</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dev_ggplot2_args &lt;- teal.widgets::ggplot2_args(</pre>
+                      <pre class="language-r">        substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">475</td>
+                    <td class="num">702</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        labs = list(</pre>
+                      <pre class="language-r">          expr = plot_call +</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">476</td>
+                    <td class="num">703</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          x = varname_w_label(x, ANL),</pre>
+                      <pre class="language-r">            aes(y = outlier_var_name, x = reorder(categorical_var_name, order)) +</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">477</td>
+                    <td class="num">704</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          y = varname_w_label(resp_var, ANL, prefix = "Proportion of "),</pre>
+                      <pre class="language-r">            xlab(categorical_var) +</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">478</td>
+                    <td class="num">705</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          fill = varname_w_label(resp_var, ANL)</pre>
+                      <pre class="language-r">            scale_x_discrete() +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">479</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">706</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ),</pre>
+                      <pre class="language-r">            geom_point(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">480</td>
+                    <td class="num">707</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        theme = list(legend.position = "bottom")</pre>
+                      <pre class="language-r">              data = ANL_OUTLIER,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">708</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">              aes(x = as.factor(categorical_var_name), y = outlier_var_name, color = is_outlier_selected)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">481</td>
+                    <td class="num">709</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">710</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          env = list(</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">711</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            plot_call = plot_call,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">712</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            outlier_var_name = as.name(outlier_var),</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">713</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            categorical_var_name = as.name(categorical_var),</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">714</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            categorical_var = categorical_var</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">482</td>
+                    <td class="num">715</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">716</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">717</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">718</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">483</td>
+                    <td class="num">719</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (rotate_xaxis_labels) {</pre>
+                      <pre class="language-r">      dev_ggplot2_args &lt;- teal.widgets::ggplot2_args(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">484</td>
+                    <td class="num">720</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        dev_ggplot2_args$theme[["axis.text.x"]] &lt;- quote(element_text(angle = 45, hjust = 1))</pre>
+                      <pre class="language-r">        labs = list(color = "Is outlier?"),</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">721</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        theme = list(legend.position = "top")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">485</td>
+                    <td class="num">722</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">486</td>
+                    <td class="num">723</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">487</td>
+                    <td class="num">724</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">      all_ggplot2_args &lt;- teal.widgets::resolve_ggplot2_args(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">488</td>
+                    <td class="num">725</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        user_plot = ggplot2_args,</pre>
+                      <pre class="language-r">        user_plot = ggplot2_args[["Boxplot"]],</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">489</td>
+                    <td class="num">726</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        user_default = ggplot2_args$default,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">727</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">        module_plot = dev_ggplot2_args</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">490</td>
+                    <td class="num">728</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">491</td>
+                    <td class="num">729</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">492</td>
+                    <td class="num">730</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">      parsed_ggplot2_args &lt;- teal.widgets::parse_ggplot2_args(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">493</td>
+                    <td class="num">731</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">        all_ggplot2_args,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">494</td>
+                    <td class="num">732</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ggtheme = ggtheme</pre>
+                      <pre class="language-r">        ggtheme = input$ggtheme</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">495</td>
+                    <td class="num">733</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">496</td>
+                    <td class="num">734</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">497</td>
+                    <td class="num">735</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      plot_call &lt;- substitute(expr = {</pre>
+                      <pre class="language-r">      teal.code::eval_code(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">498</td>
+                    <td class="num">736</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        p &lt;- plot_call + labs + ggthemes + themes</pre>
+                      <pre class="language-r">        common_code_q(),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">499</td>
+                    <td class="num">737</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        print(p)</pre>
+                      <pre class="language-r">        substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">500</td>
+                    <td class="num">738</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }, env = list(</pre>
+                      <pre class="language-r">          expr = g &lt;- plot_call +</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">501</td>
+                    <td class="num">739</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        plot_call = plot_call,</pre>
+                      <pre class="language-r">            scale_color_manual(values = c("TRUE" = "red", "FALSE" = "black")) +</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">502</td>
+                    <td class="num">740</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        labs = parsed_ggplot2_args$labs,</pre>
+                      <pre class="language-r">            labs + ggthemes + themes,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">503</td>
+                    <td class="num">741</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        themes = parsed_ggplot2_args$theme,</pre>
+                      <pre class="language-r">          env = list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">504</td>
+                    <td class="num">742</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ggthemes = parsed_ggplot2_args$ggtheme</pre>
+                      <pre class="language-r">            plot_call = plot_call,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">505</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">743</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ))</pre>
+                      <pre class="language-r">            labs = parsed_ggplot2_args$labs,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">506</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">744</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">            ggthemes = parsed_ggplot2_args$ggtheme,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">507</td>
+                    <td class="num">745</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.code::eval_code(qenv, plot_call)</pre>
+                      <pre class="language-r">            themes = parsed_ggplot2_args$theme</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">508</td>
+                    <td class="num">746</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">509</td>
+                    <td class="num">747</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">748</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">510</td>
+                    <td class="num">749</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    plot_r &lt;- reactive(output_q()[["p"]])</pre>
+                      <pre class="language-r">        teal.code::eval_code(quote(print(g)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">511</td>
+                    <td class="num">750</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    })</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">751</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">512</td>
+                    <td class="num">752</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Insert the plot into a plot_with_settings module from teal.widgets</pre>
+                      <pre class="language-r">    # density plot</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">513</td>
+                    <td class="num">753</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    pws &lt;- teal.widgets::plot_with_settings_srv(</pre>
+                      <pre class="language-r">    density_plot_q &lt;- reactive({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">514</td>
+                    <td class="num">754</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      id = "myplot",</pre>
+                      <pre class="language-r">      ANL &lt;- common_code_q()[["ANL"]] # nolint: object_name.</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">515</td>
+                    <td class="num">755</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      plot_r = plot_r,</pre>
+                      <pre class="language-r">      ANL_OUTLIER &lt;- common_code_q()[["ANL_OUTLIER"]] # nolint: object_name.</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">756</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">516</td>
+                    <td class="num">757</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      height = plot_height,</pre>
+                      <pre class="language-r">      outlier_var &lt;- as.vector(merged$anl_input_r()$columns_source$outlier_var)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">517</td>
+                    <td class="num">758</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      width = plot_width</pre>
+                      <pre class="language-r">      categorical_var &lt;- as.vector(merged$anl_input_r()$columns_source$categorical_var)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">518</td>
+                    <td class="num">759</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">519</td>
+                    <td class="num">760</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      # validation</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">520</td>
+                    <td class="num">761</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    teal.widgets::verbatim_popup_srv(</pre>
+                      <pre class="language-r">      teal::validate_has_data(ANL, 1)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">762</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      # plot</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">521</td>
+                    <td class="num">763</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      id = "warning",</pre>
+                      <pre class="language-r">      plot_call &lt;- substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">522</td>
+                    <td class="num">764</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      verbatim_content = reactive(teal.code::get_warnings(output_q())),</pre>
+                      <pre class="language-r">        expr = ANL %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">523</td>
+                    <td class="num">765</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      title = "Warning",</pre>
+                      <pre class="language-r">          ggplot(aes(x = outlier_var_name)) +</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">524</td>
+                    <td class="num">766</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      disabled = reactive(is.null(teal.code::get_warnings(output_q())))</pre>
+                      <pre class="language-r">          geom_density() +</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">767</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          geom_rug(data = ANL_OUTLIER, aes(x = outlier_var_name, color = is_outlier_selected)) +</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">768</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          scale_color_manual(values = c("TRUE" = "red", "FALSE" = "black")),</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">769</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        env = list(outlier_var_name = as.name(outlier_var))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">525</td>
+                    <td class="num">770</td>
                     <td class="coverage"></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">771</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">527</td>
+                    <td class="num">772</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    teal.widgets::verbatim_popup_srv(</pre>
+                      <pre class="language-r">      plot_call &lt;- if (identical(categorical_var, character(0)) || is.null(categorical_var)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">528</td>
+                    <td class="num">773</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      id = "rcode",</pre>
+                      <pre class="language-r">        substitute(expr = plot_call, env = list(plot_call = plot_call))</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">774</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">529</td>
+                    <td class="num">775</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      verbatim_content = reactive(teal.code::get_code(output_q())),</pre>
+                      <pre class="language-r">        substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">530</td>
+                    <td class="num">776</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      title = "Show R Code for Response"</pre>
+                      <pre class="language-r">          expr = plot_call + facet_grid(~ reorder(categorical_var_name, order)),</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">777</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          env = list(plot_call = plot_call, categorical_var_name = as.name(categorical_var))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">531</td>
+                    <td class="num">778</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">532</td>
+                    <td class="num">779</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">533</td>
+                    <td class="num">780</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ### REPORTER</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">534</td>
+                    <td class="num">781</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (with_reporter) {</pre>
+                      <pre class="language-r">      dev_ggplot2_args &lt;- teal.widgets::ggplot2_args(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">535</td>
+                    <td class="num">782</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      card_fun &lt;- function(comment, label) {</pre>
+                      <pre class="language-r">        labs = list(color = "Is outlier?"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">536</td>
+                    <td class="num">783</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        card &lt;- teal::report_card_template(</pre>
+                      <pre class="language-r">        theme = list(legend.position = "top")</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">784</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">785</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">537</td>
+                    <td class="num">786</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          title = "Response Plot",</pre>
+                      <pre class="language-r">      all_ggplot2_args &lt;- teal.widgets::resolve_ggplot2_args(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">538</td>
+                    <td class="num">787</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          label = label,</pre>
+                      <pre class="language-r">        user_plot = ggplot2_args[["Density Plot"]],</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">539</td>
+                    <td class="num">788</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          with_filter = with_filter,</pre>
+                      <pre class="language-r">        user_default = ggplot2_args$default,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">540</td>
+                    <td class="num">789</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          filter_panel_api = filter_panel_api</pre>
+                      <pre class="language-r">        module_plot = dev_ggplot2_args</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">541</td>
+                    <td class="num">790</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">542</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">791</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        card$append_text("Plot", "header3")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">543</td>
+                    <td class="num">792</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        card$append_plot(plot_r(), dim = pws$dim())</pre>
+                      <pre class="language-r">      parsed_ggplot2_args &lt;- teal.widgets::parse_ggplot2_args(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">544</td>
+                    <td class="num">793</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (!comment == "") {</pre>
+                      <pre class="language-r">        all_ggplot2_args,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">545</td>
+                    <td class="num">794</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          card$append_text("Comment", "header3")</pre>
+                      <pre class="language-r">        ggtheme = input$ggtheme</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">546</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">795</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          card$append_text(comment)</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">547</td>
+                    <td class="num">796</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">548</td>
+                    <td class="num">797</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        card$append_src(teal.code::get_code(output_q()))</pre>
+                      <pre class="language-r">      teal.code::eval_code(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">549</td>
+                    <td class="num">798</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        card</pre>
+                      <pre class="language-r">        common_code_q(),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">550</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">799</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">        substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">551</td>
+                    <td class="num">800</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun)</pre>
+                      <pre class="language-r">          expr = g &lt;- plot_call + labs + ggthemes + themes,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">552</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">801</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">          env = list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">553</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">802</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ###</pre>
+                      <pre class="language-r">            plot_call = plot_call,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">554</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">803</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
+                      <pre class="language-r">            labs = parsed_ggplot2_args$labs,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">555</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">804</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">            themes = parsed_ggplot2_args$theme,</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/tm_outliers.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">805</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Outliers Module</pre>
+                      <pre class="language-r">            ggthemes = parsed_ggplot2_args$ggtheme</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">806</td>
                     <td class="coverage"></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">807</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Module to analyze and identify outliers using different methods</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">808</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      ) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">5</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">809</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams teal::module</pre>
+                      <pre class="language-r">        teal.code::eval_code(quote(print(g)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">810</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams shared_params</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">811</td>
                     <td class="coverage"></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">812</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param outlier_var (`data_extract_spec` or `list` of multiple `data_extract_spec`)</pre>
+                      <pre class="language-r">    # Cumulative distribution plot</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">9</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">813</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  variable to consider for the outliers analysis.</pre>
+                      <pre class="language-r">    cumulative_plot_q &lt;- reactive({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">10</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">814</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param categorical_var (`data_extract_spec` or `list` of multiple `data_extract_spec`)</pre>
+                      <pre class="language-r">      ANL &lt;- common_code_q()[["ANL"]] # nolint: object_name.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">11</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">815</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   categorical factor to split the selected outlier variables on.</pre>
+                      <pre class="language-r">      ANL_OUTLIER &lt;- common_code_q()[["ANL_OUTLIER"]] # nolint: object_name.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">816</td>
                     <td class="coverage"></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="missed">
+                    <td class="num">817</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @templateVar ggnames "Boxplot","Density Plot","Cumulative Distribution Plot"</pre>
+                      <pre class="language-r">      qenv &lt;- common_code_q()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">818</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @template ggplot2_args_multi</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">15</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">819</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      outlier_var &lt;- as.vector(merged$anl_input_r()$columns_source$outlier_var)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">16</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">820</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">      categorical_var &lt;- as.vector(merged$anl_input_r()$columns_source$categorical_var)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">821</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # general data example</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">822</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(teal.widgets)</pre>
+                      <pre class="language-r">      # validation</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">19</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">823</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      teal::validate_has_data(ANL, 1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">824</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' data &lt;- teal_data()</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">825</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' data &lt;- within(data, {</pre>
+                      <pre class="language-r">      # plot</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">22</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">826</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   CO2 &lt;- CO2</pre>
+                      <pre class="language-r">      plot_call &lt;- substitute(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">23</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">827</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   CO2[["primary_key"]] &lt;- seq_len(nrow(CO2))</pre>
+                      <pre class="language-r">        expr = ANL %&gt;% ggplot(aes(x = outlier_var_name)) +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">24</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">828</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' })</pre>
+                      <pre class="language-r">          stat_ecdf(),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">25</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">829</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' datanames(data) &lt;- "CO2"</pre>
+                      <pre class="language-r">        env = list(outlier_var_name = as.name(outlier_var))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">830</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' join_keys(data) &lt;- join_keys(join_key("CO2", "CO2", "primary_key"))</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">27</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">831</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      if (length(categorical_var) == 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">28</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">832</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' vars &lt;- choices_selected(variable_choices(data[["CO2"]], c("Plant", "Type", "Treatment")))</pre>
+                      <pre class="language-r">        qenv &lt;- teal.code::eval_code(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">29</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">833</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          qenv,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">30</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">834</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' app &lt;- init(</pre>
+                      <pre class="language-r">          substitute(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">31</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">835</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = data,</pre>
+                      <pre class="language-r">            expr = {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">32</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">836</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   modules = modules(</pre>
+                      <pre class="language-r">              ecdf_df &lt;- ANL %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">33</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">837</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     tm_outliers(</pre>
+                      <pre class="language-r">                dplyr::mutate(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">34</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">838</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       outlier_var = list(</pre>
+                      <pre class="language-r">                  y = stats::ecdf(ANL[[outlier_var]])(ANL[[outlier_var]])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</td>
+                    <td class="num">839</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         data_extract_spec(</pre>
+                      <pre class="language-r">                )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">36</td>
+                    <td class="num">840</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           dataname = "CO2",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">37</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">841</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           select = select_spec(</pre>
+                      <pre class="language-r">              outlier_points &lt;- dplyr::left_join(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">38</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">842</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'             label = "Select variable:",</pre>
+                      <pre class="language-r">                ecdf_df,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">39</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">843</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'             choices = variable_choices(data[["CO2"]], c("conc", "uptake")),</pre>
+                      <pre class="language-r">                ANL_OUTLIER,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">40</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">844</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'             selected = "uptake",</pre>
+                      <pre class="language-r">                by = dplyr::setdiff(names(ecdf_df), "y")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">845</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'             multiple = FALSE,</pre>
+                      <pre class="language-r">              ) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">42</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">846</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'             fixed = FALSE</pre>
+                      <pre class="language-r">                dplyr::filter(!is.na(is_outlier_selected))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <td class="num">847</td>
                     <td class="coverage"></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="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">848</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         )</pre>
+                      <pre class="language-r">            env = list(outlier_var = outlier_var)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">45</td>
+                    <td class="num">849</td>
                     <td class="coverage"></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">850</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       categorical_var = list(</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">47</td>
+                    <td class="num">851</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         data_extract_spec(</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">852</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           dataname = "CO2",</pre>
+                      <pre class="language-r">        qenv &lt;- teal.code::eval_code(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">49</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">853</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           filter = filter_spec(</pre>
+                      <pre class="language-r">          qenv,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">50</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">854</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'             vars = vars,</pre>
+                      <pre class="language-r">          substitute(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">51</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">855</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'             choices = value_choices(data[["CO2"]], vars$selected),</pre>
+                      <pre class="language-r">            expr = {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">52</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">856</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'             selected = value_choices(data[["CO2"]], vars$selected),</pre>
+                      <pre class="language-r">              all_categories &lt;- lapply(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">53</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">857</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'             multiple = TRUE</pre>
+                      <pre class="language-r">                unique(ANL[[categorical_var]]),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">54</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">858</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           )</pre>
+                      <pre class="language-r">                function(x) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">55</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">859</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         )</pre>
+                      <pre class="language-r">                  ANL &lt;- ANL %&gt;% dplyr::filter(get(categorical_var) == x) # nolint: object_name.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">56</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">860</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       ),</pre>
+                      <pre class="language-r">                  anl_outlier2 &lt;- ANL_OUTLIER %&gt;% dplyr::filter(get(categorical_var) == x)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">57</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">861</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       ggplot2_args = list(</pre>
+                      <pre class="language-r">                  ecdf_df &lt;- ANL %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">58</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">862</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         ggplot2_args(</pre>
+                      <pre class="language-r">                    dplyr::mutate(y = stats::ecdf(ANL[[outlier_var]])(ANL[[outlier_var]]))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">59</td>
+                    <td class="num">863</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           labs = list(subtitle = "Plot generated by Outliers Module")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">60</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">864</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         )</pre>
+                      <pre class="language-r">                  dplyr::left_join(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">61</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">865</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       )</pre>
+                      <pre class="language-r">                    ecdf_df,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">62</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">866</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     )</pre>
+                      <pre class="language-r">                    anl_outlier2,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">63</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">867</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">                    by = dplyr::setdiff(names(ecdf_df), "y")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">64</td>
+                    <td class="num">868</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">                  ) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">65</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">869</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' if (interactive()) {</pre>
+                      <pre class="language-r">                    dplyr::filter(!is.na(is_outlier_selected))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">66</td>
+                    <td class="num">870</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">67</td>
+                    <td class="num">871</td>
                     <td class="coverage"></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="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">872</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">              outlier_points &lt;- do.call(rbind, all_categories)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">69</td>
+                    <td class="num">873</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # CDISC data example</pre>
+                      <pre class="language-r">            },</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">70</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">874</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(teal.widgets)</pre>
+                      <pre class="language-r">            env = list(categorical_var = categorical_var, outlier_var = outlier_var)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">71</td>
+                    <td class="num">875</td>
                     <td class="coverage"></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">876</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' data &lt;- teal_data()</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">73</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">877</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' data &lt;- within(data, {</pre>
+                      <pre class="language-r">        plot_call &lt;- substitute(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">74</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">878</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ADSL &lt;- rADSL</pre>
+                      <pre class="language-r">          expr = plot_call + facet_grid(~ reorder(categorical_var_name, order)),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">75</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">879</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' })</pre>
+                      <pre class="language-r">          env = list(plot_call = plot_call, categorical_var_name = as.name(categorical_var))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">76</td>
+                    <td class="num">880</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' datanames(data) &lt;- "ADSL"</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">77</td>
+                    <td class="num">881</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' join_keys(data) &lt;- default_cdisc_join_keys[datanames(data)]</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">78</td>
+                    <td class="num">882</td>
                     <td class="coverage"></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="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">883</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' fact_vars_adsl &lt;- names(Filter(isTRUE, sapply(data[["ADSL"]], is.factor)))</pre>
+                      <pre class="language-r">      dev_ggplot2_args &lt;- teal.widgets::ggplot2_args(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">80</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">884</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' vars &lt;- choices_selected(variable_choices(data[["ADSL"]], fact_vars_adsl))</pre>
+                      <pre class="language-r">        labs = list(color = "Is outlier?"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">81</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">885</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        theme = list(legend.position = "top")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">82</td>
+                    <td class="num">886</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">83</td>
+                    <td class="num">887</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = data,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">84</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">888</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   modules = modules(</pre>
+                      <pre class="language-r">      all_ggplot2_args &lt;- teal.widgets::resolve_ggplot2_args(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">85</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">889</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     tm_outliers(</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">86</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'       outlier_var = list(</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">87</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'         data_extract_spec(</pre>
+                      <pre class="language-r">        user_plot = ggplot2_args[["Cumulative Distribution Plot"]],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">88</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">890</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           dataname = "ADSL",</pre>
+                      <pre class="language-r">        user_default = ggplot2_args$default,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">89</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">891</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           select = select_spec(</pre>
+                      <pre class="language-r">        module_plot = dev_ggplot2_args</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">90</td>
+                    <td class="num">892</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'             label = "Select variable:",</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">91</td>
+                    <td class="num">893</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'             choices = variable_choices(data[["ADSL"]], c("AGE", "BMRKR1")),</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">894</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'             selected = "AGE",</pre>
+                      <pre class="language-r">      parsed_ggplot2_args &lt;- teal.widgets::parse_ggplot2_args(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">93</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">895</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'             multiple = FALSE,</pre>
+                      <pre class="language-r">        all_ggplot2_args,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">94</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">896</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'             fixed = FALSE</pre>
+                      <pre class="language-r">        ggtheme = input$ggtheme</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">95</td>
+                    <td class="num">897</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           )</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">96</td>
+                    <td class="num">898</td>
                     <td class="coverage"></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">899</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       ),</pre>
+                      <pre class="language-r">      teal.code::eval_code(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">98</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">900</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       categorical_var = list(</pre>
+                      <pre class="language-r">        qenv,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">99</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">901</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         data_extract_spec(</pre>
+                      <pre class="language-r">        substitute(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">100</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">902</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           dataname = "ADSL",</pre>
+                      <pre class="language-r">          expr = g &lt;- plot_call +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">101</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">903</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           filter = filter_spec(</pre>
+                      <pre class="language-r">            geom_point(data = outlier_points, aes(x = outlier_var_name, y = y, color = is_outlier_selected)) +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">102</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">904</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'             vars = vars,</pre>
+                      <pre class="language-r">            scale_color_manual(values = c("TRUE" = "red", "FALSE" = "black")) +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">103</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">905</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'             choices = value_choices(data[["ADSL"]], vars$selected),</pre>
+                      <pre class="language-r">            labs + ggthemes + themes,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">104</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">906</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'             selected = value_choices(data[["ADSL"]], vars$selected),</pre>
+                      <pre class="language-r">          env = list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">105</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">907</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'             multiple = TRUE</pre>
+                      <pre class="language-r">            plot_call = plot_call,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">106</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">908</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           )</pre>
+                      <pre class="language-r">            outlier_var_name = as.name(outlier_var),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">107</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">909</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         )</pre>
+                      <pre class="language-r">            labs = parsed_ggplot2_args$labs,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">108</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">910</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       ),</pre>
+                      <pre class="language-r">            themes = parsed_ggplot2_args$theme,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">109</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">911</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       ggplot2_args = list(</pre>
+                      <pre class="language-r">            ggthemes = parsed_ggplot2_args$ggtheme</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">110</td>
+                    <td class="num">912</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         ggplot2_args(</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">111</td>
+                    <td class="num">913</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           labs = list(subtitle = "Plot generated by Outliers Module")</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">112</td>
+                    <td class="num">914</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         )</pre>
+                      <pre class="language-r">      ) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">113</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">915</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       )</pre>
+                      <pre class="language-r">        teal.code::eval_code(quote(print(g)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">114</td>
+                    <td class="num">916</td>
                     <td class="coverage"></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="num">917</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">116</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">918</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">    final_q &lt;- reactive({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">117</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">919</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' if (interactive()) {</pre>
+                      <pre class="language-r">      req(input$tabs)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">118</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">920</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   shinyApp(app$ui, app$server)</pre>
+                      <pre class="language-r">      tab_type &lt;- input$tabs</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">119</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">921</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">      result_q &lt;- if (tab_type == "Boxplot") {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">120</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">922</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        boxplot_q()</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">121</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">923</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">      } else if (tab_type == "Density Plot") {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">122</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">924</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        density_plot_q()</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">123</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">925</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">tm_outliers &lt;- function(label = "Outliers Module",</pre>
+                      <pre class="language-r">      } else if (tab_type == "Cumulative Distribution Plot") {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">124</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">926</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        outlier_var,</pre>
+                      <pre class="language-r">        cumulative_plot_q()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">125</td>
+                    <td class="num">927</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        categorical_var = NULL,</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">126</td>
+                    <td class="num">928</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        ggtheme = c("gray", "bw", "linedraw", "light", "dark", "minimal", "classic", "void"),</pre>
+                      <pre class="language-r">      # used to display table when running show-r-code code</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">127</td>
+                    <td class="num">929</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        ggplot2_args = teal.widgets::ggplot2_args(),</pre>
+                      <pre class="language-r">      #  added after the plots so that a change in selected columns doesn't affect</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">128</td>
+                    <td class="num">930</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        plot_height = c(600, 200, 2000),</pre>
+                      <pre class="language-r">      #  brush selection.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">129</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">931</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        plot_width = NULL,</pre>
+                      <pre class="language-r">      teal.code::eval_code(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">130</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">932</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        pre_output = NULL,</pre>
+                      <pre class="language-r">        result_q,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">131</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">933</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        post_output = NULL) {</pre>
+                      <pre class="language-r">        substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">132</td>
+                    <td class="num">934</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  logger::log_info("Initializing tm_outliers")</pre>
+                      <pre class="language-r">          expr = {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">133</td>
+                    <td class="num">935</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (inherits(outlier_var, "data_extract_spec")) outlier_var &lt;- list(outlier_var)</pre>
+                      <pre class="language-r">            columns_index &lt;- union(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">134</td>
+                    <td class="num">936</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (inherits(categorical_var, "data_extract_spec")) categorical_var &lt;- list(categorical_var)</pre>
+                      <pre class="language-r">              setdiff(names(ANL_OUTLIER), "is_outlier_selected"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">135</td>
+                    <td class="num">937</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (inherits(ggplot2_args, "ggplot2_args")) ggplot2_args &lt;- list(default = ggplot2_args)</pre>
+                      <pre class="language-r">              table_columns</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">136</td>
+                    <td class="num">938</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">137</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  ggtheme &lt;- match.arg(ggtheme)</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">138</td>
+                    <td class="num">939</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(label)</pre>
+                      <pre class="language-r">            ANL_OUTLIER_EXTENDED[ANL_OUTLIER_EXTENDED$is_outlier_selected, columns_index]</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">139</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">940</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(outlier_var, types = "data_extract_spec")</pre>
+                      <pre class="language-r">          },</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">140</td>
+                    <td class="num">941</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(categorical_var, types = "data_extract_spec", null.ok = TRUE)</pre>
+                      <pre class="language-r">          env = list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">141</td>
+                    <td class="num">942</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.list(categorical_var)) {</pre>
+                      <pre class="language-r">            table_columns = input$table_ui_columns</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">142</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">943</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lapply(categorical_var, function(x) {</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">143</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">944</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (length(x$filter) &gt; 1L) {</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">144</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">945</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        stop("tm_outliers: categorical_var data_extract_specs may only specify one filter_spec", call. = FALSE)</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">145</td>
+                    <td class="num">946</td>
                     <td class="coverage"></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">947</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">147</td>
+                    <td class="num">948</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">    # slider text</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">148</td>
+                    <td class="num">949</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  plot_choices &lt;- c("Boxplot", "Density Plot", "Cumulative Distribution Plot")</pre>
+                      <pre class="language-r">    output$ui_outlier_help &lt;- renderUI({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">149</td>
+                    <td class="num">950</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(ggplot2_args, types = "ggplot2_args")</pre>
+                      <pre class="language-r">      req(input$method)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">150</td>
+                    <td class="num">951</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_subset(names(ggplot2_args), c("default", plot_choices))</pre>
+                      <pre class="language-r">      if (input$method == "IQR") {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">151</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">952</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        req(input$iqr_slider)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">152</td>
+                    <td class="num">953</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  args &lt;- as.list(environment())</pre>
+                      <pre class="language-r">        tags$small(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">153</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">954</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          withMathJax(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">154</td>
+                    <td class="num">955</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  data_extract_list &lt;- list(</pre>
+                      <pre class="language-r">            helpText(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">155</td>
+                    <td class="num">956</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    outlier_var = outlier_var,</pre>
+                      <pre class="language-r">              "Outlier data points (\\(x \\lt Q1 - ", input$iqr_slider, "\\times IQR\\) or \\(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">156</td>
+                    <td class="num">957</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    categorical_var = categorical_var</pre>
+                      <pre class="language-r">            Q3 + ", input$iqr_slider, "\\times IQR \\lt x\\))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">157</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">958</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">            are displayed in red on the plot and can be visualized in the table below."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">158</td>
+                    <td class="num">959</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">159</td>
+                    <td class="num">960</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  module(</pre>
+                      <pre class="language-r">            if (input$split_outliers) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">160</td>
+                    <td class="num">961</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    label = label,</pre>
+                      <pre class="language-r">              withMathJax(helpText("Note: Quantiles are calculated per group."))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">161</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">962</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    server = srv_outliers,</pre>
+                      <pre class="language-r">            }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">162</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">963</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    server_args = c(</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">163</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">964</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      data_extract_list,</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">164</td>
+                    <td class="num">965</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      list(plot_height = plot_height, plot_width = plot_width, ggplot2_args = ggplot2_args)</pre>
+                      <pre class="language-r">      } else if (input$method == "Z-score") {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">165</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">966</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ),</pre>
+                      <pre class="language-r">        req(input$zscore_slider)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">166</td>
+                    <td class="num">967</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ui = ui_outliers,</pre>
+                      <pre class="language-r">        tags$small(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">167</td>
+                    <td class="num">968</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ui_args = args,</pre>
+                      <pre class="language-r">          withMathJax(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">168</td>
+                    <td class="num">969</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    datanames = teal.transform::get_extract_datanames(data_extract_list)</pre>
+                      <pre class="language-r">            helpText(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">169</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">970</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">              "Outlier data points (\\(Zscore(x) &lt; -", input$zscore_slider,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">170</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">971</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">              "\\) or \\(", input$zscore_slider, "&lt; Zscore(x) \\))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">171</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">972</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">              are displayed in red on the plot and can be visualized in the table below."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">172</td>
+                    <td class="num">973</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">ui_outliers &lt;- function(id, ...) {</pre>
+                      <pre class="language-r">            ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">173</td>
+                    <td class="num">974</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  args &lt;- list(...)</pre>
+                      <pre class="language-r">            if (input$split_outliers) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">174</td>
+                    <td class="num">975</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ns &lt;- NS(id)</pre>
+                      <pre class="language-r">              withMathJax(helpText(" Note: Z-scores are calculated per group."))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">175</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">976</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  is_single_dataset_value &lt;- teal.transform::is_single_dataset(args$outlier_var, args$categorical_var)</pre>
+                      <pre class="language-r">            }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">176</td>
+                    <td class="num">977</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">177</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">978</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  teal.widgets::standard_layout(</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">178</td>
+                    <td class="num">979</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    output = teal.widgets::white_small_well(</pre>
+                      <pre class="language-r">      } else if (input$method == "Percentile") {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">179</td>
+                    <td class="num">980</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      uiOutput(ns("total_outliers")),</pre>
+                      <pre class="language-r">        req(input$percentile_slider)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">180</td>
+                    <td class="num">981</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      DT::dataTableOutput(ns("summary_table")),</pre>
+                      <pre class="language-r">        tags$small(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">181</td>
+                    <td class="num">982</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      uiOutput(ns("total_missing")),</pre>
+                      <pre class="language-r">          withMathJax(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">182</td>
+                    <td class="num">983</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      br(), hr(),</pre>
+                      <pre class="language-r">            helpText(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">183</td>
+                    <td class="num">984</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      tabsetPanel(</pre>
+                      <pre class="language-r">              "Outlier/extreme data points (\\( Percentile(x) &lt;", input$percentile_slider,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">184</td>
+                    <td class="num">985</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        id = ns("tabs"),</pre>
+                      <pre class="language-r">              "\\) or \\(", 1 - input$percentile_slider, " &lt; Percentile(x) \\))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">185</td>
+                    <td class="num">986</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        tabPanel(</pre>
+                      <pre class="language-r">            are displayed in red on the plot and can be visualized in the table below."</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">987</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">186</td>
+                    <td class="num">988</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "Boxplot",</pre>
+                      <pre class="language-r">            if (input$split_outliers) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">187</td>
+                    <td class="num">989</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          teal.widgets::plot_with_settings_ui(id = ns("box_plot"))</pre>
+                      <pre class="language-r">              withMathJax(helpText("Note: Percentiles are calculated per group."))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">188</td>
+                    <td class="num">990</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">189</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">991</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        tabPanel(</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">190</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">992</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "Density Plot",</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">191</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">993</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          teal.widgets::plot_with_settings_ui(id = ns("density_plot"))</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">192</td>
+                    <td class="num">994</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ),</pre>
+                      <pre class="language-r">    })</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">995</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">193</td>
+                    <td class="num">996</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        tabPanel(</pre>
+                      <pre class="language-r">    boxplot_r &lt;- reactive({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">194</td>
+                    <td class="num">997</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "Cumulative Distribution Plot",</pre>
+                      <pre class="language-r">      teal::validate_inputs(iv_r())</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">195</td>
+                    <td class="num">998</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          teal.widgets::plot_with_settings_ui(id = ns("cum_density_plot"))</pre>
+                      <pre class="language-r">      boxplot_q()[["g"]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">196</td>
+                    <td class="num">999</td>
                     <td class="coverage"></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="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1000</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ),</pre>
+                      <pre class="language-r">    density_plot_r &lt;- reactive({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">198</td>
+                    <td class="num">1001</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      br(), hr(),</pre>
+                      <pre class="language-r">      teal::validate_inputs(iv_r())</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">199</td>
+                    <td class="num">1002</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      uiOutput(ns("table_ui_wrap"))</pre>
+                      <pre class="language-r">      density_plot_q()[["g"]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">200</td>
+                    <td class="num">1003</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">201</td>
+                    <td class="num">1004</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    encoding = div(</pre>
+                      <pre class="language-r">    cumulative_plot_r &lt;- reactive({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">202</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1005</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ### Reporter</pre>
+                      <pre class="language-r">      teal::validate_inputs(iv_r())</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">203</td>
+                    <td class="num">1006</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.reporter::simple_reporter_ui(ns("simple_reporter")),</pre>
+                      <pre class="language-r">      cumulative_plot_q()[["g"]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">204</td>
+                    <td class="num">1007</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">205</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1008</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      tags$label("Encodings", class = "text-primary"),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">206</td>
+                    <td class="num">1009</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.transform::datanames_input(args[c("outlier_var", "categorical_var")]),</pre>
+                      <pre class="language-r">    box_pws &lt;- teal.widgets::plot_with_settings_srv(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">207</td>
+                    <td class="num">1010</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.transform::data_extract_ui(</pre>
+                      <pre class="language-r">      id = "box_plot",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">208</td>
+                    <td class="num">1011</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        id = ns("outlier_var"),</pre>
+                      <pre class="language-r">      plot_r = boxplot_r,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">209</td>
+                    <td class="num">1012</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        label = "Variable",</pre>
+                      <pre class="language-r">      height = plot_height,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">210</td>
+                    <td class="num">1013</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        data_extract_spec = args$outlier_var,</pre>
+                      <pre class="language-r">      width = plot_width,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">211</td>
+                    <td class="num">1014</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        is_single_dataset = is_single_dataset_value</pre>
+                      <pre class="language-r">      brushing = TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">212</td>
+                    <td class="num">1015</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ),</pre>
+                      <pre class="language-r">    )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">1016</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">213</td>
+                    <td class="num">1017</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (!is.null(args$categorical_var)) {</pre>
+                      <pre class="language-r">    density_pws &lt;- teal.widgets::plot_with_settings_srv(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">214</td>
+                    <td class="num">1018</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        teal.transform::data_extract_ui(</pre>
+                      <pre class="language-r">      id = "density_plot",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">215</td>
+                    <td class="num">1019</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          id = ns("categorical_var"),</pre>
+                      <pre class="language-r">      plot_r = density_plot_r,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">216</td>
+                    <td class="num">1020</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          label = "Categorical factor",</pre>
+                      <pre class="language-r">      height = plot_height,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">217</td>
+                    <td class="num">1021</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          data_extract_spec = args$categorical_var,</pre>
+                      <pre class="language-r">      width = plot_width,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">218</td>
+                    <td class="num">1022</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          is_single_dataset = is_single_dataset_value</pre>
+                      <pre class="language-r">      brushing = TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">219</td>
+                    <td class="num">1023</td>
                     <td class="coverage"></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">1024</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      },</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">221</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      conditionalPanel(</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">222</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        condition = paste0("input['", ns("tabs"), "'] == 'Boxplot'"),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">223</td>
+                    <td class="num">1025</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        teal.widgets::optionalSelectInput(</pre>
+                      <pre class="language-r">    cum_density_pws &lt;- teal.widgets::plot_with_settings_srv(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">224</td>
+                    <td class="num">1026</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          inputId = ns("boxplot_alts"),</pre>
+                      <pre class="language-r">      id = "cum_density_plot",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">225</td>
+                    <td class="num">1027</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          label = "Plot type",</pre>
+                      <pre class="language-r">      plot_r = cumulative_plot_r,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">226</td>
+                    <td class="num">1028</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          choices = c("Box plot", "Violin plot"),</pre>
+                      <pre class="language-r">      height = plot_height,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">227</td>
+                    <td class="num">1029</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          selected = "Box plot",</pre>
+                      <pre class="language-r">      width = plot_width,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">228</td>
+                    <td class="num">1030</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          multiple = FALSE</pre>
+                      <pre class="language-r">      brushing = TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">229</td>
+                    <td class="num">1031</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">230</td>
+                    <td class="num">1032</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ),</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">231</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      shinyjs::hidden(checkboxInput(ns("split_outliers"), "Define outliers based on group splitting", value = FALSE)),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">232</td>
+                    <td class="num">1033</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      shinyjs::hidden(checkboxInput(ns("order_by_outlier"), "Re-order categories by outliers [by %]", value = FALSE)),</pre>
+                      <pre class="language-r">    choices &lt;- teal.transform::variable_choices(data()[[dataname_first]])</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">233</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1034</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.widgets::panel_group(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">234</td>
+                    <td class="num">1035</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        teal.widgets::panel_item(</pre>
+                      <pre class="language-r">    observeEvent(common_code_q(), {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">235</td>
+                    <td class="num">1036</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          title = "Method parameters",</pre>
+                      <pre class="language-r">      ANL_OUTLIER &lt;- common_code_q()[["ANL_OUTLIER"]] # nolint: object_name.</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">236</td>
+                    <td class="num">1037</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          collapsed = FALSE,</pre>
+                      <pre class="language-r">      teal.widgets::updateOptionalSelectInput(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">237</td>
+                    <td class="num">1038</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          teal.widgets::optionalSelectInput(</pre>
+                      <pre class="language-r">        session,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">238</td>
+                    <td class="num">1039</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            inputId = ns("method"),</pre>
+                      <pre class="language-r">        inputId = "table_ui_columns",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">239</td>
+                    <td class="num">1040</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            label = "Method",</pre>
+                      <pre class="language-r">        choices = dplyr::setdiff(choices, names(ANL_OUTLIER)),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">240</td>
+                    <td class="num">1041</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            choices = c("IQR", "Z-score", "Percentile"),</pre>
+                      <pre class="language-r">        selected = isolate(input$table_ui_columns)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">241</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1042</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            selected = "IQR",</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">242</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1043</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            multiple = FALSE</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">243</td>
+                    <td class="num">1044</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">244</td>
+                    <td class="num">1045</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          conditionalPanel(</pre>
+                      <pre class="language-r">    output$table_ui &lt;- DT::renderDataTable(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">245</td>
+                    <td class="num">1046</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            condition =</pre>
+                      <pre class="language-r">      expr = {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">246</td>
+                    <td class="num">1047</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              paste0("input['", ns("method"), "'] == 'IQR'"),</pre>
+                      <pre class="language-r">        tab &lt;- input$tabs</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">247</td>
+                    <td class="num">1048</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            sliderInput(</pre>
+                      <pre class="language-r">        req(tab) # tab is NULL upon app launch, hence will crash without this statement</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">248</td>
+                    <td class="num">1049</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              ns("iqr_slider"),</pre>
+                      <pre class="language-r">        outlier_var &lt;- as.vector(merged$anl_input_r()$columns_source$outlier_var)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">249</td>
+                    <td class="num">1050</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              "Outlier range:",</pre>
+                      <pre class="language-r">        categorical_var &lt;- as.vector(merged$anl_input_r()$columns_source$categorical_var)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">250</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1051</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              min = 1,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">251</td>
+                    <td class="num">1052</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              max = 5,</pre>
+                      <pre class="language-r">        ANL_OUTLIER &lt;- common_code_q()[["ANL_OUTLIER"]] # nolint: object_name.</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">252</td>
+                    <td class="num">1053</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              value = 3,</pre>
+                      <pre class="language-r">        ANL_OUTLIER_EXTENDED &lt;- common_code_q()[["ANL_OUTLIER_EXTENDED"]] # nolint: object_name.</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">253</td>
+                    <td class="num">1054</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              step = 0.5</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>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">255</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          ),</pre>
+                      <pre class="language-r">        ANL &lt;- common_code_q()[["ANL"]] # nolint: object_name.</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">256</td>
+                    <td class="num">1055</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          conditionalPanel(</pre>
+                      <pre class="language-r">        plot_brush &lt;- if (tab == "Boxplot") {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">257</td>
+                    <td class="num">1056</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            condition =</pre>
+                      <pre class="language-r">          boxplot_r()</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">258</td>
+                    <td class="num">1057</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              paste0("input['", ns("method"), "'] == 'Z-score'"),</pre>
+                      <pre class="language-r">          box_pws$brush()</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">259</td>
+                    <td class="num">1058</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            sliderInput(</pre>
+                      <pre class="language-r">        } else if (tab == "Density Plot") {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">260</td>
+                    <td class="num">1059</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              ns("zscore_slider"),</pre>
+                      <pre class="language-r">          density_plot_r()</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">261</td>
+                    <td class="num">1060</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              "Outlier range:",</pre>
+                      <pre class="language-r">          density_pws$brush()</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">262</td>
+                    <td class="num">1061</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              min = 1,</pre>
+                      <pre class="language-r">        } else if (tab == "Cumulative Distribution Plot") {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">263</td>
+                    <td class="num">1062</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              max = 5,</pre>
+                      <pre class="language-r">          cumulative_plot_r()</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">264</td>
+                    <td class="num">1063</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              value = 3,</pre>
+                      <pre class="language-r">          cum_density_pws$brush()</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">265</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1064</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              step = 0.5</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">266</td>
+                    <td class="num">1065</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">267</td>
+                    <td class="num">1066</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ),</pre>
+                      <pre class="language-r">        # removing unused column ASAP</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">268</td>
+                    <td class="num">1067</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          conditionalPanel(</pre>
+                      <pre class="language-r">        ANL_OUTLIER$order &lt;- ANL$order &lt;- NULL # nolint: object_name.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">269</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1068</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            condition =</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">270</td>
+                    <td class="num">1069</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              paste0("input['", ns("method"), "'] == 'Percentile'"),</pre>
+                      <pre class="language-r">        display_table &lt;- if (!is.null(plot_brush)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">271</td>
+                    <td class="num">1070</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            sliderInput(</pre>
+                      <pre class="language-r">          if (length(categorical_var) &gt; 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">272</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1071</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              ns("percentile_slider"),</pre>
+                      <pre class="language-r">            # due to reordering, the x-axis label may be changed to something like "reorder(categorical_var, order)"</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">273</td>
+                    <td class="num">1072</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              "Outlier range:",</pre>
+                      <pre class="language-r">            if (tab == "Boxplot") {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">274</td>
+                    <td class="num">1073</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              min = 0.001,</pre>
+                      <pre class="language-r">              plot_brush$mapping$x &lt;- categorical_var</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">275</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1074</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              max = 0.5,</pre>
+                      <pre class="language-r">            } else {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">276</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1075</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              value = 0.01,</pre>
+                      <pre class="language-r">              # the other plots use facetting</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">1076</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">              # so it is panelvar1 that gets relabelled to "reorder(categorical_var, order)"</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">277</td>
+                    <td class="num">1077</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              step = 0.001</pre>
+                      <pre class="language-r">              plot_brush$mapping$panelvar1 &lt;- categorical_var</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">278</td>
+                    <td class="num">1078</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">            }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">279</td>
+                    <td class="num">1079</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">280</td>
+                    <td class="num">1080</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          uiOutput(ns("ui_outlier_help"))</pre>
+                      <pre class="language-r">            if (tab == "Boxplot") {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">281</td>
+                    <td class="num">1081</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">              # in boxplot with no categorical variable, there is no column in ANL that would correspond to x-axis</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">282</td>
+                    <td class="num">1082</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ),</pre>
+                      <pre class="language-r">              # so a column needs to be inserted with the value "Entire dataset" because that's the label used in plot</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">283</td>
+                    <td class="num">1083</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.widgets::panel_item(</pre>
+                      <pre class="language-r">              ANL[[plot_brush$mapping$x]] &lt;- "Entire dataset" # nolint: object_name.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">284</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1084</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        title = "Plot settings",</pre>
+                      <pre class="language-r">            }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">285</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1085</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="missed">
-                    <td class="num">286</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1086</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          inputId = ns("ggtheme"),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">287</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1087</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          label = "Theme (by ggplot):",</pre>
+                      <pre class="language-r">          # in density and cumulative plots, ANL does not have a column corresponding to y-axis.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">288</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1088</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          choices = ggplot_themes,</pre>
+                      <pre class="language-r">          # so they need to be computed and attached to ANL</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">289</td>
+                    <td class="num">1089</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          selected = args$ggtheme,</pre>
+                      <pre class="language-r">          if (tab == "Density Plot") {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">290</td>
+                    <td class="num">1090</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          multiple = FALSE</pre>
+                      <pre class="language-r">            plot_brush$mapping$y &lt;- "density"</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">291</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1091</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">            ANL$density &lt;- plot_brush$ymin # nolint: object_name.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">292</td>
+                    <td class="num">1092</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">            # either ymin or ymax will work</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">293</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1093</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ),</pre>
+                      <pre class="language-r">          } else if (tab == "Cumulative Distribution Plot") {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">294</td>
+                    <td class="num">1094</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    forms = tagList(</pre>
+                      <pre class="language-r">            plot_brush$mapping$y &lt;- "cdf"</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">295</td>
+                    <td class="num">1095</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.widgets::verbatim_popup_ui(ns("warning"), "Show Warnings"),</pre>
+                      <pre class="language-r">            if (length(categorical_var) &gt; 0) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">296</td>
+                    <td class="num">1096</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">              ANL &lt;- ANL %&gt;% # nolint: object_name.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">297</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1097</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ),</pre>
+                      <pre class="language-r">                dplyr::group_by(!!as.name(plot_brush$mapping$panelvar1)) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">298</td>
+                    <td class="num">1098</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    pre_output = args$pre_output,</pre>
+                      <pre class="language-r">                dplyr::mutate(cdf = stats::ecdf(!!as.name(outlier_var))(!!as.name(outlier_var)))</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">1099</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            } else {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">299</td>
+                    <td class="num">1100</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    post_output = args$post_output</pre>
+                      <pre class="language-r">              ANL$cdf &lt;- stats::ecdf(ANL[[outlier_var]])(ANL[[outlier_var]]) # nolint: object_name.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">300</td>
+                    <td class="num">1101</td>
                     <td class="coverage"></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">1102</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">          }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">302</td>
+                    <td class="num">1103</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
+                  <tr class="missed">
+                    <td class="num">1104</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          brushed_rows &lt;- brushedPoints(ANL, plot_brush)</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">1105</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          if (nrow(brushed_rows) &gt; 0) {</pre>
+                    </td>
+                  </tr>
                   <tr class="never">
-                    <td class="num">303</td>
+                    <td class="num">1106</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">srv_outliers &lt;- function(id, data, reporter, filter_panel_api, outlier_var,</pre>
+                      <pre class="language-r">            # now we need to remove extra column from ANL so that it will have the same columns as ANL_OUTLIER</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">304</td>
+                    <td class="num">1107</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         categorical_var, plot_height, plot_width, ggplot2_args) {</pre>
+                      <pre class="language-r">            # so that dplyr::intersect will work</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">305</td>
+                    <td class="num">1108</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  with_reporter &lt;- !missing(reporter) &amp;&amp; inherits(reporter, "Reporter")</pre>
+                      <pre class="language-r">            if (tab == "Density Plot") {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">306</td>
+                    <td class="num">1109</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  with_filter &lt;- !missing(filter_panel_api) &amp;&amp; inherits(filter_panel_api, "FilterPanelAPI")</pre>
+                      <pre class="language-r">              brushed_rows$density &lt;- NULL</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">307</td>
+                    <td class="num">1110</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(data, "reactive")</pre>
+                      <pre class="language-r">            } else if (tab == "Cumulative Distribution Plot") {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">308</td>
+                    <td class="num">1111</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">              brushed_rows$cdf &lt;- NULL</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">309</td>
+                    <td class="num">1112</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">            } else if (tab == "Boxplot" &amp;&amp; length(categorical_var) == 0) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">310</td>
+                    <td class="num">1113</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    vars &lt;- list(outlier_var = outlier_var, categorical_var = categorical_var)</pre>
+                      <pre class="language-r">              brushed_rows[[plot_brush$mapping$x]] &lt;- NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">311</td>
+                    <td class="num">1114</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">312</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1115</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    rule_diff &lt;- function(other) {</pre>
+                      <pre class="language-r">            # is_outlier_selected is part of ANL_OUTLIER so needed here</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">313</td>
+                    <td class="num">1116</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      function(value) {</pre>
+                      <pre class="language-r">            brushed_rows$is_outlier_selected &lt;- TRUE</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">314</td>
+                    <td class="num">1117</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        othervalue &lt;- tryCatch(selector_list()[[other]]()[["select"]], error = function(e) NULL)</pre>
+                      <pre class="language-r">            dplyr::intersect(ANL_OUTLIER, brushed_rows)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">1118</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          } else {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">315</td>
+                    <td class="num">1119</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (!is.null(othervalue) &amp;&amp; identical(othervalue, value)) {</pre>
+                      <pre class="language-r">            ANL_OUTLIER[0, ]</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">1120</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">1121</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        } else {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">316</td>
+                    <td class="num">1122</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "`Variable` and `Categorical factor` cannot be the same"</pre>
+                      <pre class="language-r">          ANL_OUTLIER[ANL_OUTLIER$is_outlier_selected, ]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">317</td>
+                    <td class="num">1123</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">318</td>
+                    <td class="num">1124</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">1125</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        display_table$is_outlier_selected &lt;- NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">319</td>
+                    <td class="num">1126</td>
                     <td class="coverage"></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">1127</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        # Extend the brushed ANL_OUTLIER with additional columns</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">321</td>
+                    <td class="num">1128</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    selector_list &lt;- teal.transform::data_extract_multiple_srv(</pre>
+                      <pre class="language-r">        dplyr::left_join(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">322</td>
+                    <td class="num">1129</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      data_extract = vars,</pre>
+                      <pre class="language-r">          display_table,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">323</td>
+                    <td class="num">1130</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      datasets = data,</pre>
+                      <pre class="language-r">          dplyr::select(ANL_OUTLIER_EXTENDED, -"is_outlier_selected"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">324</td>
+                    <td class="num">1131</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      select_validation_rule = list(</pre>
+                      <pre class="language-r">          by = names(display_table)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">1132</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">325</td>
+                    <td class="num">1133</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        outlier_var = shinyvalidate::compose_rules(</pre>
+                      <pre class="language-r">          dplyr::select(union(names(display_table), input$table_ui_columns))</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">1134</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      },</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">326</td>
+                    <td class="num">1135</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          shinyvalidate::sv_required("Please select a variable"),</pre>
+                      <pre class="language-r">      options = list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">327</td>
+                    <td class="num">1136</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          rule_diff("categorical_var")</pre>
+                      <pre class="language-r">        searching = FALSE, language = list(</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">1137</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          zeroRecords = "The brushed area does not contain outlier observations for the currently defined threshold"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">328</td>
+                    <td class="num">1138</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">        ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">329</td>
+                    <td class="num">1139</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        categorical_var = rule_diff("outlier_var")</pre>
+                      <pre class="language-r">        pageLength = input$table_ui_rows</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">330</td>
+                    <td class="num">1140</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">331</td>
+                    <td class="num">1141</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">1142</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">333</td>
+                    <td class="num">1143</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    iv_r &lt;- reactive({</pre>
+                      <pre class="language-r">    output$total_outliers &lt;- renderUI({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">334</td>
+                    <td class="num">1144</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv &lt;- shinyvalidate::InputValidator$new()</pre>
+                      <pre class="language-r">      shiny::req(iv_r()$is_valid())</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">335</td>
+                    <td class="num">1145</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv$add_rule("method", shinyvalidate::sv_required("Please select a method"))</pre>
+                      <pre class="language-r">      ANL &lt;- merged$anl_q_r()[["ANL"]] # nolint: object_name.</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">336</td>
+                    <td class="num">1146</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv$add_rule("boxplot_alts", shinyvalidate::sv_required("Please select Plot Type"))</pre>
+                      <pre class="language-r">      ANL_OUTLIER &lt;- common_code_q()[["ANL_OUTLIER"]] # nolint: object_name.</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">337</td>
+                    <td class="num">1147</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.transform::compose_and_enable_validators(iv, selector_list)</pre>
+                      <pre class="language-r">      teal::validate_has_data(ANL, 1)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">338</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1148</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">      ANL_OUTLIER_SELECTED &lt;- ANL_OUTLIER[ANL_OUTLIER$is_outlier_selected, ] # nolint: object_name.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">339</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1149</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      h5(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">340</td>
+                    <td class="num">1150</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    reactive_select_input &lt;- reactive({</pre>
+                      <pre class="language-r">        sprintf(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">341</td>
+                    <td class="num">1151</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (is.null(selector_list()$categorical_var) || length(selector_list()$categorical_var()$select) == 0) {</pre>
+                      <pre class="language-r">          "%s %d / %d [%.02f%%]",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">342</td>
+                    <td class="num">1152</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        selector_list()[names(selector_list()) != "categorical_var"]</pre>
+                      <pre class="language-r">          "Total number of outlier(s):",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">343</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1153</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">          nrow(ANL_OUTLIER_SELECTED),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">344</td>
+                    <td class="num">1154</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        selector_list()</pre>
+                      <pre class="language-r">          nrow(ANL),</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">1155</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          100 * nrow(ANL_OUTLIER_SELECTED) / nrow(ANL)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">345</td>
+                    <td class="num">1156</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">346</td>
+                    <td class="num">1157</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">1158</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">347</td>
+                    <td class="num">1159</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">348</td>
+                    <td class="num">1160</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    anl_merged_input &lt;- teal.transform::merge_expression_srv(</pre>
+                      <pre class="language-r">    output$total_missing &lt;- renderUI({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">349</td>
+                    <td class="num">1161</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      selector_list = reactive_select_input,</pre>
+                      <pre class="language-r">      if (n_outlier_missing() &gt; 0) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">350</td>
+                    <td class="num">1162</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      datasets = data,</pre>
+                      <pre class="language-r">        ANL &lt;- merged$anl_q_r()[["ANL"]] # nolint: object_name.</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">351</td>
+                    <td class="num">1163</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      merge_function = "dplyr::inner_join"</pre>
+                      <pre class="language-r">        helpText(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">352</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1164</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">353</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1165</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">            "%s %d / %d [%.02f%%]",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">354</td>
+                    <td class="num">1166</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    anl_merged_q &lt;- reactive({</pre>
+                      <pre class="language-r">            "Total number of row(s) with missing values:",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">355</td>
+                    <td class="num">1167</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      req(anl_merged_input())</pre>
+                      <pre class="language-r">            n_outlier_missing(),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">356</td>
+                    <td class="num">1168</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      data() %&gt;%</pre>
+                      <pre class="language-r">            nrow(ANL),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">357</td>
+                    <td class="num">1169</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        teal.code::eval_code(as.expression(anl_merged_input()$expr))</pre>
+                      <pre class="language-r">            100 * (n_outlier_missing()) / nrow(ANL)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">358</td>
+                    <td class="num">1170</td>
                     <td class="coverage"></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">1171</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">360</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1172</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    merged &lt;- list(</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">1173</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      anl_input_r = anl_merged_input,</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">362</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      anl_q_r = anl_merged_q</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="num">1174</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">365</td>
+                    <td class="num">1175</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    n_outlier_missing &lt;- reactive({</pre>
+                      <pre class="language-r">    output$table_ui_wrap &lt;- renderUI({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">366</td>
+                    <td class="num">1176</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">      shiny::req(iv_r()$is_valid())</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">367</td>
+                    <td class="num">1177</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      outlier_var &lt;- as.vector(merged$anl_input_r()$columns_source$outlier_var)</pre>
+                      <pre class="language-r">      tagList(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">368</td>
+                    <td class="num">1178</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ANL &lt;- merged$anl_q_r()[["ANL"]] # nolint: object_name.</pre>
+                      <pre class="language-r">        teal.widgets::optionalSelectInput(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">369</td>
+                    <td class="num">1179</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      sum(is.na(ANL[[outlier_var]]))</pre>
+                      <pre class="language-r">          inputId = session$ns("table_ui_columns"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">370</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1180</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">          label = "Choose additional columns",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">371</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1181</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          choices = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">372</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1182</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Used to create outlier table and the dropdown with additional columns</pre>
+                      <pre class="language-r">          selected = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">373</td>
+                    <td class="num">1183</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dataname_first &lt;- isolate(teal.data::datanames(data())[[1]])</pre>
+                      <pre class="language-r">          multiple = TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">374</td>
+                    <td class="num">1184</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">375</td>
+                    <td class="num">1185</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    common_code_q &lt;- reactive({</pre>
+                      <pre class="language-r">        h4("Outlier Table"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">376</td>
+                    <td class="num">1186</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      shiny::req(iv_r()$is_valid())</pre>
+                      <pre class="language-r">        teal.widgets::get_dt_rows(session$ns("table_ui"), session$ns("table_ui_rows")),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">377</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1187</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        DT::dataTableOutput(session$ns("table_ui"))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">378</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1188</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ANL &lt;- merged$anl_q_r()[["ANL"]] # nolint: object_name.</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">379</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1189</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      qenv &lt;- merged$anl_q_r()</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">380</td>
+                    <td class="num">1190</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">381</td>
+                    <td class="num">1191</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      outlier_var &lt;- as.vector(merged$anl_input_r()$columns_source$outlier_var)</pre>
+                      <pre class="language-r">    teal.widgets::verbatim_popup_srv(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">382</td>
+                    <td class="num">1192</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      categorical_var &lt;- as.vector(merged$anl_input_r()$columns_source$categorical_var)</pre>
+                      <pre class="language-r">      id = "warning",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">383</td>
+                    <td class="num">1193</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      order_by_outlier &lt;- input$order_by_outlier</pre>
+                      <pre class="language-r">      verbatim_content = reactive(teal.code::get_warnings(final_q())),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">384</td>
+                    <td class="num">1194</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      method &lt;- input$method</pre>
+                      <pre class="language-r">      title = "Warning",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">385</td>
+                    <td class="num">1195</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      split_outliers &lt;- input$split_outliers</pre>
+                      <pre class="language-r">      disabled = reactive(is.null(teal.code::get_warnings(final_q())))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">386</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1196</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal::validate_has_data(</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">387</td>
+                    <td class="num">1197</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # missing values in the categorical variable may be used to form a category of its own</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">388</td>
+                    <td class="num">1198</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        `if`(</pre>
+                      <pre class="language-r">    teal.widgets::verbatim_popup_srv(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">389</td>
+                    <td class="num">1199</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          length(categorical_var) == 0,</pre>
+                      <pre class="language-r">      id = "rcode",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">390</td>
+                    <td class="num">1200</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ANL,</pre>
+                      <pre class="language-r">      verbatim_content = reactive(teal.code::get_code(final_q())),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">391</td>
+                    <td class="num">1201</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ANL[, names(ANL) != categorical_var, drop = FALSE]</pre>
+                      <pre class="language-r">      title = "Show R Code for Outlier"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">392</td>
+                    <td class="num">1202</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ),</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">393</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        min_nrow = 10,</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">394</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        complete = TRUE,</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">395</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1203</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        allow_inf = FALSE</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">396</td>
+                    <td class="num">1204</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">    ### REPORTER</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">397</td>
+                    <td class="num">1205</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      validate(need(is.numeric(ANL[[outlier_var]]), "`Variable` is not numeric"))</pre>
+                      <pre class="language-r">    if (with_reporter) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">398</td>
+                    <td class="num">1206</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      validate(need(length(unique(ANL[[outlier_var]])) &gt; 1, "Variable has no variation, i.e. only one unique value"))</pre>
+                      <pre class="language-r">      card_fun &lt;- function(comment, label) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">399</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1207</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        tab_type &lt;- input$tabs</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">400</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1208</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # show/hide split_outliers</pre>
+                      <pre class="language-r">        card &lt;- teal::report_card_template(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">401</td>
+                    <td class="num">1209</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (length(categorical_var) == 0) {</pre>
+                      <pre class="language-r">          title = paste0("Outliers - ", tab_type),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">402</td>
+                    <td class="num">1210</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        shinyjs::hide("split_outliers")</pre>
+                      <pre class="language-r">          label = label,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">403</td>
+                    <td class="num">1211</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (n_outlier_missing() &gt; 0) {</pre>
+                      <pre class="language-r">          with_filter = with_filter,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">404</td>
+                    <td class="num">1212</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          qenv &lt;- teal.code::eval_code(</pre>
+                      <pre class="language-r">          filter_panel_api = filter_panel_api</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">405</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1213</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            qenv,</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">406</td>
+                    <td class="num">1214</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            substitute(</pre>
+                      <pre class="language-r">        categorical_var &lt;- as.vector(merged$anl_input_r()$columns_source$categorical_var)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">407</td>
+                    <td class="num">1215</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              expr = ANL &lt;- ANL %&gt;% dplyr::filter(!is.na(outlier_var_name)), # nolint: object_name.</pre>
+                      <pre class="language-r">        if (length(categorical_var) &gt; 0) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">408</td>
+                    <td class="num">1216</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              env = list(outlier_var_name = as.name(outlier_var))</pre>
+                      <pre class="language-r">          summary_table &lt;- common_code_q()[["summary_table"]]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">409</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1217</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">          card$append_text("Summary Table", "header3")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">410</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1218</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">          card$append_table(summary_table)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">411</td>
+                    <td class="num">1219</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">        }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">412</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1220</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">        card$append_text("Plot", "header3")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">413</td>
+                    <td class="num">1221</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        validate(need(</pre>
+                      <pre class="language-r">        if (tab_type == "Boxplot") {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">414</td>
+                    <td class="num">1222</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          is.factor(ANL[[categorical_var]]) ||</pre>
+                      <pre class="language-r">          card$append_plot(boxplot_r(), dim = box_pws$dim())</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">415</td>
+                    <td class="num">1223</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            is.character(ANL[[categorical_var]]) ||</pre>
+                      <pre class="language-r">        } else if (tab_type == "Density Plot") {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">416</td>
+                    <td class="num">1224</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            is.integer(ANL[[categorical_var]]),</pre>
+                      <pre class="language-r">          card$append_plot(density_plot_r(), dim = density_pws$dim())</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">417</td>
+                    <td class="num">1225</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "`Categorical factor` must be `factor`, `character`, or `integer`"</pre>
+                      <pre class="language-r">        } else if (tab_type == "Cumulative Distribution Plot") {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">418</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1226</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ))</pre>
+                      <pre class="language-r">          card$append_plot(cumulative_plot_r(), dim = cum_density_pws$dim())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">419</td>
+                    <td class="num">1227</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">420</td>
+                    <td class="num">1228</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (n_outlier_missing() &gt; 0) {</pre>
+                      <pre class="language-r">        if (!comment == "") {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">421</td>
+                    <td class="num">1229</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          qenv &lt;- teal.code::eval_code(</pre>
+                      <pre class="language-r">          card$append_text("Comment", "header3")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">422</td>
+                    <td class="num">1230</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            qenv,</pre>
+                      <pre class="language-r">          card$append_text(comment)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">423</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1231</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            substitute(</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">424</td>
+                    <td class="num">1232</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              expr = ANL &lt;- ANL %&gt;% dplyr::filter(!is.na(outlier_var_name)), # nolint: object_name.</pre>
+                      <pre class="language-r">        card$append_src(teal.code::get_code(final_q()))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">425</td>
+                    <td class="num">1233</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              env = list(outlier_var_name = as.name(outlier_var))</pre>
+                      <pre class="language-r">        card</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">426</td>
+                    <td class="num">1234</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">1235</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">427</td>
+                    <td class="num">1236</td>
                     <td class="coverage"></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">1237</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">429</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1238</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        shinyjs::show("split_outliers")</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">430</td>
+                    <td class="num">1239</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/tm_data_table.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">431</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 Table Viewer Teal Module</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">432</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # slider</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">433</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">      outlier_definition_param &lt;- if (method == "IQR") {</pre>
+                      <pre class="language-r">#' A data table viewer shows the data using a paginated table.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">434</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">        input$iqr_slider</pre>
+                      <pre class="language-r">#' specifically designed for use with `data.frames`.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">435</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">      } else if (method == "Z-score") {</pre>
+                      <pre class="language-r">#' @md</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">436</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">        input$zscore_slider</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">437</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">      } else if (method == "Percentile") {</pre>
+                      <pre class="language-r">#' @inheritParams teal::module</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">438</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">        input$percentile_slider</pre>
+                      <pre class="language-r">#' @inheritParams shared_params</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">439</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 variables_selected (`list`) A named list of character vectors of the variables (i.e. columns)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">440</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   which should be initially shown for each dataset. Names of list elements should correspond to the names</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">441</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # this is utils function that converts a %&gt;% NULL %&gt;% b into a %&gt;% b</pre>
+                      <pre class="language-r">#'   of the datasets available in the app. If no entry is specified for a dataset, the first six variables from that</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">442</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">      remove_pipe_null &lt;- function(x) {</pre>
+                      <pre class="language-r">#'   dataset will initially be shown.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">443</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">        if (length(x) == 1) {</pre>
+                      <pre class="language-r">#' @param datasets_selected (`character`) A vector of datasets which should be</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">444</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">          return(x)</pre>
+                      <pre class="language-r">#'   shown and in what order. Names in the vector have to correspond with datasets names.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">445</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 vector of length zero (default) then all datasets are shown.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">446</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">        if (identical(x[[1]], as.name("%&gt;%")) &amp;&amp; is.null(x[[3]])) {</pre>
+                      <pre class="language-r">#'   Note: Only datasets of the `data.frame` class are compatible;</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">447</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">          return(remove_pipe_null(x[[2]]))</pre>
+                      <pre class="language-r">#'   using other types will cause an error.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">448</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">#' @param dt_args (named `list`) Additional arguments to be passed to `DT::datatable`</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">449</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">        return(as.call(c(x[[1]], lapply(x[-1], remove_pipe_null))))</pre>
+                      <pre class="language-r">#'   (must not include `data` or `options`).</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">450</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#' @param dt_options (named `list`) The `options` argument to `DT::datatable`. By default</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">451</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   `list(searching = FALSE, pageLength = 30, lengthMenu = c(5, 15, 30, 100), scrollX = TRUE)`</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">452</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">      qenv &lt;- teal.code::eval_code(</pre>
+                      <pre class="language-r">#' @param server_rendering (`logical`) should the data table be rendered server side</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">453</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">        qenv,</pre>
+                      <pre class="language-r">#'   (see `server` argument of `DT::renderDataTable()`)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">454</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">        substitute(</pre>
+                      <pre class="language-r">#' @details</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">455</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">          expr = {</pre>
+                      <pre class="language-r">#'   The `DT` package has an option `DT.TOJSON_ARGS` to show `Inf` and `NA` in data tables. If this is something</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">456</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">            ANL_OUTLIER &lt;- ANL %&gt;% # nolint: object_name.</pre>
+                      <pre class="language-r">#'   you require then set `options(DT.TOJSON_ARGS =  list(na = "string"))` before running the module.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">457</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">              group_expr %&gt;% # styler: off</pre>
+                      <pre class="language-r">#'   Note though that sorting of numeric columns with `NA`/`Inf` will be lexicographic not numerical.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">458</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">              dplyr::mutate(is_outlier = {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">459</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">                q1_q3 &lt;- stats::quantile(outlier_var_name, probs = c(0.25, 0.75))</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">460</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">                iqr &lt;- q1_q3[2] - q1_q3[1]</pre>
+                      <pre class="language-r">#' # general data example</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">461</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">                !(outlier_var_name &gt;= q1_q3[1] - 1.5 * iqr &amp; outlier_var_name &lt;= q1_q3[2] + 1.5 * iqr)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">462</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              }) %&gt;%</pre>
+                      <pre class="language-r">#' data &lt;- teal_data()</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">463</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">              calculate_outliers %&gt;% # styler: off</pre>
+                      <pre class="language-r">#' data &lt;- within(data, {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">464</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">              ungroup_expr %&gt;% # styler: off</pre>
+                      <pre class="language-r">#'   library(nestcolor)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">465</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">              dplyr::filter(is_outlier | is_outlier_selected) %&gt;%</pre>
+                      <pre class="language-r">#'   iris &lt;- iris</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">466</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">              dplyr::select(-is_outlier)</pre>
+                      <pre class="language-r">#' })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">467</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          },</pre>
+                      <pre class="language-r">#' datanames(data) &lt;- c("iris")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">468</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">          env = list(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">469</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">            calculate_outliers = if (method == "IQR") {</pre>
+                      <pre class="language-r">#' app &lt;- init(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">470</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">              substitute(</pre>
+                      <pre class="language-r">#'   data = data,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">471</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">                expr = dplyr::mutate(is_outlier_selected = {</pre>
+                      <pre class="language-r">#'   modules = modules(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">472</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">                  q1_q3 &lt;- stats::quantile(outlier_var_name, probs = c(0.25, 0.75))</pre>
+                      <pre class="language-r">#'     tm_data_table(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">473</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">                  iqr &lt;- q1_q3[2] - q1_q3[1]</pre>
+                      <pre class="language-r">#'       variables_selected = list(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">474</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">                  !(outlier_var_name &gt;= q1_q3[1] - outlier_definition_param * iqr &amp;</pre>
+                      <pre class="language-r">#'         iris = c("Sepal.Length", "Sepal.Width", "Petal.Length", "Petal.Width", "Species")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">475</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">                    outlier_var_name &lt;= q1_q3[2] + outlier_definition_param * iqr)</pre>
+                      <pre class="language-r">#'       ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">476</td>
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                }),</pre>
+                      <pre class="language-r">#'       dt_args = list(caption = "ADSL Table Caption")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">477</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">                env = list(</pre>
+                      <pre class="language-r">#'     )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">478</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">                  outlier_var_name = as.name(outlier_var),</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">479</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">                  outlier_definition_param = outlier_definition_param</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">480</td>
+                    <td class="num">50</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">481</td>
+                    <td class="num">51</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="missed">
-                    <td class="num">482</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">            } else if (method == "Z-score") {</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">483</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">              substitute(</pre>
+                      <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">54</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                expr = dplyr::mutate(</pre>
+                      <pre class="language-r">#' # CDISC data example</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">485</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">                  is_outlier_selected = abs(outlier_var_name - mean(outlier_var_name)) /</pre>
+                      <pre class="language-r">#' data &lt;- teal_data()</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">486</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">                    stats::sd(outlier_var_name) &gt; outlier_definition_param</pre>
+                      <pre class="language-r">#' data &lt;- within(data, {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">487</td>
+                    <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                ),</pre>
+                      <pre class="language-r">#'   library(nestcolor)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">488</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">                env = list(</pre>
+                      <pre class="language-r">#'   ADSL &lt;- rADSL</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">489</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">                  outlier_var_name = as.name(outlier_var),</pre>
+                      <pre class="language-r">#' })</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">490</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">                  outlier_definition_param = outlier_definition_param</pre>
+                      <pre class="language-r">#' datanames(data) &lt;- "ADSL"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">491</td>
+                    <td class="num">61</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                )</pre>
+                      <pre class="language-r">#' join_keys(data) &lt;- default_cdisc_join_keys[datanames(data)]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">492</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">493</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">            } else if (method == "Percentile") {</pre>
+                      <pre class="language-r">#' app &lt;- init(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">494</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">              substitute(</pre>
+                      <pre class="language-r">#'   data = data,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">495</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">                expr = dplyr::mutate(</pre>
+                      <pre class="language-r">#'   modules = modules(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">496</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">                  is_outlier_selected = outlier_var_name &lt; stats::quantile(outlier_var_name, outlier_definition_param) |</pre>
+                      <pre class="language-r">#'     tm_data_table(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">497</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">                    outlier_var_name &gt; stats::quantile(outlier_var_name, 1 - outlier_definition_param)</pre>
+                      <pre class="language-r">#'       variables_selected = list(ADSL = c("STUDYID", "USUBJID", "SUBJID", "SITEID", "AGE", "SEX")),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">498</td>
+                    <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                ),</pre>
+                      <pre class="language-r">#'       dt_args = list(caption = "ADSL Table Caption")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">499</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">                env = list(</pre>
+                      <pre class="language-r">#'     )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">500</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">                  outlier_var_name = as.name(outlier_var),</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">501</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">                  outlier_definition_param = outlier_definition_param</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">502</td>
+                    <td class="num">72</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">503</td>
+                    <td class="num">73</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">504</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="missed">
-                    <td class="num">505</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">75</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            outlier_var_name = as.name(outlier_var),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">506</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">            group_expr = if (isTRUE(split_outliers) &amp;&amp; length(categorical_var) != 0) {</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">507</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">              substitute(dplyr::group_by(x), list(x = as.name(categorical_var)))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">508</td>
+                    <td class="num">78</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            },</pre>
+                      <pre class="language-r">tm_data_table &lt;- function(label = "Data Table",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">509</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">            ungroup_expr = if (isTRUE(split_outliers) &amp;&amp; length(categorical_var) != 0) {</pre>
+                      <pre class="language-r">                          variables_selected = list(),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">510</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">              substitute(dplyr::ungroup())</pre>
+                      <pre class="language-r">                          datasets_selected = character(0),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">511</td>
+                    <td class="num">81</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            }</pre>
+                      <pre class="language-r">                          dt_args = list(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">512</td>
+                    <td class="num">82</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">                          dt_options = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">513</td>
+                    <td class="num">83</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ) %&gt;%</pre>
+                      <pre class="language-r">                            searching = FALSE,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">514</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">          remove_pipe_null()</pre>
+                      <pre class="language-r">                            pageLength = 30,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">515</td>
+                    <td class="num">85</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">                            lengthMenu = c(5, 15, 30, 100),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">516</td>
+                    <td class="num">86</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                            scrollX = TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">517</td>
+                    <td class="num">87</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # ANL_OUTLIER_EXTENDED is the base table</pre>
+                      <pre class="language-r">                          ),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">518</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">      qenv &lt;- teal.code::eval_code(</pre>
+                      <pre class="language-r">                          server_rendering = FALSE,</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">89</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                          pre_output = NULL,</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">90</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                          post_output = NULL) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">519</td>
+                    <td class="num">91</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        qenv,</pre>
+                      <pre class="language-r">  logger::log_info("Initializing tm_data_table")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">520</td>
+                    <td class="num">92</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        substitute(</pre>
+                      <pre class="language-r">  checkmate::assert_string(label)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">521</td>
+                    <td class="num">93</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          expr = {</pre>
+                      <pre class="language-r">  checkmate::assert_list(variables_selected, min.len = 0, types = "character", names = "named")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">522</td>
+                    <td class="num">94</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ANL_OUTLIER_EXTENDED &lt;- dplyr::left_join( # nolint: object_name.</pre>
+                      <pre class="language-r">  if (length(variables_selected) &gt; 0) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">523</td>
+                    <td class="num">95</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              ANL_OUTLIER,</pre>
+                      <pre class="language-r">    lapply(seq_along(variables_selected), function(i) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">524</td>
+                    <td class="num">96</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              dplyr::select(</pre>
+                      <pre class="language-r">      checkmate::assert_character(variables_selected[[i]], min.chars = 1, min.len = 1)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">525</td>
+                    <td class="num">97</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                dataname,</pre>
+                      <pre class="language-r">      if (!is.null(names(variables_selected[[i]]))) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">526</td>
+                    <td class="num">98</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                dplyr::setdiff(names(dataname), dplyr::setdiff(names(ANL_OUTLIER), join_keys))</pre>
+                      <pre class="language-r">        checkmate::assert_names(names(variables_selected[[i]]))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">527</td>
+                    <td class="num">99</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              ),</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">528</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">              by = join_keys</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">529</td>
+                    <td class="num">100</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">530</td>
+                    <td class="num">101</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">531</td>
+                    <td class="num">102</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          env = list(</pre>
+                      <pre class="language-r">  checkmate::assert_character(datasets_selected, min.len = 0, min.chars = 1)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">532</td>
+                    <td class="num">103</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            dataname = as.name(dataname_first),</pre>
+                      <pre class="language-r">  checkmate::assert_list(dt_options, names = "named")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">533</td>
+                    <td class="num">104</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            join_keys = as.character(teal.data::join_keys(data())[dataname_first, dataname_first])</pre>
+                      <pre class="language-r">  checkmate::assert(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">534</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">    checkmate::check_list(dt_args, len = 0),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">535</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">    checkmate::check_subset(names(dt_args), choices = names(formals(DT::datatable)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">536</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">537</td>
+                    <td class="num">108</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">538</td>
+                    <td class="num">109</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (length(categorical_var) &gt; 0) {</pre>
+                      <pre class="language-r">  checkmate::assert_flag(server_rendering)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">539</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">110</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        qenv &lt;- teal.code::eval_code(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">540</td>
+                    <td class="num">111</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          qenv,</pre>
+                      <pre class="language-r">  module(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">541</td>
+                    <td class="num">112</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          substitute(</pre>
+                      <pre class="language-r">    label,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">542</td>
+                    <td class="num">113</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            expr = summary_table_pre &lt;- ANL_OUTLIER %&gt;%</pre>
+                      <pre class="language-r">    server = srv_page_data_table,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">543</td>
+                    <td class="num">114</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              dplyr::filter(is_outlier_selected) %&gt;%</pre>
+                      <pre class="language-r">    ui = ui_page_data_table,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">544</td>
+                    <td class="num">115</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              dplyr::select(outlier_var_name, categorical_var_name) %&gt;%</pre>
+                      <pre class="language-r">    datanames = if (length(datasets_selected) == 0) "all" else datasets_selected,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">545</td>
+                    <td class="num">116</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              dplyr::group_by(categorical_var_name) %&gt;%</pre>
+                      <pre class="language-r">    server_args = list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">546</td>
+                    <td class="num">117</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              dplyr::summarise(n_outliers = dplyr::n()) %&gt;%</pre>
+                      <pre class="language-r">      variables_selected = variables_selected,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">547</td>
+                    <td class="num">118</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              dplyr::right_join(</pre>
+                      <pre class="language-r">      datasets_selected = datasets_selected,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">548</td>
+                    <td class="num">119</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                ANL %&gt;%</pre>
+                      <pre class="language-r">      dt_args = dt_args,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">549</td>
+                    <td class="num">120</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  dplyr::select(outlier_var_name, categorical_var_name) %&gt;%</pre>
+                      <pre class="language-r">      dt_options = dt_options,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">550</td>
+                    <td class="num">121</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  dplyr::group_by(categorical_var_name) %&gt;%</pre>
+                      <pre class="language-r">      server_rendering = server_rendering</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">122</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">551</td>
+                    <td class="num">123</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  dplyr::summarise(</pre>
+                      <pre class="language-r">    ui_args = list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">552</td>
+                    <td class="num">124</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    total_in_cat = dplyr::n(),</pre>
+                      <pre class="language-r">      pre_output = pre_output,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">553</td>
+                    <td class="num">125</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    n_na = sum(is.na(outlier_var_name) | is.na(categorical_var_name))</pre>
+                      <pre class="language-r">      post_output = post_output</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">554</td>
+                    <td class="num">126</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">555</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">                by = categorical_var</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">556</td>
+                    <td class="num">128</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              ) %&gt;%</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">557</td>
+                    <td class="num">129</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              # This is important as there may be categorical variables with natural orderings, e.g. AGE.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">558</td>
+                    <td class="num">130</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              # The plots should be displayed by default in increasing order in these situations.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">559</td>
+                    <td class="num">131</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              # dplyr::arrange will sort integer, factor, and character data types in the expected way.</pre>
+                      <pre class="language-r"># ui page module</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">132</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">ui_page_data_table &lt;- function(id,</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">133</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                               pre_output = NULL,</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">134</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                               post_output = NULL) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">560</td>
+                    <td class="num">135</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              dplyr::arrange(categorical_var_name) %&gt;%</pre>
+                      <pre class="language-r">  ns &lt;- NS(id)</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>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">561</td>
+                    <td class="num">137</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              dplyr::mutate(</pre>
+                      <pre class="language-r">  shiny::tagList(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">562</td>
+                    <td class="num">138</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                n_outliers = dplyr::if_else(is.na(n_outliers), 0, as.numeric(n_outliers)),</pre>
+                      <pre class="language-r">    include_css_files("custom"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">563</td>
+                    <td class="num">139</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                display_str = dplyr::if_else(</pre>
+                      <pre class="language-r">    teal.widgets::standard_layout(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">564</td>
+                    <td class="num">140</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  n_outliers &gt; 0,</pre>
+                      <pre class="language-r">      output = teal.widgets::white_small_well(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">565</td>
+                    <td class="num">141</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  sprintf("%d [%.02f%%]", n_outliers, 100 * n_outliers / total_in_cat),</pre>
+                      <pre class="language-r">        fluidRow(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">566</td>
+                    <td class="num">142</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  "0"</pre>
+                      <pre class="language-r">          column(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">567</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">143</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                ),</pre>
+                      <pre class="language-r">            width = 12,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">568</td>
+                    <td class="num">144</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                display_str_na = dplyr::if_else(</pre>
+                      <pre class="language-r">            checkboxInput(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">569</td>
+                    <td class="num">145</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  n_na &gt; 0,</pre>
+                      <pre class="language-r">              ns("if_distinct"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">570</td>
+                    <td class="num">146</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  sprintf("%d [%.02f%%]", n_na, 100 * n_na / total_in_cat),</pre>
+                      <pre class="language-r">              "Show only distinct rows:",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">571</td>
+                    <td class="num">147</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  "0"</pre>
+                      <pre class="language-r">              value = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">572</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="missed">
-                    <td class="num">573</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">                order = seq_along(n_outliers)</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">574</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="missed">
-                    <td class="num">575</td>
+                    <td class="num">151</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            env = list(</pre>
+                      <pre class="language-r">        fluidRow(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">576</td>
+                    <td class="num">152</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              categorical_var = categorical_var,</pre>
+                      <pre class="language-r">          class = "mb-8",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">577</td>
+                    <td class="num">153</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              categorical_var_name = as.name(categorical_var),</pre>
+                      <pre class="language-r">          column(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">578</td>
+                    <td class="num">154</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              outlier_var_name = as.name(outlier_var)</pre>
+                      <pre class="language-r">            width = 12,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">579</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">            uiOutput(ns("dataset_table"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">580</td>
+                    <td class="num">156</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">581</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">582</td>
+                    <td class="num">158</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # now to handle when user chooses to order based on amount of outliers</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">583</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        if (order_by_outlier) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">584</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          qenv &lt;- teal.code::eval_code(</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">585</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            qenv,</pre>
+                      <pre class="language-r">      ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">586</td>
+                    <td class="num">159</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            quote(</pre>
+                      <pre class="language-r">      pre_output = pre_output,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">587</td>
+                    <td class="num">160</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              summary_table_pre &lt;- summary_table_pre %&gt;%</pre>
+                      <pre class="language-r">      post_output = post_output</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">588</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">                dplyr::arrange(desc(n_outliers / total_in_cat)) %&gt;%</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">589</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">                dplyr::mutate(order = seq_len(nrow(summary_table_pre)))</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">590</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">591</td>
+                    <td class="num">164</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">592</td>
+                    <td class="num">165</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">593</td>
+                    <td class="num">166</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r"># server page module</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">594</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">        qenv &lt;- teal.code::eval_code(</pre>
+                      <pre class="language-r">srv_page_data_table &lt;- function(id,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">595</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">168</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          qenv,</pre>
+                      <pre class="language-r">                                data,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">596</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">          substitute(</pre>
+                      <pre class="language-r">                                datasets_selected,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">597</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">            expr = {</pre>
+                      <pre class="language-r">                                variables_selected,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">598</td>
+                    <td class="num">171</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              # In order for geom_rug to work properly when reordering takes place inside facet_grid,</pre>
+                      <pre class="language-r">                                dt_args,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">599</td>
+                    <td class="num">172</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              # all tables must have the column used for reording.</pre>
+                      <pre class="language-r">                                dt_options,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">600</td>
+                    <td class="num">173</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              # In this case, the column used for reordering is `order`.</pre>
+                      <pre class="language-r">                                server_rendering) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">601</td>
+                    <td class="num">174</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              ANL_OUTLIER &lt;- dplyr::left_join( # nolint: object_name.</pre>
+                      <pre class="language-r">  checkmate::assert_class(data, "reactive")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">602</td>
+                    <td class="num">175</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                ANL_OUTLIER,</pre>
+                      <pre class="language-r">  checkmate::assert_class(isolate(data()), "teal_data")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">603</td>
+                    <td class="num">176</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                summary_table_pre[, c("order", categorical_var)],</pre>
+                      <pre class="language-r">  moduleServer(id, function(input, output, session) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">604</td>
+                    <td class="num">177</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                by = categorical_var</pre>
+                      <pre class="language-r">    if_filtered &lt;- reactive(as.logical(input$if_filtered))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">605</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">              )</pre>
+                      <pre class="language-r">    if_distinct &lt;- reactive(as.logical(input$if_distinct))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">606</td>
+                    <td class="num">179</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              # so that x axis of plot aligns with columns of summary table, from most outliers to least by percentage</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">607</td>
+                    <td class="num">180</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              ANL &lt;- ANL %&gt;% # nolint: object_name.</pre>
+                      <pre class="language-r">    datanames &lt;- isolate(teal.data::datanames(data()))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">608</td>
+                    <td class="num">181</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                dplyr::left_join(</pre>
+                      <pre class="language-r">    datanames &lt;- Filter(function(name) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">609</td>
+                    <td class="num">182</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  dplyr::select(summary_table_pre, categorical_var_name, order),</pre>
+                      <pre class="language-r">      is.data.frame(isolate(data())[[name]])</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">610</td>
+                    <td class="num">183</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  by = categorical_var</pre>
+                      <pre class="language-r">    }, datanames)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">611</td>
+                    <td class="num">184</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                ) %&gt;%</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">612</td>
+                    <td class="num">185</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                dplyr::arrange(order)</pre>
+                      <pre class="language-r">    if (!identical(datasets_selected, character(0))) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">613</td>
+                    <td class="num">186</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              summary_table &lt;- summary_table_pre %&gt;%</pre>
+                      <pre class="language-r">      checkmate::assert_subset(datasets_selected, datanames)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">614</td>
+                    <td class="num">187</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                dplyr::select(</pre>
+                      <pre class="language-r">      datanames &lt;- datasets_selected</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>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">189</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">615</td>
+                    <td class="num">190</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  categorical_var_name,</pre>
+                      <pre class="language-r">    output$dataset_table &lt;- renderUI({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">616</td>
+                    <td class="num">191</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  Outliers = display_str, Missings = display_str_na, Total = total_in_cat</pre>
+                      <pre class="language-r">      do.call(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">617</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">                ) %&gt;%</pre>
+                      <pre class="language-r">        tabsetPanel,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">618</td>
+                    <td class="num">193</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                dplyr::mutate_all(as.character) %&gt;%</pre>
+                      <pre class="language-r">        lapply(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">619</td>
+                    <td class="num">194</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                tidyr::pivot_longer(-categorical_var_name) %&gt;%</pre>
+                      <pre class="language-r">          datanames,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">620</td>
+                    <td class="num">195</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                tidyr::pivot_wider(names_from = categorical_var, values_from = value) %&gt;%</pre>
+                      <pre class="language-r">          function(x) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">621</td>
+                    <td class="num">196</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                tibble::column_to_rownames("name")</pre>
+                      <pre class="language-r">            dataset &lt;- isolate(data()[[x]])</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">622</td>
+                    <td class="num">197</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              summary_table</pre>
+                      <pre class="language-r">            choices &lt;- names(dataset)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">623</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">198</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            },</pre>
+                      <pre class="language-r">            labels &lt;- vapply(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">624</td>
+                    <td class="num">199</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            env = list(</pre>
+                      <pre class="language-r">              dataset,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">625</td>
+                    <td class="num">200</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              categorical_var = categorical_var,</pre>
+                      <pre class="language-r">              function(x) ifelse(is.null(attr(x, "label")), "", attr(x, "label")),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">626</td>
+                    <td class="num">201</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              categorical_var_name = as.name(categorical_var)</pre>
+                      <pre class="language-r">              character(1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">627</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">628</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">            names(choices) &lt;- ifelse(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">629</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">        )</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">630</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">631</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">              is.na(labels) | labels == "",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">632</td>
+                    <td class="num">205</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (length(categorical_var) &gt; 0 &amp;&amp; nrow(qenv[["ANL_OUTLIER"]]) &gt; 0) {</pre>
+                      <pre class="language-r">              choices,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">633</td>
+                    <td class="num">206</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        shinyjs::show("order_by_outlier")</pre>
+                      <pre class="language-r">              paste(choices, labels, sep = ": ")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">634</td>
+                    <td class="num">207</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">635</td>
+                    <td class="num">208</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        shinyjs::hide("order_by_outlier")</pre>
+                      <pre class="language-r">            variables_selected &lt;- if (!is.null(variables_selected[[x]])) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">636</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">209</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">              variables_selected[[x]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">637</td>
+                    <td class="num">210</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">638</td>
+                    <td class="num">211</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      qenv</pre>
+                      <pre class="language-r">              utils::head(choices)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">639</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">640</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">213</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="missed">
-                    <td class="num">641</td>
+                    <td class="num">214</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    output$summary_table &lt;- DT::renderDataTable(</pre>
+                      <pre class="language-r">              title = x,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">642</td>
+                    <td class="num">215</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      expr = {</pre>
+                      <pre class="language-r">              column(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">643</td>
+                    <td class="num">216</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (iv_r()$is_valid()) {</pre>
+                      <pre class="language-r">                width = 12,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">644</td>
+                    <td class="num">217</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          categorical_var &lt;- as.vector(merged$anl_input_r()$columns_source$categorical_var)</pre>
+                      <pre class="language-r">                div(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">645</td>
+                    <td class="num">218</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          if (!is.null(categorical_var)) {</pre>
+                      <pre class="language-r">                  class = "mt-4",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">646</td>
+                    <td class="num">219</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            DT::datatable(</pre>
+                      <pre class="language-r">                  ui_data_table(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">647</td>
+                    <td class="num">220</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              common_code_q()[["summary_table"]],</pre>
+                      <pre class="language-r">                    id = session$ns(x),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">648</td>
+                    <td class="num">221</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              options = list(</pre>
+                      <pre class="language-r">                    choices = choices,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">649</td>
+                    <td class="num">222</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                dom = "t",</pre>
+                      <pre class="language-r">                    selected = variables_selected</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">650</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">223</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                autoWidth = TRUE,</pre>
+                      <pre class="language-r">                  )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">651</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">224</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                columnDefs = list(list(width = "200px", targets = "_all"))</pre>
+                      <pre class="language-r">                )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">652</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">653</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">654</td>
+                    <td class="num">227</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">          }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">655</td>
+                    <td class="num">228</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">656</td>
+                    <td class="num">229</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">657</td>
+                    <td class="num">230</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">658</td>
+                    <td class="num">231</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">659</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">232</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # boxplot/violinplot # nolint commented_code</pre>
+                      <pre class="language-r">    lapply(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">660</td>
+                    <td class="num">233</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    boxplot_q &lt;- reactive({</pre>
+                      <pre class="language-r">      datanames,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">661</td>
+                    <td class="num">234</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      req(common_code_q())</pre>
+                      <pre class="language-r">      function(x) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">662</td>
+                    <td class="num">235</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ANL &lt;- common_code_q()[["ANL"]] # nolint: object_name.</pre>
+                      <pre class="language-r">        srv_data_table(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">663</td>
+                    <td class="num">236</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ANL_OUTLIER &lt;- common_code_q()[["ANL_OUTLIER"]] # nolint: object_name.</pre>
+                      <pre class="language-r">          id = x,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">664</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"></pre>
+                      <pre class="language-r">          data = data,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">665</td>
+                    <td class="num">238</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      outlier_var &lt;- as.vector(merged$anl_input_r()$columns_source$outlier_var)</pre>
+                      <pre class="language-r">          dataname = x,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">666</td>
+                    <td class="num">239</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      categorical_var &lt;- as.vector(merged$anl_input_r()$columns_source$categorical_var)</pre>
+                      <pre class="language-r">          if_filtered = if_filtered,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">240</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          if_distinct = if_distinct,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">241</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          dt_args = dt_args,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">242</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          dt_options = dt_options,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">243</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          server_rendering = server_rendering</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">667</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">668</td>
+                    <td class="num">245</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # validation</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">669</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">246</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal::validate_has_data(ANL, 1)</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">670</td>
+                    <td class="num">247</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="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">}</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">249</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">671</td>
+                    <td class="num">250</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # boxplot</pre>
+                      <pre class="language-r">ui_data_table &lt;- function(id,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">672</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">251</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      plot_call &lt;- quote(ANL %&gt;% ggplot())</pre>
+                      <pre class="language-r">                          choices,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">673</td>
+                    <td class="num">252</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                          selected) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">674</td>
+                    <td class="num">253</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      plot_call &lt;- if (input$boxplot_alts == "Box plot") {</pre>
+                      <pre class="language-r">  ns &lt;- NS(id)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">675</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">254</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        substitute(expr = plot_call + geom_boxplot(outlier.shape = NA), env = list(plot_call = plot_call))</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">676</td>
+                    <td class="num">255</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else if (input$boxplot_alts == "Violin plot") {</pre>
+                      <pre class="language-r">  if (!is.null(selected)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">677</td>
+                    <td class="num">256</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        substitute(expr = plot_call + geom_violin(), env = list(plot_call = plot_call))</pre>
+                      <pre class="language-r">    all_choices &lt;- choices</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">678</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">      } else {</pre>
+                      <pre class="language-r">    choices &lt;- c(selected, setdiff(choices, selected))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">679</td>
+                    <td class="num">258</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        NULL</pre>
+                      <pre class="language-r">    names(choices) &lt;- names(all_choices)[match(choices, all_choices)]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">680</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">681</td>
+                    <td class="num">260</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">682</td>
+                    <td class="num">261</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      plot_call &lt;- if (identical(categorical_var, character(0)) || is.null(categorical_var)) {</pre>
+                      <pre class="language-r">  tagList(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">683</td>
+                    <td class="num">262</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        inner_call &lt;- substitute(</pre>
+                      <pre class="language-r">    teal.widgets::get_dt_rows(ns("data_table"), ns("dt_rows")),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">684</td>
+                    <td class="num">263</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          expr = plot_call +</pre>
+                      <pre class="language-r">    fluidRow(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">685</td>
+                    <td class="num">264</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            aes(x = "Entire dataset", y = outlier_var_name) +</pre>
+                      <pre class="language-r">      teal.widgets::optionalSelectInput(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">686</td>
+                    <td class="num">265</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            scale_x_discrete(),</pre>
+                      <pre class="language-r">        ns("variables"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">687</td>
+                    <td class="num">266</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          env = list(plot_call = plot_call, outlier_var_name = as.name(outlier_var))</pre>
+                      <pre class="language-r">        "Select variables:",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">688</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">        choices = choices,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">689</td>
+                    <td class="num">268</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (nrow(ANL_OUTLIER) &gt; 0) {</pre>
+                      <pre class="language-r">        selected = selected,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">690</td>
+                    <td class="num">269</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          substitute(</pre>
+                      <pre class="language-r">        multiple = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">691</td>
+                    <td class="num">270</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            expr = inner_call + geom_point(</pre>
+                      <pre class="language-r">        width = "100%"</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">271</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">272</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">692</td>
+                    <td class="num">273</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              data = ANL_OUTLIER,</pre>
+                      <pre class="language-r">    fluidRow(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">693</td>
+                    <td class="num">274</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              aes(x = "Entire dataset", y = outlier_var_name, color = is_outlier_selected)</pre>
+                      <pre class="language-r">      DT::dataTableOutput(ns("data_table"), width = "100%")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">694</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="missed">
-                    <td class="num">695</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">276</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            env = list(inner_call = inner_call, outlier_var_name = as.name(outlier_var))</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">696</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">697</td>
+                    <td class="num">278</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">698</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">279</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          inner_call</pre>
+                      <pre class="language-r">srv_data_table &lt;- function(id,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">699</td>
+                    <td class="num">280</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="never">
-                    <td class="num">700</td>
+                    <td class="num">281</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">                           dataname,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">701</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">282</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        substitute(</pre>
+                      <pre class="language-r">                           if_filtered,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">702</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">          expr = plot_call +</pre>
+                      <pre class="language-r">                           if_distinct,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">703</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">            aes(y = outlier_var_name, x = reorder(categorical_var_name, order)) +</pre>
+                      <pre class="language-r">                           dt_args,</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">285</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                           dt_options,</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">286</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                           server_rendering) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">704</td>
+                    <td class="num">287</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            xlab(categorical_var) +</pre>
+                      <pre class="language-r">  moduleServer(id, function(input, output, session) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">705</td>
+                    <td class="num">288</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            scale_x_discrete() +</pre>
+                      <pre class="language-r">    iv &lt;- shinyvalidate::InputValidator$new()</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">706</td>
+                    <td class="num">289</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            geom_point(</pre>
+                      <pre class="language-r">    iv$add_rule("variables", shinyvalidate::sv_required("Please select valid variable names"))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">707</td>
+                    <td class="num">290</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              data = ANL_OUTLIER,</pre>
+                      <pre class="language-r">    iv$add_rule("variables", shinyvalidate::sv_in_set(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">708</td>
+                    <td class="num">291</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              aes(x = as.factor(categorical_var_name), y = outlier_var_name, color = is_outlier_selected)</pre>
+                      <pre class="language-r">      set = names(data()[[dataname]]), message_fmt = "Not all selected variables exist in the data"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">709</td>
+                    <td class="num">292</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">710</td>
+                    <td class="num">293</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          env = list(</pre>
+                      <pre class="language-r">    iv$enable()</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">711</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">294</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            plot_call = plot_call,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">712</td>
+                    <td class="num">295</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            outlier_var_name = as.name(outlier_var),</pre>
+                      <pre class="language-r">    output$data_table &lt;- DT::renderDataTable(server = server_rendering, {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">713</td>
+                    <td class="num">296</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            categorical_var_name = as.name(categorical_var),</pre>
+                      <pre class="language-r">      teal::validate_inputs(iv)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">297</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">714</td>
+                    <td class="num">298</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            categorical_var = categorical_var</pre>
+                      <pre class="language-r">      df &lt;- data()[[dataname]]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">715</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">299</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">      variables &lt;- input$variables</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">716</td>
+                    <td class="num">300</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">717</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">301</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">      teal::validate_has_data(df, min_nrow = 1L, msg = paste("data", dataname, "is empty"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">718</td>
+                    <td class="num">302</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">719</td>
+                    <td class="num">303</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dev_ggplot2_args &lt;- teal.widgets::ggplot2_args(</pre>
+                      <pre class="language-r">      dataframe_selected &lt;- if (if_distinct()) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">720</td>
+                    <td class="num">304</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        labs = list(color = "Is outlier?"),</pre>
+                      <pre class="language-r">        dplyr::count(df, dplyr::across(tidyselect::all_of(variables)))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">721</td>
+                  <tr class="never">
+                    <td class="num">305</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      } else {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">306</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        theme = list(legend.position = "top")</pre>
+                      <pre class="language-r">        df[variables]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">722</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">723</td>
+                    <td class="num">308</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">724</td>
+                    <td class="num">309</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      all_ggplot2_args &lt;- teal.widgets::resolve_ggplot2_args(</pre>
+                      <pre class="language-r">      dt_args$options &lt;- dt_options</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">725</td>
+                    <td class="num">310</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        user_plot = ggplot2_args[["Boxplot"]],</pre>
+                      <pre class="language-r">      if (!is.null(input$dt_rows)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">726</td>
+                    <td class="num">311</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        user_default = ggplot2_args$default,</pre>
+                      <pre class="language-r">        dt_args$options$pageLength &lt;- input$dt_rows</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">727</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">312</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        module_plot = dev_ggplot2_args</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">728</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">313</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">      dt_args$data &lt;- dataframe_selected</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">729</td>
+                    <td class="num">314</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">730</td>
+                    <td class="num">315</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      parsed_ggplot2_args &lt;- teal.widgets::parse_ggplot2_args(</pre>
+                      <pre class="language-r">      do.call(DT::datatable, dt_args)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">731</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">316</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        all_ggplot2_args,</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">732</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">317</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ggtheme = input$ggtheme</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">733</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>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/tm_file_viewer.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">734</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' File Viewer Teal Module</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">735</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">      teal.code::eval_code(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">736</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">        common_code_q(),</pre>
+                      <pre class="language-r">#' The file viewer module provides a tool to view static files.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">737</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">        substitute(</pre>
+                      <pre class="language-r">#' Supported formats include text formats, \code{PDF}, \code{PNG}, \code{APNG},</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">738</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">          expr = g &lt;- plot_call +</pre>
+                      <pre class="language-r">#' \code{JPEG}, \code{SVG}, \code{WEBP}, \code{GIF} and \code{BMP}.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">739</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">            scale_color_manual(values = c("TRUE" = "red", "FALSE" = "black")) +</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">740</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">            labs + ggthemes + themes,</pre>
+                      <pre class="language-r">#' @inheritParams teal::module</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">741</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">          env = list(</pre>
+                      <pre class="language-r">#' @inheritParams shared_params</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">742</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">            plot_call = plot_call,</pre>
+                      <pre class="language-r">#' @param input_path optional, (`list`) of the input paths to either: specific files of accepted formats,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">743</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">            labs = parsed_ggplot2_args$labs,</pre>
+                      <pre class="language-r">#'   a directory or a URL. The paths can be specified as absolute paths or relative to the running</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">744</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">            ggthemes = parsed_ggplot2_args$ggtheme,</pre>
+                      <pre class="language-r">#'   directory of the application. Will default to current working directory if not supplied.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">745</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">            themes = parsed_ggplot2_args$theme</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">746</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">747</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">748</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ) %&gt;%</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">749</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">        teal.code::eval_code(quote(print(g)))</pre>
+                      <pre class="language-r">#' data &lt;- teal_data()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">750</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">#' data &lt;- within(data, {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">751</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   data &lt;- data.frame(1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">752</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # density plot</pre>
+                      <pre class="language-r">#' })</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">753</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">    density_plot_q &lt;- reactive({</pre>
+                      <pre class="language-r">#' datanames(data) &lt;- c("data")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">754</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">      ANL &lt;- common_code_q()[["ANL"]] # nolint: object_name.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">755</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">      ANL_OUTLIER &lt;- common_code_q()[["ANL_OUTLIER"]] # nolint: object_name.</pre>
+                      <pre class="language-r">#' app &lt;- teal::init(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">756</td>
+                    <td class="num">23</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="missed">
-                    <td class="num">757</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">      outlier_var &lt;- as.vector(merged$anl_input_r()$columns_source$outlier_var)</pre>
+                      <pre class="language-r">#'   modules = teal::modules(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">758</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">      categorical_var &lt;- as.vector(merged$anl_input_r()$columns_source$categorical_var)</pre>
+                      <pre class="language-r">#'     teal.modules.general::tm_file_viewer(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">759</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'       input_path = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">760</td>
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # validation</pre>
+                      <pre class="language-r">#'         folder = system.file("sample_files", package = "teal.modules.general"),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">761</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">      teal::validate_has_data(ANL, 1)</pre>
+                      <pre class="language-r">#'         png = system.file("sample_files/sample_file.png", package = "teal.modules.general"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">762</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # plot</pre>
+                      <pre class="language-r">#'         txt = system.file("sample_files/sample_file.txt", package = "teal.modules.general"),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">763</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">      plot_call &lt;- substitute(</pre>
+                      <pre class="language-r">#'         url =</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">764</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">        expr = ANL %&gt;%</pre>
+                      <pre class="language-r">#'           "https://www.fda.gov/files/drugs/published/Portable-Document-Format-Specifications.pdf"</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">765</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">          ggplot(aes(x = outlier_var_name)) +</pre>
+                      <pre class="language-r">#'       )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">766</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">          geom_density() +</pre>
+                      <pre class="language-r">#'     )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">767</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">          geom_rug(data = ANL_OUTLIER, aes(x = outlier_var_name, color = is_outlier_selected)) +</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">768</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">          scale_color_manual(values = c("TRUE" = "red", "FALSE" = "black")),</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">769</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">        env = list(outlier_var_name = as.name(outlier_var))</pre>
+                      <pre class="language-r">#' if (interactive()) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">770</td>
+                    <td class="num">37</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">771</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">772</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">      plot_call &lt;- if (identical(categorical_var, character(0)) || is.null(categorical_var)) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">773</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">        substitute(expr = plot_call, env = list(plot_call = plot_call))</pre>
+                      <pre class="language-r">tm_file_viewer &lt;- function(label = "File Viewer Module",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">774</td>
+                    <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">                           input_path = list("Current Working Directory" = ".")) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">775</td>
+                    <td class="num">42</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        substitute(</pre>
+                      <pre class="language-r">  logger::log_info("Initializing tm_file_viewer")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">776</td>
+                    <td class="num">43</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          expr = plot_call + facet_grid(~ reorder(categorical_var_name, order)),</pre>
+                      <pre class="language-r">  if (length(label) == 0 || identical(label, "")) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">777</td>
+                    <td class="num">44</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          env = list(plot_call = plot_call, categorical_var_name = as.name(categorical_var))</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">778</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">779</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">    label &lt;- " "</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">780</td>
+                    <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">781</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      dev_ggplot2_args &lt;- teal.widgets::ggplot2_args(</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">782</td>
+                    <td class="num">46</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        labs = list(color = "Is outlier?"),</pre>
+                      <pre class="language-r">  if (length(input_path) == 0 || identical(input_path, "")) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">783</td>
+                    <td class="num">47</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        theme = list(legend.position = "top")</pre>
+                      <pre class="language-r">    input_path &lt;- list()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">784</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="never">
-                    <td class="num">785</td>
+                    <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">786</td>
+                    <td class="num">50</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      all_ggplot2_args &lt;- teal.widgets::resolve_ggplot2_args(</pre>
+                      <pre class="language-r">  checkmate::assert_string(label)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">787</td>
+                    <td class="num">51</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        user_plot = ggplot2_args[["Density Plot"]],</pre>
+                      <pre class="language-r">  checkmate::assert(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">788</td>
+                    <td class="num">52</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        user_default = ggplot2_args$default,</pre>
+                      <pre class="language-r">    checkmate::check_list(input_path, types = "character", min.len = 0),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">789</td>
+                    <td class="num">53</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        module_plot = dev_ggplot2_args</pre>
+                      <pre class="language-r">    checkmate::check_character(input_path, min.len = 1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">790</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">791</td>
+                    <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">792</td>
+                    <td class="num">56</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      parsed_ggplot2_args &lt;- teal.widgets::parse_ggplot2_args(</pre>
+                      <pre class="language-r">  if (length(input_path) &gt; 0) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">793</td>
+                    <td class="num">57</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        all_ggplot2_args,</pre>
+                      <pre class="language-r">    valid_url &lt;- function(url_input, timeout = 2) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">794</td>
+                    <td class="num">58</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ggtheme = input$ggtheme</pre>
+                      <pre class="language-r">      con &lt;- try(url(url_input), silent = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">795</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">      check &lt;- suppressWarnings(try(open.connection(con, open = "rt", timeout = timeout), silent = TRUE)[1])</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">796</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">      try(close.connection(con), silent = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">797</td>
+                    <td class="num">61</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.code::eval_code(</pre>
+                      <pre class="language-r">      ifelse(is.null(check), TRUE, FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">798</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">        common_code_q(),</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">799</td>
+                    <td class="num">63</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        substitute(</pre>
+                      <pre class="language-r">    idx &lt;- vapply(input_path, function(x) file.exists(x) || valid_url(x), logical(1))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">800</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">          expr = g &lt;- plot_call + labs + ggthemes + themes,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">801</td>
+                    <td class="num">65</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          env = list(</pre>
+                      <pre class="language-r">    if (!all(idx)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">802</td>
+                    <td class="num">66</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            plot_call = plot_call,</pre>
+                      <pre class="language-r">      warning(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">803</td>
+                    <td class="num">67</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            labs = parsed_ggplot2_args$labs,</pre>
+                      <pre class="language-r">        paste0(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">804</td>
+                    <td class="num">68</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            themes = parsed_ggplot2_args$theme,</pre>
+                      <pre class="language-r">          "Non-existent file or url path. Please provide valid paths for:\n",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">805</td>
+                    <td class="num">69</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ggthemes = parsed_ggplot2_args$ggtheme</pre>
+                      <pre class="language-r">          paste0(input_path[!idx], collapse = "\n")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">806</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="never">
-                    <td class="num">807</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">808</td>
+                    <td class="num">72</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ) %&gt;%</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">809</td>
+                    <td class="num">73</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        teal.code::eval_code(quote(print(g)))</pre>
+                      <pre class="language-r">    input_path &lt;- input_path[idx]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">810</td>
+                    <td class="num">74</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">75</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    warning(</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">76</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      "No file or url paths were provided."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">811</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">812</td>
+                    <td class="num">78</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Cumulative distribution plot</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">813</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">    cumulative_plot_q &lt;- reactive({</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">814</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">      ANL &lt;- common_code_q()[["ANL"]] # nolint: object_name.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">815</td>
+                    <td class="num">81</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ANL_OUTLIER &lt;- common_code_q()[["ANL_OUTLIER"]] # nolint: object_name.</pre>
+                      <pre class="language-r">  args &lt;- as.list(environment())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">816</td>
+                    <td class="num">82</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">817</td>
+                    <td class="num">83</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      qenv &lt;- common_code_q()</pre>
+                      <pre class="language-r">  module(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">818</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">    label = label,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">819</td>
+                    <td class="num">85</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      outlier_var &lt;- as.vector(merged$anl_input_r()$columns_source$outlier_var)</pre>
+                      <pre class="language-r">    server = srv_viewer,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">820</td>
+                    <td class="num">86</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      categorical_var &lt;- as.vector(merged$anl_input_r()$columns_source$categorical_var)</pre>
+                      <pre class="language-r">    server_args = list(input_path = input_path),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">821</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">87</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    ui = ui_viewer,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">822</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">      # validation</pre>
+                      <pre class="language-r">    ui_args = args,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">823</td>
+                    <td class="num">89</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal::validate_has_data(ANL, 1)</pre>
+                      <pre class="language-r">    datanames = NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">824</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">825</td>
+                    <td class="num">91</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # plot</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">826</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">92</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      plot_call &lt;- substitute(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">827</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">        expr = ANL %&gt;% ggplot(aes(x = outlier_var_name)) +</pre>
+                      <pre class="language-r">ui_viewer &lt;- function(id, ...) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">828</td>
+                    <td class="num">94</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          stat_ecdf(),</pre>
+                      <pre class="language-r">  args &lt;- list(...)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">829</td>
+                    <td class="num">95</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        env = list(outlier_var_name = as.name(outlier_var))</pre>
+                      <pre class="language-r">  ns &lt;- NS(id)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">830</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="missed">
-                    <td class="num">831</td>
+                    <td class="num">97</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (length(categorical_var) == 0) {</pre>
+                      <pre class="language-r">  shiny::tagList(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">832</td>
+                    <td class="num">98</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        qenv &lt;- teal.code::eval_code(</pre>
+                      <pre class="language-r">    include_css_files("custom"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">833</td>
+                    <td class="num">99</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          qenv,</pre>
+                      <pre class="language-r">    teal.widgets::standard_layout(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">834</td>
+                    <td class="num">100</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          substitute(</pre>
+                      <pre class="language-r">      output = div(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">835</td>
+                    <td class="num">101</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            expr = {</pre>
+                      <pre class="language-r">        uiOutput(ns("output"))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">836</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">              ecdf_df &lt;- ANL %&gt;%</pre>
+                      <pre class="language-r">      ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">837</td>
+                    <td class="num">103</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                dplyr::mutate(</pre>
+                      <pre class="language-r">      encoding = div(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">838</td>
+                    <td class="num">104</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  y = stats::ecdf(ANL[[outlier_var]])(ANL[[outlier_var]])</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">839</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                )</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">840</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        class = "file_viewer_encoding",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">841</td>
+                    <td class="num">105</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              outlier_points &lt;- dplyr::left_join(</pre>
+                      <pre class="language-r">        tags$label("Encodings", class = "text-primary"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">842</td>
+                    <td class="num">106</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                ecdf_df,</pre>
+                      <pre class="language-r">        shinyTree::shinyTree(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">843</td>
+                    <td class="num">107</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                ANL_OUTLIER,</pre>
+                      <pre class="language-r">          ns("tree"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">844</td>
+                    <td class="num">108</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                by = dplyr::setdiff(names(ecdf_df), "y")</pre>
+                      <pre class="language-r">          dragAndDrop = FALSE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">845</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">              ) %&gt;%</pre>
+                      <pre class="language-r">          sort = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">846</td>
+                    <td class="num">110</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                dplyr::filter(!is.na(is_outlier_selected))</pre>
+                      <pre class="language-r">          wholerow = TRUE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">847</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">            },</pre>
+                      <pre class="language-r">          theme = "proton",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">848</td>
+                    <td class="num">112</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            env = list(outlier_var = outlier_var)</pre>
+                      <pre class="language-r">          multiple = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">849</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">850</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">851</td>
+                    <td class="num">115</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">852</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        qenv &lt;- teal.code::eval_code(</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">853</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">116</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          qenv,</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">854</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">          substitute(</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">855</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">118</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            expr = {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">856</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">119</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              all_categories &lt;- lapply(</pre>
+                      <pre class="language-r">srv_viewer &lt;- function(id, input_path) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">857</td>
+                    <td class="num">120</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                unique(ANL[[categorical_var]]),</pre>
+                      <pre class="language-r">  moduleServer(id, function(input, output, session) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">858</td>
+                    <td class="num">121</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                function(x) {</pre>
+                      <pre class="language-r">    temp_dir &lt;- tempfile()</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">859</td>
+                    <td class="num">122</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  ANL &lt;- ANL %&gt;% dplyr::filter(get(categorical_var) == x) # nolint: object_name.</pre>
+                      <pre class="language-r">    if (!dir.exists(temp_dir)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">860</td>
+                    <td class="num">123</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  anl_outlier2 &lt;- ANL_OUTLIER %&gt;% dplyr::filter(get(categorical_var) == x)</pre>
+                      <pre class="language-r">      dir.create(temp_dir, recursive = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">861</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">                  ecdf_df &lt;- ANL %&gt;%</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">862</td>
+                    <td class="num">125</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    dplyr::mutate(y = stats::ecdf(ANL[[outlier_var]])(ANL[[outlier_var]]))</pre>
+                      <pre class="language-r">    addResourcePath(basename(temp_dir), temp_dir)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">863</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">864</td>
+                    <td class="num">127</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  dplyr::left_join(</pre>
+                      <pre class="language-r">    test_path_text &lt;- function(selected_path, type) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">865</td>
+                    <td class="num">128</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    ecdf_df,</pre>
+                      <pre class="language-r">      out &lt;- tryCatch(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">866</td>
+                    <td class="num">129</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    anl_outlier2,</pre>
+                      <pre class="language-r">        expr = {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">867</td>
+                    <td class="num">130</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    by = dplyr::setdiff(names(ecdf_df), "y")</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">868</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                  ) %&gt;%</pre>
+                      <pre class="language-r">          if (type != "url") {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">869</td>
+                    <td class="num">131</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    dplyr::filter(!is.na(is_outlier_selected))</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">870</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                }</pre>
+                      <pre class="language-r">            selected_path &lt;- normalizePath(selected_path, winslash = "/")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">871</td>
+                    <td class="num">132</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">872</td>
+                    <td class="num">133</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              outlier_points &lt;- do.call(rbind, all_categories)</pre>
+                      <pre class="language-r">          readLines(con = selected_path)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">873</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="missed">
-                    <td class="num">874</td>
+                    <td class="num">135</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            env = list(categorical_var = categorical_var, outlier_var = outlier_var)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">875</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">876</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">        error = function(cond) FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">877</td>
+                    <td class="num">136</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        plot_call &lt;- substitute(</pre>
+                      <pre class="language-r">        warning = function(cond) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">878</td>
+                    <td class="num">137</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          expr = plot_call + facet_grid(~ reorder(categorical_var_name, order)),</pre>
+                      <pre class="language-r">          `if`(grepl("^incomplete final line found on", cond[[1]]), suppressWarnings(eval(cond[[2]])), FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">879</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">          env = list(plot_call = plot_call, categorical_var_name = as.name(categorical_var))</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">880</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">881</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">882</td>
+                    <td class="num">141</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">883</td>
+                    <td class="num">142</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dev_ggplot2_args &lt;- teal.widgets::ggplot2_args(</pre>
+                      <pre class="language-r">    handle_connection_type &lt;- function(selected_path) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">884</td>
+                    <td class="num">143</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        labs = list(color = "Is outlier?"),</pre>
+                      <pre class="language-r">      file_extension &lt;- tools::file_ext(selected_path)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">885</td>
+                    <td class="num">144</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        theme = list(legend.position = "top")</pre>
+                      <pre class="language-r">      file_class &lt;- suppressWarnings(file(selected_path))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">886</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">145</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">      close(file_class)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">887</td>
+                    <td class="num">146</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">888</td>
+                    <td class="num">147</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      all_ggplot2_args &lt;- teal.widgets::resolve_ggplot2_args(</pre>
+                      <pre class="language-r">      output_text &lt;- test_path_text(selected_path, type = class(file_class)[1])</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">889</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">148</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        user_plot = ggplot2_args[["Cumulative Distribution Plot"]],</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">890</td>
+                    <td class="num">149</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        user_default = ggplot2_args$default,</pre>
+                      <pre class="language-r">      if (class(file_class)[1] == "url") {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">891</td>
+                    <td class="num">150</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        module_plot = dev_ggplot2_args</pre>
+                      <pre class="language-r">        list(selected_path = selected_path, output_text = output_text)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">892</td>
+                    <td class="num">151</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">893</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">        file.copy(normalizePath(selected_path, winslash = "/"), temp_dir)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">894</td>
+                    <td class="num">153</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      parsed_ggplot2_args &lt;- teal.widgets::parse_ggplot2_args(</pre>
+                      <pre class="language-r">        selected_path &lt;- file.path(basename(temp_dir), basename(selected_path))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">895</td>
+                    <td class="num">154</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        all_ggplot2_args,</pre>
+                      <pre class="language-r">        list(selected_path = selected_path, output_text = output_text)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">896</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">155</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ggtheme = input$ggtheme</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">897</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">898</td>
+                    <td class="num">157</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">899</td>
+                    <td class="num">158</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.code::eval_code(</pre>
+                      <pre class="language-r">    display_file &lt;- function(selected_path) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">900</td>
+                    <td class="num">159</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        qenv,</pre>
+                      <pre class="language-r">      con_type &lt;- handle_connection_type(selected_path)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">901</td>
+                    <td class="num">160</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        substitute(</pre>
+                      <pre class="language-r">      file_extension &lt;- tools::file_ext(selected_path)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">902</td>
+                    <td class="num">161</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          expr = g &lt;- plot_call +</pre>
+                      <pre class="language-r">      if (file_extension %in% c("png", "apng", "jpg", "jpeg", "svg", "gif", "webp", "bmp")) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">903</td>
+                    <td class="num">162</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            geom_point(data = outlier_points, aes(x = outlier_var_name, y = y, color = is_outlier_selected)) +</pre>
+                      <pre class="language-r">        tags$img(src = con_type$selected_path, alt = "file does not exist")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">904</td>
+                    <td class="num">163</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            scale_color_manual(values = c("TRUE" = "red", "FALSE" = "black")) +</pre>
+                      <pre class="language-r">      } else if (file_extension == "pdf") {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">905</td>
+                    <td class="num">164</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            labs + ggthemes + themes,</pre>
+                      <pre class="language-r">        tags$embed(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">906</td>
+                    <td class="num">165</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          env = list(</pre>
+                      <pre class="language-r">          class = "embed_pdf",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">907</td>
+                    <td class="num">166</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            plot_call = plot_call,</pre>
+                      <pre class="language-r">          src = con_type$selected_path</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">908</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">            outlier_var_name = as.name(outlier_var),</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">909</td>
+                    <td class="num">168</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            labs = parsed_ggplot2_args$labs,</pre>
+                      <pre class="language-r">      } else if (!isFALSE(con_type$output_text[1])) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">910</td>
+                    <td class="num">169</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            themes = parsed_ggplot2_args$theme,</pre>
+                      <pre class="language-r">        tags$pre(paste0(con_type$output_text, collapse = "\n"))</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">170</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">911</td>
+                    <td class="num">171</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ggthemes = parsed_ggplot2_args$ggtheme</pre>
+                      <pre class="language-r">        tags$p("Please select a supported format.")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">912</td>
+                    <td class="num">172</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">913</td>
+                    <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">914</td>
+                    <td class="num">174</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ) %&gt;%</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">915</td>
+                    <td class="num">175</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        teal.code::eval_code(quote(print(g)))</pre>
+                      <pre class="language-r">    tree_list &lt;- function(file_or_dir) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">916</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">      nested_list &lt;- lapply(file_or_dir, function(path) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">917</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">177</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        file_class &lt;- suppressWarnings(file(path))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">918</td>
+                    <td class="num">178</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    final_q &lt;- reactive({</pre>
+                      <pre class="language-r">        close(file_class)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">919</td>
+                    <td class="num">179</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      req(input$tabs)</pre>
+                      <pre class="language-r">        if (class(file_class)[[1]] != "url") {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">920</td>
+                    <td class="num">180</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      tab_type &lt;- input$tabs</pre>
+                      <pre class="language-r">          isdir &lt;- file.info(path)$isdir</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">921</td>
+                    <td class="num">181</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      result_q &lt;- if (tab_type == "Boxplot") {</pre>
+                      <pre class="language-r">          if (!isdir) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">922</td>
+                    <td class="num">182</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        boxplot_q()</pre>
+                      <pre class="language-r">            structure(path, ancestry = path, sticon = "file")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">923</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">183</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else if (tab_type == "Density Plot") {</pre>
+                      <pre class="language-r">          } else {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">924</td>
+                    <td class="num">184</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        density_plot_q()</pre>
+                      <pre class="language-r">            files &lt;- list.files(path, full.names = TRUE, include.dirs = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">925</td>
+                    <td class="num">185</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else if (tab_type == "Cumulative Distribution Plot") {</pre>
+                      <pre class="language-r">            out &lt;- lapply(files, function(x) tree_list(x))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">926</td>
+                    <td class="num">186</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        cumulative_plot_q()</pre>
+                      <pre class="language-r">            out &lt;- unlist(out, recursive = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">927</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">      }</pre>
+                      <pre class="language-r">            if (length(files) &gt; 0) names(out) &lt;- basename(files)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">928</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">      # used to display table when running show-r-code code</pre>
+                      <pre class="language-r">            out</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">929</td>
+                    <td class="num">189</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      #  added after the plots so that a change in selected columns doesn't affect</pre>
+                      <pre class="language-r">          }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">930</td>
+                    <td class="num">190</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      #  brush selection.</pre>
+                      <pre class="language-r">        } else {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">931</td>
+                    <td class="num">191</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.code::eval_code(</pre>
+                      <pre class="language-r">          structure(path, ancestry = path, sticon = "file")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">932</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">192</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        result_q,</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">933</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">        substitute(</pre>
+                      <pre class="language-r">      })</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">934</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">          expr = {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">935</td>
+                    <td class="num">195</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            columns_index &lt;- union(</pre>
+                      <pre class="language-r">      missing_labels &lt;- if (is.null(names(nested_list))) seq_along(nested_list) else which(names(nested_list) == "")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">936</td>
+                    <td class="num">196</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              setdiff(names(ANL_OUTLIER), "is_outlier_selected"),</pre>
+                      <pre class="language-r">      names(nested_list)[missing_labels] &lt;- file_or_dir[missing_labels]</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">937</td>
+                    <td class="num">197</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              table_columns</pre>
+                      <pre class="language-r">      nested_list</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">938</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="missed">
-                    <td class="num">939</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">199</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ANL_OUTLIER_EXTENDED[ANL_OUTLIER_EXTENDED$is_outlier_selected, columns_index]</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">940</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">200</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          },</pre>
+                      <pre class="language-r">    output$tree &lt;- shinyTree::renderTree({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">941</td>
+                    <td class="num">201</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          env = list(</pre>
+                      <pre class="language-r">      if (length(input_path) &gt; 0) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">942</td>
+                    <td class="num">202</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            table_columns = input$table_ui_columns</pre>
+                      <pre class="language-r">        tree_list(input_path)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">943</td>
+                    <td class="num">203</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">944</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">        )</pre>
+                      <pre class="language-r">        list("Empty Path" = NULL)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">945</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">946</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">947</td>
+                    <td class="num">207</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">948</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">    # slider text</pre>
+                      <pre class="language-r">    output$output &lt;- renderUI({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">949</td>
+                    <td class="num">209</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    output$ui_outlier_help &lt;- renderUI({</pre>
+                      <pre class="language-r">      validate(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">950</td>
+                    <td class="num">210</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      req(input$method)</pre>
+                      <pre class="language-r">        need(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">951</td>
+                    <td class="num">211</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (input$method == "IQR") {</pre>
+                      <pre class="language-r">          length(shinyTree::get_selected(input$tree)) &gt; 0,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">952</td>
+                    <td class="num">212</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        req(input$iqr_slider)</pre>
+                      <pre class="language-r">          "Please select a file."</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">953</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">213</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        tags$small(</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">954</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">214</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          withMathJax(</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"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">955</td>
+                    <td class="num">216</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            helpText(</pre>
+                      <pre class="language-r">      obj &lt;- shinyTree::get_selected(input$tree, format = "names")[[1]]</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">956</td>
+                    <td class="num">217</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              "Outlier data points (\\(x \\lt Q1 - ", input$iqr_slider, "\\times IQR\\) or \\(</pre>
+                      <pre class="language-r">      repo &lt;- attr(obj, "ancestry")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">957</td>
+                    <td class="num">218</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            Q3 + ", input$iqr_slider, "\\times IQR \\lt x\\))</pre>
+                      <pre class="language-r">      repo_collapsed &lt;- if (length(repo) &gt; 1) paste0(repo, collapse = "/") else repo</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">958</td>
+                    <td class="num">219</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            are displayed in red on the plot and can be visualized in the table below."</pre>
+                      <pre class="language-r">      is_not_named &lt;- file.exists(file.path(c(repo_collapsed, obj[1])))[1]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">959</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="missed">
-                    <td class="num">960</td>
+                    <td class="num">221</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            if (input$split_outliers) {</pre>
+                      <pre class="language-r">      if (is_not_named) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">961</td>
+                    <td class="num">222</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              withMathJax(helpText("Note: Quantiles are calculated per group."))</pre>
+                      <pre class="language-r">        selected_path &lt;- do.call("file.path", as.list(c(repo, obj[1])))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">962</td>
+                    <td class="num">223</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">963</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">224</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">        if (length(repo) == 0) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">225</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          selected_path &lt;- do.call("file.path", as.list(attr(input$tree[[obj[1]]], "ancestry")))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">964</td>
+                    <td class="num">226</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">965</td>
+                    <td class="num">227</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else if (input$method == "Z-score") {</pre>
+                      <pre class="language-r">          selected_path &lt;- do.call("file.path", as.list(attr(input$tree[[repo]][[obj[1]]], "ancestry")))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">966</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">        req(input$zscore_slider)</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">967</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">        tags$small(</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">968</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">230</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          withMathJax(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">969</td>
+                    <td class="num">231</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            helpText(</pre>
+                      <pre class="language-r">      validate(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">970</td>
+                    <td class="num">232</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              "Outlier data points (\\(Zscore(x) &lt; -", input$zscore_slider,</pre>
+                      <pre class="language-r">        need(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">971</td>
+                    <td class="num">233</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              "\\) or \\(", input$zscore_slider, "&lt; Zscore(x) \\))</pre>
+                      <pre class="language-r">          !isTRUE(file.info(selected_path)$isdir) &amp;&amp; length(selected_path) &gt; 0,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">972</td>
+                    <td class="num">234</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              are displayed in red on the plot and can be visualized in the table below."</pre>
+                      <pre class="language-r">          "Please select a single file."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">973</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="missed">
-                    <td class="num">974</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">236</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            if (input$split_outliers) {</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">975</td>
+                    <td class="num">237</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              withMathJax(helpText(" Note: Z-scores are calculated per group."))</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">976</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            }</pre>
+                      <pre class="language-r">      display_file(selected_path)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">977</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="never">
-                    <td class="num">978</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="missed">
-                    <td class="num">979</td>
+                    <td class="num">240</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else if (input$method == "Percentile") {</pre>
+                      <pre class="language-r">    onStop(function() {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">980</td>
+                    <td class="num">241</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        req(input$percentile_slider)</pre>
+                      <pre class="language-r">      removeResourcePath(basename(temp_dir))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">981</td>
+                    <td class="num">242</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        tags$small(</pre>
+                      <pre class="language-r">      unlink(temp_dir)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">982</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">243</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          withMathJax(</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">983</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">244</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            helpText(</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">984</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">245</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              "Outlier/extreme data points (\\( Percentile(x) &lt;", input$percentile_slider,</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">985</td>
-                    <td class="coverage">!</td>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/tm_g_response.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">              "\\) or \\(", 1 - input$percentile_slider, " &lt; Percentile(x) \\))</pre>
+                      <pre class="language-r">#' Response Plots</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">986</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">            are displayed in red on the plot and can be visualized in the table below."</pre>
+                      <pre class="language-r">#' @md</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">987</td>
+                    <td class="num">3</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">988</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 (input$split_outliers) {</pre>
+                      <pre class="language-r">#' @inheritParams teal::module</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">989</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">              withMathJax(helpText("Note: Percentiles are calculated per group."))</pre>
+                      <pre class="language-r">#' @inheritParams shared_params</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">990</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            }</pre>
+                      <pre class="language-r">#' @param response (`data_extract_spec` or `list` of multiple `data_extract_spec`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">991</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">#'   Which variable to use as the response. You can define one fixed column by using the</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">992</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#'   setting `fixed = TRUE` inside the `select_spec`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">993</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#'  `data_extract_spec` must not allow multiple selection in this case.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">994</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">#' @param x (`data_extract_spec` or `list` of multiple `data_extract_spec`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">995</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   Which variable to use on the X-axis of the response plot. Allow the user to select multiple</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">996</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">    boxplot_r &lt;- reactive({</pre>
+                      <pre class="language-r">#'   columns from the `data` allowed in teal.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">997</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">      teal::validate_inputs(iv_r())</pre>
+                      <pre class="language-r">#'  `data_extract_spec` must not allow multiple selection in this case.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">998</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">      boxplot_q()[["g"]]</pre>
+                      <pre class="language-r">#' @param row_facet optional, (`data_extract_spec` or `list` of multiple `data_extract_spec`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">999</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">#'   Which data columns to use for faceting rows.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1000</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">    density_plot_r &lt;- reactive({</pre>
+                      <pre class="language-r">#' @param col_facet optional, (`data_extract_spec` or `list` of multiple `data_extract_spec`)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1001</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">      teal::validate_inputs(iv_r())</pre>
+                      <pre class="language-r">#'   Which data to use for faceting columns.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1002</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">      density_plot_q()[["g"]]</pre>
+                      <pre class="language-r">#' @param coord_flip optional, (`logical`) Whether to flip coordinates between `x` and `response`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1003</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">#' @param count_labels optional, (`logical`) Whether to show count labels.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1004</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">    cumulative_plot_r &lt;- reactive({</pre>
+                      <pre class="language-r">#'   Defaults to `TRUE`.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1005</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">      teal::validate_inputs(iv_r())</pre>
+                      <pre class="language-r">#' @param freq optional, (`logical`) Whether to display frequency (`TRUE`) or density (`FALSE`).</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1006</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">      cumulative_plot_q()[["g"]]</pre>
+                      <pre class="language-r">#'   Defaults to density (`FALSE`).</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1007</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">1008</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @note For more examples, please see the vignette "Using response plot" via</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1009</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">    box_pws &lt;- teal.widgets::plot_with_settings_srv(</pre>
+                      <pre class="language-r">#'   \code{vignette("using-response-plot", package = "teal.modules.general")}.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1010</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">      id = "box_plot",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1011</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">      plot_r = boxplot_r,</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1012</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">      height = plot_height,</pre>
+                      <pre class="language-r">#' # general data example</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1013</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">      width = plot_width,</pre>
+                      <pre class="language-r">#' library(teal.widgets)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1014</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">      brushing = TRUE</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1015</td>
+                    <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#' data &lt;- teal_data()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1016</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' data &lt;- within(data, {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1017</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">    density_pws &lt;- teal.widgets::plot_with_settings_srv(</pre>
+                      <pre class="language-r">#'   library(nestcolor)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1018</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">      id = "density_plot",</pre>
+                      <pre class="language-r">#'   mtcars &lt;- mtcars</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1019</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">      plot_r = density_plot_r,</pre>
+                      <pre class="language-r">#'   for (v in c("cyl", "vs", "am", "gear")) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1020</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">      height = plot_height,</pre>
+                      <pre class="language-r">#'     mtcars[[v]] &lt;- as.factor(mtcars[[v]])</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1021</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">      width = plot_width,</pre>
+                      <pre class="language-r">#'   }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1022</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">      brushing = TRUE</pre>
+                      <pre class="language-r">#' })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1023</td>
+                    <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#' datanames(data) &lt;- "mtcars"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1024</td>
+                    <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="missed">
-                    <td class="num">1025</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">    cum_density_pws &lt;- teal.widgets::plot_with_settings_srv(</pre>
+                      <pre class="language-r">#' app &lt;- init(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1026</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">      id = "cum_density_plot",</pre>
+                      <pre class="language-r">#'   data = data,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1027</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">      plot_r = cumulative_plot_r,</pre>
+                      <pre class="language-r">#'   modules = modules(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1028</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">      height = plot_height,</pre>
+                      <pre class="language-r">#'     tm_g_response(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1029</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">      width = plot_width,</pre>
+                      <pre class="language-r">#'       label = "Response Plots",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1030</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">      brushing = TRUE</pre>
+                      <pre class="language-r">#'       response = data_extract_spec(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1031</td>
+                    <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#'         dataname = "mtcars",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1032</td>
+                    <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'         select = select_spec(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1033</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">    choices &lt;- teal.transform::variable_choices(data()[[dataname_first]])</pre>
+                      <pre class="language-r">#'           label = "Select variable:",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1034</td>
+                    <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'           choices = variable_choices(data[["mtcars"]], c("cyl", "gear")),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1035</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">    observeEvent(common_code_q(), {</pre>
+                      <pre class="language-r">#'           selected = "cyl",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1036</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">      ANL_OUTLIER &lt;- common_code_q()[["ANL_OUTLIER"]] # nolint: object_name.</pre>
+                      <pre class="language-r">#'           multiple = FALSE,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1037</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">      teal.widgets::updateOptionalSelectInput(</pre>
+                      <pre class="language-r">#'           fixed = FALSE</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1038</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">        session,</pre>
+                      <pre class="language-r">#'         )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1039</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">        inputId = "table_ui_columns",</pre>
+                      <pre class="language-r">#'       ),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1040</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">        choices = dplyr::setdiff(choices, names(ANL_OUTLIER)),</pre>
+                      <pre class="language-r">#'       x = data_extract_spec(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1041</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">        selected = isolate(input$table_ui_columns)</pre>
+                      <pre class="language-r">#'         dataname = "mtcars",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1042</td>
+                    <td class="num">58</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#'         select = select_spec(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1043</td>
+                    <td class="num">59</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">#'           label = "Select variable:",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1044</td>
+                    <td class="num">60</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'           choices = variable_choices(data[["mtcars"]], c("vs", "am")),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1045</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">    output$table_ui &lt;- DT::renderDataTable(</pre>
+                      <pre class="language-r">#'           selected = "vs",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1046</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">      expr = {</pre>
+                      <pre class="language-r">#'           multiple = FALSE,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1047</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">        tab &lt;- input$tabs</pre>
+                      <pre class="language-r">#'           fixed = FALSE</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1048</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">        req(tab) # tab is NULL upon app launch, hence will crash without this statement</pre>
+                      <pre class="language-r">#'         )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1049</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">        outlier_var &lt;- as.vector(merged$anl_input_r()$columns_source$outlier_var)</pre>
+                      <pre class="language-r">#'       ),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1050</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">        categorical_var &lt;- as.vector(merged$anl_input_r()$columns_source$categorical_var)</pre>
+                      <pre class="language-r">#'       ggplot2_args = ggplot2_args(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1051</td>
+                    <td class="num">67</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'         labs = list(subtitle = "Plot generated by Response Module")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1052</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">        ANL_OUTLIER &lt;- common_code_q()[["ANL_OUTLIER"]] # nolint: object_name.</pre>
+                      <pre class="language-r">#'       )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1053</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">        ANL_OUTLIER_EXTENDED &lt;- common_code_q()[["ANL_OUTLIER_EXTENDED"]] # nolint: object_name.</pre>
+                      <pre class="language-r">#'     )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1054</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">        ANL &lt;- common_code_q()[["ANL"]] # nolint: object_name.</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1055</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">        plot_brush &lt;- if (tab == "Boxplot") {</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1056</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">          boxplot_r()</pre>
+                      <pre class="language-r">#' if (interactive()) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1057</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">          box_pws$brush()</pre>
+                      <pre class="language-r">#'   shinyApp(app$ui, app$server)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1058</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">        } else if (tab == "Density Plot") {</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1059</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">75</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          density_plot_r()</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1060</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">          density_pws$brush()</pre>
+                      <pre class="language-r">#' # CDISC data example</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1061</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">        } else if (tab == "Cumulative Distribution Plot") {</pre>
+                      <pre class="language-r">#' library(teal.widgets)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1062</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">          cumulative_plot_r()</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1063</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">          cum_density_pws$brush()</pre>
+                      <pre class="language-r">#' data &lt;- teal_data()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1064</td>
+                    <td class="num">80</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">#' data &lt;- within(data, {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1065</td>
+                    <td class="num">81</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   library(nestcolor)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1066</td>
+                    <td class="num">82</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # removing unused column ASAP</pre>
+                      <pre class="language-r">#'   ADSL &lt;- rADSL</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1067</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">        ANL_OUTLIER$order &lt;- ANL$order &lt;- NULL # nolint: object_name.</pre>
+                      <pre class="language-r">#' })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1068</td>
+                    <td class="num">84</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' datanames(data) &lt;- c("ADSL")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1069</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">        display_table &lt;- if (!is.null(plot_brush)) {</pre>
+                      <pre class="language-r">#' join_keys(data) &lt;- default_cdisc_join_keys[datanames(data)]</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1070</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(categorical_var) &gt; 0) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1071</td>
+                    <td class="num">87</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            # due to reordering, the x-axis label may be changed to something like "reorder(categorical_var, order)"</pre>
+                      <pre class="language-r">#' app &lt;- init(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1072</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">            if (tab == "Boxplot") {</pre>
+                      <pre class="language-r">#'   data = data,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1073</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">              plot_brush$mapping$x &lt;- categorical_var</pre>
+                      <pre class="language-r">#'   modules = modules(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1074</td>
+                    <td class="num">90</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            } else {</pre>
+                      <pre class="language-r">#'     tm_g_response(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1075</td>
+                    <td class="num">91</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              # the other plots use facetting</pre>
+                      <pre class="language-r">#'       label = "Response Plots",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1076</td>
+                    <td class="num">92</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              # so it is panelvar1 that gets relabelled to "reorder(categorical_var, order)"</pre>
+                      <pre class="language-r">#'       response = data_extract_spec(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1077</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">              plot_brush$mapping$panelvar1 &lt;- categorical_var</pre>
+                      <pre class="language-r">#'         dataname = "ADSL",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1078</td>
+                    <td class="num">94</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            }</pre>
+                      <pre class="language-r">#'         select = select_spec(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1079</td>
+                    <td class="num">95</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          } else {</pre>
+                      <pre class="language-r">#'           label = "Select variable:",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1080</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">            if (tab == "Boxplot") {</pre>
+                      <pre class="language-r">#'           choices = variable_choices(data[["ADSL"]], c("BMRKR2", "COUNTRY")),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1081</td>
+                    <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              # in boxplot with no categorical variable, there is no column in ANL that would correspond to x-axis</pre>
+                      <pre class="language-r">#'           selected = "BMRKR2",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1082</td>
+                    <td class="num">98</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              # so a column needs to be inserted with the value "Entire dataset" because that's the label used in plot</pre>
+                      <pre class="language-r">#'           multiple = FALSE,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1083</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">99</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              ANL[[plot_brush$mapping$x]] &lt;- "Entire dataset" # nolint: object_name.</pre>
+                      <pre class="language-r">#'           fixed = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1084</td>
+                    <td class="num">100</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            }</pre>
+                      <pre class="language-r">#'         )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1085</td>
+                    <td class="num">101</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          }</pre>
+                      <pre class="language-r">#'       ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1086</td>
+                    <td class="num">102</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'       x = data_extract_spec(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1087</td>
+                    <td class="num">103</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          # in density and cumulative plots, ANL does not have a column corresponding to y-axis.</pre>
+                      <pre class="language-r">#'         dataname = "ADSL",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1088</td>
+                    <td class="num">104</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          # so they need to be computed and attached to ANL</pre>
+                      <pre class="language-r">#'         select = select_spec(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1089</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">          if (tab == "Density Plot") {</pre>
+                      <pre class="language-r">#'           label = "Select variable:",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1090</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">            plot_brush$mapping$y &lt;- "density"</pre>
+                      <pre class="language-r">#'           choices = variable_choices(data[["ADSL"]], c("SEX", "RACE")),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1091</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">            ANL$density &lt;- plot_brush$ymin # nolint: object_name.</pre>
+                      <pre class="language-r">#'           selected = "RACE",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1092</td>
+                    <td class="num">108</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            # either ymin or ymax will work</pre>
+                      <pre class="language-r">#'           multiple = FALSE,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1093</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">          } else if (tab == "Cumulative Distribution Plot") {</pre>
+                      <pre class="language-r">#'           fixed = FALSE</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1094</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">110</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            plot_brush$mapping$y &lt;- "cdf"</pre>
+                      <pre class="language-r">#'         )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1095</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">            if (length(categorical_var) &gt; 0) {</pre>
+                      <pre class="language-r">#'       ),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1096</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">              ANL &lt;- ANL %&gt;% # nolint: object_name.</pre>
+                      <pre class="language-r">#'       ggplot2_args = ggplot2_args(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1097</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">                dplyr::group_by(!!as.name(plot_brush$mapping$panelvar1)) %&gt;%</pre>
+                      <pre class="language-r">#'         labs = list(subtitle = "Plot generated by Response Module")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1098</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">                dplyr::mutate(cdf = stats::ecdf(!!as.name(outlier_var))(!!as.name(outlier_var)))</pre>
+                      <pre class="language-r">#'       )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1099</td>
+                    <td class="num">115</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">1100</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">116</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              ANL$cdf &lt;- stats::ecdf(ANL[[outlier_var]])(ANL[[outlier_var]]) # nolint: object_name.</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1101</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">1102</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">1103</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="missed">
-                    <td class="num">1104</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">          brushed_rows &lt;- brushedPoints(ANL, plot_brush)</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1105</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">          if (nrow(brushed_rows) &gt; 0) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1106</td>
+                    <td class="num">122</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            # now we need to remove extra column from ANL so that it will have the same columns as ANL_OUTLIER</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1107</td>
+                    <td class="num">123</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            # so that dplyr::intersect will work</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1108</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 (tab == "Density Plot") {</pre>
+                      <pre class="language-r">tm_g_response &lt;- function(label = "Response Plot",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1109</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">125</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              brushed_rows$density &lt;- NULL</pre>
+                      <pre class="language-r">                          response,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1110</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">126</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            } else if (tab == "Cumulative Distribution Plot") {</pre>
+                      <pre class="language-r">                          x,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1111</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">              brushed_rows$cdf &lt;- NULL</pre>
+                      <pre class="language-r">                          row_facet = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1112</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">128</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            } else if (tab == "Boxplot" &amp;&amp; length(categorical_var) == 0) {</pre>
+                      <pre class="language-r">                          col_facet = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1113</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">              brushed_rows[[plot_brush$mapping$x]] &lt;- NULL</pre>
+                      <pre class="language-r">                          coord_flip = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1114</td>
+                    <td class="num">130</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            }</pre>
+                      <pre class="language-r">                          count_labels = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1115</td>
+                    <td class="num">131</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            # is_outlier_selected is part of ANL_OUTLIER so needed here</pre>
+                      <pre class="language-r">                          rotate_xaxis_labels = FALSE,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1116</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">132</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            brushed_rows$is_outlier_selected &lt;- TRUE</pre>
+                      <pre class="language-r">                          freq = FALSE,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1117</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">133</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            dplyr::intersect(ANL_OUTLIER, brushed_rows)</pre>
+                      <pre class="language-r">                          plot_height = c(600, 400, 5000),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1118</td>
+                    <td class="num">134</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          } else {</pre>
+                      <pre class="language-r">                          plot_width = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1119</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">            ANL_OUTLIER[0, ]</pre>
+                      <pre class="language-r">                          ggtheme = c("gray", "bw", "linedraw", "light", "dark", "minimal", "classic", "void"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1120</td>
+                    <td class="num">136</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          }</pre>
+                      <pre class="language-r">                          ggplot2_args = teal.widgets::ggplot2_args(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1121</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_output = NULL,</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">138</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                          post_output = NULL) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1122</td>
+                    <td class="num">139</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ANL_OUTLIER[ANL_OUTLIER$is_outlier_selected, ]</pre>
+                      <pre class="language-r">  logger::log_info("Initializing tm_g_response")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1123</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">140</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">  if (inherits(response, "data_extract_spec")) response &lt;- list(response)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1124</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">141</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  if (inherits(x, "data_extract_spec")) x &lt;- list(x)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1125</td>
+                    <td class="num">142</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        display_table$is_outlier_selected &lt;- NULL</pre>
+                      <pre class="language-r">  if (inherits(row_facet, "data_extract_spec")) row_facet &lt;- list(row_facet)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1126</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">143</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  if (inherits(col_facet, "data_extract_spec")) col_facet &lt;- list(col_facet)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1127</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">        # Extend the brushed ANL_OUTLIER with additional columns</pre>
+                      <pre class="language-r">  checkmate::assert_string(label)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1128</td>
+                    <td class="num">145</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        dplyr::left_join(</pre>
+                      <pre class="language-r">  ggtheme &lt;- match.arg(ggtheme)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1129</td>
+                    <td class="num">146</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          display_table,</pre>
+                      <pre class="language-r">  checkmate::assert_list(response, types = "data_extract_spec")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1130</td>
+                    <td class="num">147</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          dplyr::select(ANL_OUTLIER_EXTENDED, -"is_outlier_selected"),</pre>
+                      <pre class="language-r">  if (!all(vapply(response, function(x) !("" %in% x$select$choices), logical(1)))) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1131</td>
+                    <td class="num">148</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          by = names(display_table)</pre>
+                      <pre class="language-r">    stop("'response' should not allow empty values")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1132</td>
+                    <td class="num">149</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ) %&gt;%</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1133</td>
+                    <td class="num">150</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          dplyr::select(union(names(display_table), input$table_ui_columns))</pre>
+                      <pre class="language-r">  if (!all(vapply(response, function(x) !x$select$multiple, logical(1)))) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">151</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    stop("'response' should not allow multiple selection")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1134</td>
+                    <td class="num">152</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">1135</td>
+                    <td class="num">153</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      options = list(</pre>
+                      <pre class="language-r">  checkmate::assert_list(x, types = "data_extract_spec")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1136</td>
+                    <td class="num">154</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        searching = FALSE, language = list(</pre>
+                      <pre class="language-r">  if (!all(vapply(x, function(x) !("" %in% x$select$choices), logical(1)))) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1137</td>
+                    <td class="num">155</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          zeroRecords = "The brushed area does not contain outlier observations for the currently defined threshold"</pre>
+                      <pre class="language-r">    stop("'x' should not allow empty values")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1138</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="missed">
-                    <td class="num">1139</td>
+                    <td class="num">157</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        pageLength = input$table_ui_rows</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">1140</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">  if (!all(vapply(x, function(x) !x$select$multiple, logical(1)))) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1141</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">    stop("'x' should not allow multiple selection")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1142</td>
+                    <td class="num">159</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">1143</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    output$total_outliers &lt;- renderUI({</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1144</td>
+                    <td class="num">160</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      shiny::req(iv_r()$is_valid())</pre>
+                      <pre class="language-r">  checkmate::assert_list(row_facet, types = "data_extract_spec", null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1145</td>
+                    <td class="num">161</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ANL &lt;- merged$anl_q_r()[["ANL"]] # nolint: object_name.</pre>
+                      <pre class="language-r">  checkmate::assert_list(col_facet, types = "data_extract_spec", null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1146</td>
+                    <td class="num">162</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ANL_OUTLIER &lt;- common_code_q()[["ANL_OUTLIER"]] # nolint: object_name.</pre>
+                      <pre class="language-r">  checkmate::assert_flag(coord_flip)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1147</td>
+                    <td class="num">163</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal::validate_has_data(ANL, 1)</pre>
+                      <pre class="language-r">  checkmate::assert_flag(count_labels)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1148</td>
+                    <td class="num">164</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ANL_OUTLIER_SELECTED &lt;- ANL_OUTLIER[ANL_OUTLIER$is_outlier_selected, ] # nolint: object_name.</pre>
+                      <pre class="language-r">  checkmate::assert_flag(rotate_xaxis_labels)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1149</td>
+                    <td class="num">165</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      h5(</pre>
+                      <pre class="language-r">  checkmate::assert_flag(freq)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1150</td>
+                    <td class="num">166</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        sprintf(</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(plot_height, len = 3, any.missing = FALSE, finite = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1151</td>
+                    <td class="num">167</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "%s %d / %d [%.02f%%]",</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(plot_height[1], lower = plot_height[2], upper = plot_height[3], .var.name = "plot_height")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1152</td>
+                    <td class="num">168</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "Total number of outlier(s):",</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(plot_width, len = 3, any.missing = FALSE, null.ok = TRUE, finite = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1153</td>
+                    <td class="num">169</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          nrow(ANL_OUTLIER_SELECTED),</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1154</td>
+                    <td class="num">170</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          nrow(ANL),</pre>
+                      <pre class="language-r">    plot_width[1],</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1155</td>
+                    <td class="num">171</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          100 * nrow(ANL_OUTLIER_SELECTED) / nrow(ANL)</pre>
+                      <pre class="language-r">    lower = plot_width[2], upper = plot_width[3], null.ok = TRUE, .var.name = "plot_width"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1156</td>
+                    <td class="num">172</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1157</td>
+                    <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">1158</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">    })</pre>
+                      <pre class="language-r">  checkmate::assert_class(ggplot2_args, "ggplot2_args")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1159</td>
+                    <td class="num">175</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1160</td>
+                    <td class="num">176</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    output$total_missing &lt;- renderUI({</pre>
+                      <pre class="language-r">  args &lt;- as.list(environment())</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1161</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 (n_outlier_missing() &gt; 0) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1162</td>
+                    <td class="num">178</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ANL &lt;- merged$anl_q_r()[["ANL"]] # nolint: object_name.</pre>
+                      <pre class="language-r">  data_extract_list &lt;- list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1163</td>
+                    <td class="num">179</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        helpText(</pre>
+                      <pre class="language-r">    response = response,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1164</td>
+                    <td class="num">180</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          sprintf(</pre>
+                      <pre class="language-r">    x = x,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1165</td>
+                    <td class="num">181</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            "%s %d / %d [%.02f%%]",</pre>
+                      <pre class="language-r">    row_facet = row_facet,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1166</td>
+                    <td class="num">182</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            "Total number of row(s) with missing values:",</pre>
+                      <pre class="language-r">    col_facet = col_facet</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1167</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">183</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            n_outlier_missing(),</pre>
+                      <pre class="language-r">  )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <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">1168</td>
+                    <td class="num">185</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            nrow(ANL),</pre>
+                      <pre class="language-r">  module(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1169</td>
+                    <td class="num">186</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            100 * (n_outlier_missing()) / nrow(ANL)</pre>
+                      <pre class="language-r">    label = label,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">187</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    server = srv_g_response,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">188</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    ui = ui_g_response,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">189</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    ui_args = args,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">190</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    server_args = c(</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">191</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      data_extract_list,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">192</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      list(plot_height = plot_height, plot_width = plot_width, ggplot2_args = ggplot2_args)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1170</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="missed">
+                    <td class="num">194</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    datanames = teal.transform::get_extract_datanames(data_extract_list)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1171</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">1172</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">1173</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="never">
-                    <td class="num">1174</td>
+                    <td class="num">198</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">ui_g_response &lt;- function(id, ...) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1175</td>
+                    <td class="num">199</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    output$table_ui_wrap &lt;- renderUI({</pre>
+                      <pre class="language-r">  ns &lt;- NS(id)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1176</td>
+                    <td class="num">200</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      shiny::req(iv_r()$is_valid())</pre>
+                      <pre class="language-r">  args &lt;- list(...)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1177</td>
+                    <td class="num">201</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      tagList(</pre>
+                      <pre class="language-r">  is_single_dataset_value &lt;- teal.transform::is_single_dataset(args$response, args$x, args$row_facet, args$col_facet)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1178</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">202</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        teal.widgets::optionalSelectInput(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1179</td>
+                    <td class="num">203</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          inputId = session$ns("table_ui_columns"),</pre>
+                      <pre class="language-r">  teal.widgets::standard_layout(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1180</td>
+                    <td class="num">204</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          label = "Choose additional columns",</pre>
+                      <pre class="language-r">    output = teal.widgets::white_small_well(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1181</td>
+                    <td class="num">205</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          choices = NULL,</pre>
+                      <pre class="language-r">      teal.widgets::plot_with_settings_ui(id = ns("myplot"))</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>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1182</td>
+                    <td class="num">207</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          selected = NULL,</pre>
+                      <pre class="language-r">    encoding = div(</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">208</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      ### Reporter</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1183</td>
+                    <td class="num">209</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          multiple = TRUE</pre>
+                      <pre class="language-r">      teal.reporter::simple_reporter_ui(ns("simple_reporter")),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1184</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="missed">
-                    <td class="num">1185</td>
+                    <td class="num">211</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        h4("Outlier Table"),</pre>
+                      <pre class="language-r">      tags$label("Encodings", class = "text-primary"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1186</td>
+                    <td class="num">212</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        teal.widgets::get_dt_rows(session$ns("table_ui"), session$ns("table_ui_rows")),</pre>
+                      <pre class="language-r">      teal.transform::datanames_input(args[c("response", "x", "row_facet", "col_facet")]),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1187</td>
+                    <td class="num">213</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        DT::dataTableOutput(session$ns("table_ui"))</pre>
+                      <pre class="language-r">      teal.transform::data_extract_ui(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1188</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">214</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">        id = ns("response"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1189</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">    })</pre>
+                      <pre class="language-r">        label = "Response variable",</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">216</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        data_extract_spec = args$response,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">217</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        is_single_dataset = is_single_dataset_value</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1190</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="missed">
-                    <td class="num">1191</td>
+                    <td class="num">219</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    teal.widgets::verbatim_popup_srv(</pre>
+                      <pre class="language-r">      teal.transform::data_extract_ui(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1192</td>
+                    <td class="num">220</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      id = "warning",</pre>
+                      <pre class="language-r">        id = ns("x"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1193</td>
+                    <td class="num">221</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      verbatim_content = reactive(teal.code::get_warnings(final_q())),</pre>
+                      <pre class="language-r">        label = "X variable",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1194</td>
+                    <td class="num">222</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      title = "Warning",</pre>
+                      <pre class="language-r">        data_extract_spec = args$x,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1195</td>
+                    <td class="num">223</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      disabled = reactive(is.null(teal.code::get_warnings(final_q())))</pre>
+                      <pre class="language-r">        is_single_dataset = is_single_dataset_value</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1196</td>
+                    <td class="num">224</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">      ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1197</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"></pre>
+                      <pre class="language-r">      if (!is.null(args$row_facet)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1198</td>
+                    <td class="num">226</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    teal.widgets::verbatim_popup_srv(</pre>
+                      <pre class="language-r">        teal.transform::data_extract_ui(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1199</td>
+                    <td class="num">227</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      id = "rcode",</pre>
+                      <pre class="language-r">          id = ns("row_facet"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1200</td>
+                    <td class="num">228</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      verbatim_content = reactive(teal.code::get_code(final_q())),</pre>
+                      <pre class="language-r">          label = "Row facetting",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1201</td>
+                    <td class="num">229</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      title = "Show R Code for Outlier"</pre>
+                      <pre class="language-r">          data_extract_spec = args$row_facet,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1202</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">    )</pre>
+                      <pre class="language-r">          is_single_dataset = is_single_dataset_value</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1203</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">1204</td>
+                    <td class="num">232</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ### REPORTER</pre>
+                      <pre class="language-r">      },</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1205</td>
+                    <td class="num">233</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (with_reporter) {</pre>
+                      <pre class="language-r">      if (!is.null(args$col_facet)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1206</td>
+                    <td class="num">234</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      card_fun &lt;- function(comment, label) {</pre>
+                      <pre class="language-r">        teal.transform::data_extract_ui(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1207</td>
+                    <td class="num">235</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        tab_type &lt;- input$tabs</pre>
+                      <pre class="language-r">          id = ns("col_facet"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1208</td>
+                    <td class="num">236</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        card &lt;- teal::report_card_template(</pre>
+                      <pre class="language-r">          label = "Column facetting",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1209</td>
+                    <td class="num">237</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          title = paste0("Outliers - ", tab_type),</pre>
+                      <pre class="language-r">          data_extract_spec = args$col_facet,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1210</td>
+                    <td class="num">238</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          label = label,</pre>
+                      <pre class="language-r">          is_single_dataset = is_single_dataset_value</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1211</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">239</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          with_filter = with_filter,</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1212</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">          filter_panel_api = filter_panel_api</pre>
+                      <pre class="language-r">      },</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1213</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">        )</pre>
+                      <pre class="language-r">      shinyWidgets::radioGroupButtons(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1214</td>
+                    <td class="num">242</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        categorical_var &lt;- as.vector(merged$anl_input_r()$columns_source$categorical_var)</pre>
+                      <pre class="language-r">        inputId = ns("freq"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1215</td>
+                    <td class="num">243</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (length(categorical_var) &gt; 0) {</pre>
+                      <pre class="language-r">        label = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1216</td>
+                    <td class="num">244</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          summary_table &lt;- common_code_q()[["summary_table"]]</pre>
+                      <pre class="language-r">        choices = c("frequency", "density"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1217</td>
+                    <td class="num">245</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          card$append_text("Summary Table", "header3")</pre>
+                      <pre class="language-r">        selected = ifelse(args$freq, "frequency", "density"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1218</td>
+                    <td class="num">246</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          card$append_table(summary_table)</pre>
+                      <pre class="language-r">        justified = TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1219</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="missed">
-                    <td class="num">1220</td>
+                    <td class="num">248</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        card$append_text("Plot", "header3")</pre>
+                      <pre class="language-r">      teal.widgets::panel_group(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1221</td>
+                    <td class="num">249</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (tab_type == "Boxplot") {</pre>
+                      <pre class="language-r">        teal.widgets::panel_item(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1222</td>
+                    <td class="num">250</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          card$append_plot(boxplot_r(), dim = box_pws$dim())</pre>
+                      <pre class="language-r">          title = "Plot settings",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1223</td>
+                    <td class="num">251</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        } else if (tab_type == "Density Plot") {</pre>
+                      <pre class="language-r">          checkboxInput(ns("count_labels"), "Add count labels", value = args$count_labels),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1224</td>
+                    <td class="num">252</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          card$append_plot(density_plot_r(), dim = density_pws$dim())</pre>
+                      <pre class="language-r">          checkboxInput(ns("coord_flip"), "Swap axes", value = args$coord_flip),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1225</td>
+                    <td class="num">253</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        } else if (tab_type == "Cumulative Distribution Plot") {</pre>
+                      <pre class="language-r">          checkboxInput(ns("rotate_xaxis_labels"), "Rotate X axis labels", value = args$rotate_xaxis_labels),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1226</td>
+                    <td class="num">254</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          card$append_plot(cumulative_plot_r(), dim = cum_density_pws$dim())</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">1227</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">
-                    <td class="num">1228</td>
+                    <td class="num">255</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (!comment == "") {</pre>
+                      <pre class="language-r">            inputId = ns("ggtheme"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1229</td>
+                    <td class="num">256</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          card$append_text("Comment", "header3")</pre>
+                      <pre class="language-r">            label = "Theme (by ggplot):",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1230</td>
+                    <td class="num">257</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          card$append_text(comment)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">1231</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">            choices = ggplot_themes,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1232</td>
+                    <td class="num">258</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        card$append_src(teal.code::get_code(final_q()))</pre>
+                      <pre class="language-r">            selected = args$ggtheme,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1233</td>
+                    <td class="num">259</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        card</pre>
+                      <pre class="language-r">            multiple = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1234</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="missed">
-                    <td class="num">1235</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">261</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun)</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1236</td>
+                    <td class="num">262</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1237</td>
+                    <td class="num">263</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ###</pre>
+                      <pre class="language-r">    ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1238</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">  })</pre>
+                      <pre class="language-r">    forms = tagList(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1239</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">      teal.widgets::verbatim_popup_ui(ns("warning"), button_label = "Show Warnings"),</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/tm_g_association.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">266</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Stack Plots of variables and show association with reference variable</pre>
+                      <pre class="language-r">      teal.widgets::verbatim_popup_ui(ns("rcode"), "Show R code")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">267</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @md</pre>
+                      <pre class="language-r">    ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">3</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">#'</pre>
+                      <pre class="language-r">    pre_output = args$pre_output,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">4</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">#' @inheritParams teal::module</pre>
+                      <pre class="language-r">    post_output = args$post_output</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">270</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams shared_params</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">271</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param ref (`data_extract_spec` or `list` of multiple `data_extract_spec`)</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">272</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   reference variable, must set `multiple = FALSE`.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">273</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param vars (`data_extract_spec` or `list` of multiple `data_extract_spec`)</pre>
+                      <pre class="language-r">srv_g_response &lt;- function(id,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">274</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   associated variables.</pre>
+                      <pre class="language-r">                           data,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">275</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param show_association optional, (`logical`) Whether show association of `vars`</pre>
+                      <pre class="language-r">                           reporter,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">276</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   with reference variable. Defaults to `TRUE`.</pre>
+                      <pre class="language-r">                           filter_panel_api,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">277</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param distribution_theme,association_theme optional, (`character`) `ggplot2` themes to be used by default.</pre>
+                      <pre class="language-r">                           response,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">278</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   Default to `"gray"`.</pre>
+                      <pre class="language-r">                           x,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">279</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                           row_facet,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">280</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @templateVar ggnames "Bivariate1", "Bivariate2"</pre>
+                      <pre class="language-r">                           col_facet,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">281</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @template ggplot2_args_multi</pre>
+                      <pre class="language-r">                           plot_height,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">282</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                           plot_width,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">283</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @note For more examples, please see the vignette "Using association plot" via</pre>
+                      <pre class="language-r">                           ggplot2_args) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">19</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">#'   \code{vignette("using-association-plot", package = "teal.modules.general")}.</pre>
+                      <pre class="language-r">  with_reporter &lt;- !missing(reporter) &amp;&amp; inherits(reporter, "Reporter")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">20</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">285</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  with_filter &lt;- !missing(filter_panel_api) &amp;&amp; inherits(filter_panel_api, "FilterPanelAPI")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">21</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">286</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">  checkmate::assert_class(data, "reactive")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">22</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">#' # general data exapmle</pre>
+                      <pre class="language-r">  checkmate::assert_class(isolate(data()), "teal_data")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">23</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">#' library(teal.widgets)</pre>
+                      <pre class="language-r">  moduleServer(id, function(input, output, session) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">24</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">#'</pre>
+                      <pre class="language-r">    data_extract &lt;- list(response = response, x = x, row_facet = row_facet, col_facet = col_facet)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">290</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' data &lt;- teal_data()</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">26</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">291</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' data &lt;- within(data, {</pre>
+                      <pre class="language-r">    rule_diff &lt;- function(other) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">27</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">#'   library(nestcolor)</pre>
+                      <pre class="language-r">      function(value) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">28</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">#'   CO2 &lt;- CO2</pre>
+                      <pre class="language-r">        if (other %in% names(selector_list())) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">29</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">#'   factors &lt;- names(Filter(isTRUE, vapply(CO2, is.factor, logical(1L))))</pre>
+                      <pre class="language-r">          othervalue &lt;- selector_list()[[other]]()[["select"]]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">30</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">#'   CO2[factors] &lt;- lapply(CO2[factors], as.character)</pre>
+                      <pre class="language-r">          if (!is.null(othervalue)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">31</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">#' })</pre>
+                      <pre class="language-r">            if (identical(value, othervalue)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">32</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">#' datanames(data) &lt;- c("CO2")</pre>
+                      <pre class="language-r">              "Row and column facetting variables must be different."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</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">34</td>
+                    <td class="num">299</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">35</td>
+                    <td class="num">300</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = data,</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">36</td>
+                    <td class="num">301</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">37</td>
+                    <td class="num">302</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     tm_g_association(</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">303</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       ref = data_extract_spec(</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">304</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         dataname = "CO2",</pre>
+                      <pre class="language-r">    selector_list &lt;- teal.transform::data_extract_multiple_srv(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">40</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">#'         select = select_spec(</pre>
+                      <pre class="language-r">      data_extract = data_extract,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">41</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">#'           label = "Select variable:",</pre>
+                      <pre class="language-r">      datasets = data,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">42</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">#'           choices = variable_choices(data[["CO2"]], c("Plant", "Type", "Treatment")),</pre>
+                      <pre class="language-r">      select_validation_rule = list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">43</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">#'           selected = "Plant",</pre>
+                      <pre class="language-r">        response = shinyvalidate::sv_required("Please define a column for the response variable"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">44</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">#'           fixed = FALSE</pre>
+                      <pre class="language-r">        x = shinyvalidate::sv_required("Please define a column for X variable"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">45</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">#'         )</pre>
+                      <pre class="language-r">        row_facet = shinyvalidate::compose_rules(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">46</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">          shinyvalidate::sv_optional(),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">47</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">#'       vars = data_extract_spec(</pre>
+                      <pre class="language-r">          ~ if (length(.) &gt; 1) "There must be 1 or no row facetting variable.",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">48</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">313</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         dataname = "CO2",</pre>
+                      <pre class="language-r">          rule_diff("col_facet")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">49</td>
+                    <td class="num">314</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         select = select_spec(</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">315</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           label = "Select variables:",</pre>
+                      <pre class="language-r">        col_facet = shinyvalidate::compose_rules(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">51</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">316</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           choices = variable_choices(data[["CO2"]], c("Plant", "Type", "Treatment")),</pre>
+                      <pre class="language-r">          shinyvalidate::sv_optional(),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">52</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">317</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           selected = "Treatment",</pre>
+                      <pre class="language-r">          ~ if (length(.) &gt; 1) "There must be 1 or no column facetting variable.",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">53</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">318</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           multiple = TRUE,</pre>
+                      <pre class="language-r">          rule_diff("row_facet")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">54</td>
+                    <td class="num">319</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           fixed = FALSE</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">55</td>
+                    <td class="num">320</td>
                     <td class="coverage"></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">321</td>
                     <td class="coverage"></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">322</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       ggplot2_args = ggplot2_args(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">58</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">323</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         labs = list(subtitle = "Plot generated by Association Module")</pre>
+                      <pre class="language-r">    iv_r &lt;- reactive({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">59</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">324</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       )</pre>
+                      <pre class="language-r">      iv &lt;- shinyvalidate::InputValidator$new()</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">60</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">325</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     )</pre>
+                      <pre class="language-r">      iv$add_rule("ggtheme", shinyvalidate::sv_required("Please select a theme"))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">61</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">326</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">      teal.transform::compose_and_enable_validators(iv, selector_list)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">62</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">63</td>
+                    <td class="num">328</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">64</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">329</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   shinyApp(app$ui, app$server)</pre>
+                      <pre class="language-r">    anl_merged_input &lt;- teal.transform::merge_expression_srv(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">65</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">330</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">      selector_list = selector_list,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">66</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">331</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      datasets = data</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">67</td>
+                    <td class="num">332</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # CDISC data example</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">68</td>
+                    <td class="num">333</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(teal.widgets)</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">334</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    anl_merged_q &lt;- reactive({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">70</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">335</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' data &lt;- teal_data()</pre>
+                      <pre class="language-r">      req(anl_merged_input())</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">71</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">336</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' data &lt;- within(data, {</pre>
+                      <pre class="language-r">      data() %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">72</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">#'   library(nestcolor)</pre>
+                      <pre class="language-r">        teal.code::eval_code(as.expression(anl_merged_input()$expr))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">73</td>
+                    <td class="num">338</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ADSL &lt;- rADSL</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">74</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">75</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">340</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' datanames(data) &lt;- "ADSL"</pre>
+                      <pre class="language-r">    merged &lt;- list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">76</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">#' join_keys(data) &lt;- default_cdisc_join_keys[datanames(data)]</pre>
+                      <pre class="language-r">      anl_input_r = anl_merged_input,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">77</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">      anl_q_r = anl_merged_q</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">78</td>
+                    <td class="num">343</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">79</td>
+                    <td class="num">344</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = data,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">80</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">345</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   modules = modules(</pre>
+                      <pre class="language-r">    output_q &lt;- reactive({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">81</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">346</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     tm_g_association(</pre>
+                      <pre class="language-r">      teal::validate_inputs(iv_r())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">82</td>
+                    <td class="num">347</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       ref = data_extract_spec(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">83</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">348</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         dataname = "ADSL",</pre>
+                      <pre class="language-r">      qenv &lt;- merged$anl_q_r()</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">84</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">349</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         select = select_spec(</pre>
+                      <pre class="language-r">      ANL &lt;- qenv[["ANL"]] # nolint: object_name.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">85</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">350</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           label = "Select variable:",</pre>
+                      <pre class="language-r">      resp_var &lt;- as.vector(merged$anl_input_r()$columns_source$response)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">86</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">351</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           choices = variable_choices(</pre>
+                      <pre class="language-r">      x &lt;- as.vector(merged$anl_input_r()$columns_source$x)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">87</td>
+                    <td class="num">352</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'             data[["ADSL"]],</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">88</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">#'             c("SEX", "RACE", "COUNTRY", "ARM", "STRATA1", "STRATA2", "ITTFL", "BMRKR2")</pre>
+                      <pre class="language-r">      validate(need(is.factor(ANL[[resp_var]]), "Please select a factor variable as the response."))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">89</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">#'           ),</pre>
+                      <pre class="language-r">      validate(need(is.factor(ANL[[x]]), "Please select a factor variable as the X-Variable."))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">90</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">#'           selected = "RACE",</pre>
+                      <pre class="language-r">      teal::validate_has_data(ANL, 10)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">91</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">#'           fixed = FALSE</pre>
+                      <pre class="language-r">      teal::validate_has_data(ANL[, c(resp_var, x)], 10, complete = TRUE, allow_inf = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">92</td>
+                    <td class="num">357</td>
                     <td class="coverage"></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="missed">
+                    <td class="num">358</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       ),</pre>
+                      <pre class="language-r">      row_facet_name &lt;- if (length(merged$anl_input_r()$columns_source$row_facet) == 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">94</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'       vars = data_extract_spec(</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">95</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'         dataname = "ADSL",</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">96</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'         select = select_spec(</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">97</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">#'           label = "Select variables:",</pre>
+                      <pre class="language-r">        character(0)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">98</td>
+                    <td class="num">360</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           choices = variable_choices(</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">99</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">#'             data[["ADSL"]],</pre>
+                      <pre class="language-r">        as.vector(merged$anl_input_r()$columns_source$row_facet)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">100</td>
+                    <td class="num">362</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'             c("SEX", "RACE", "COUNTRY", "ARM", "STRATA1", "STRATA2", "ITTFL", "BMRKR2")</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">101</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">#'           ),</pre>
+                      <pre class="language-r">      col_facet_name &lt;- if (length(merged$anl_input_r()$columns_source$col_facet) == 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">102</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">#'           selected = "BMRKR2",</pre>
+                      <pre class="language-r">        character(0)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">103</td>
+                    <td class="num">365</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           multiple = TRUE,</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">104</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">#'           fixed = FALSE</pre>
+                      <pre class="language-r">        as.vector(merged$anl_input_r()$columns_source$col_facet)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">105</td>
+                    <td class="num">367</td>
                     <td class="coverage"></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">368</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       ),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">107</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">#'       ggplot2_args = ggplot2_args(</pre>
+                      <pre class="language-r">      freq &lt;- input$freq == "frequency"</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">108</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">#'         labs = list(subtitle = "Plot generated by Association Module")</pre>
+                      <pre class="language-r">      swap_axes &lt;- input$coord_flip</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">109</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">#'       )</pre>
+                      <pre class="language-r">      counts &lt;- input$count_labels</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">110</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">372</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     )</pre>
+                      <pre class="language-r">      rotate_xaxis_labels &lt;- input$rotate_xaxis_labels</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">111</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">      ggtheme &lt;- input$ggtheme</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">112</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">113</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">375</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' if (interactive()) {</pre>
+                      <pre class="language-r">      arg_position &lt;- if (freq) "stack" else "fill"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">114</td>
+                    <td class="num">376</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">115</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">377</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">      rowf &lt;- if (length(row_facet_name) != 0) as.name(row_facet_name)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">116</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">378</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      colf &lt;- if (length(col_facet_name) != 0) as.name(col_facet_name)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">117</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">#' @export</pre>
+                      <pre class="language-r">      resp_cl &lt;- as.name(resp_var)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">118</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">#'</pre>
+                      <pre class="language-r">      x_cl &lt;- as.name(x)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">119</td>
+                    <td class="num">381</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">tm_g_association &lt;- function(label = "Association",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">120</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">                             ref,</pre>
+                      <pre class="language-r">      if (swap_axes) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">121</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">383</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             vars,</pre>
+                      <pre class="language-r">        qenv &lt;- teal.code::eval_code(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">122</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">                             show_association = TRUE,</pre>
+                      <pre class="language-r">          qenv,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">123</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">385</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             plot_height = c(600, 400, 5000),</pre>
+                      <pre class="language-r">          substitute(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">124</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">                             plot_width = NULL,</pre>
+                      <pre class="language-r">            expr = ANL[[x]] &lt;- with(ANL, forcats::fct_rev(x_cl)), # nolint: object_name.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">125</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">                             distribution_theme = c("gray", "bw", "linedraw", "light", "dark", "minimal", "classic", "void"), # nolint: line_length.</pre>
+                      <pre class="language-r">            env = list(x = x, x_cl = x_cl)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">126</td>
+                    <td class="num">388</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             association_theme = c("gray", "bw", "linedraw", "light", "dark", "minimal", "classic", "void"), # nolint: line_length.</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">127</td>
+                    <td class="num">389</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             pre_output = NULL,</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">128</td>
+                    <td class="num">390</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             post_output = NULL,</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">129</td>
+                    <td class="num">391</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             ggplot2_args = teal.widgets::ggplot2_args()) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">130</td>
+                    <td class="num">392</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  logger::log_info("Initializing tm_g_association")</pre>
+                      <pre class="language-r">      qenv &lt;- teal.code::eval_code(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">131</td>
+                    <td class="num">393</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (inherits(ref, "data_extract_spec")) ref &lt;- list(ref)</pre>
+                      <pre class="language-r">        qenv,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">132</td>
+                    <td class="num">394</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (inherits(vars, "data_extract_spec")) vars &lt;- list(vars)</pre>
+                      <pre class="language-r">        substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">133</td>
+                    <td class="num">395</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (inherits(ggplot2_args, "ggplot2_args")) ggplot2_args &lt;- list(default = ggplot2_args)</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>
+                      <pre class="language-r">          expr = ANL[[resp_var]] &lt;- factor(ANL[[resp_var]]), # nolint: object_name.</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">135</td>
+                    <td class="num">396</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(label)</pre>
+                      <pre class="language-r">          env = list(resp_var = resp_var)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">136</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">397</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(ref, types = "data_extract_spec")</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">137</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">398</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!all(vapply(ref, function(x) !x$select$multiple, logical(1)))) {</pre>
+                      <pre class="language-r">      ) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">138</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">399</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stop("'ref' should not allow multiple selection")</pre>
+                      <pre class="language-r">        # nolint start</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">139</td>
+                    <td class="num">400</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">        # rowf and colf will be a NULL if not set by a user</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">140</td>
+                    <td class="num">401</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(vars, types = "data_extract_spec")</pre>
+                      <pre class="language-r">        teal.code::eval_code(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">141</td>
+                    <td class="num">402</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(show_association)</pre>
+                      <pre class="language-r">          substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">142</td>
+                    <td class="num">403</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(plot_height, len = 3, any.missing = FALSE, finite = TRUE)</pre>
+                      <pre class="language-r">            expr = ANL2 &lt;- ANL %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">143</td>
+                    <td class="num">404</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(plot_height[1], lower = plot_height[2], upper = plot_height[3], .var.name = "plot_height")</pre>
+                      <pre class="language-r">              dplyr::group_by_at(dplyr::vars(x_cl, resp_cl, rowf, colf)) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">144</td>
+                    <td class="num">405</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(plot_width, len = 3, any.missing = FALSE, null.ok = TRUE, finite = TRUE)</pre>
+                      <pre class="language-r">              dplyr::summarise(ns = dplyr::n()) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">145</td>
+                    <td class="num">406</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(</pre>
+                      <pre class="language-r">              dplyr::group_by_at(dplyr::vars(x_cl, rowf, colf)) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">146</td>
+                    <td class="num">407</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    plot_width[1],</pre>
+                      <pre class="language-r">              dplyr::mutate(sums = sum(ns), percent = round(ns / sums * 100, 1)),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">147</td>
+                    <td class="num">408</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lower = plot_width[2], upper = plot_width[3], null.ok = TRUE, .var.name = "plot_width"</pre>
+                      <pre class="language-r">            env = list(x_cl = x_cl, resp_cl = resp_cl, rowf = rowf, colf = colf)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">148</td>
+                    <td class="num">409</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">149</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">410</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  distribution_theme &lt;- match.arg(distribution_theme)</pre>
+                      <pre class="language-r">        ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">150</td>
+                    <td class="num">411</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  association_theme &lt;- match.arg(association_theme)</pre>
+                      <pre class="language-r">        teal.code::eval_code(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">151</td>
+                    <td class="num">412</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  plot_choices &lt;- c("Bivariate1", "Bivariate2")</pre>
+                      <pre class="language-r">          substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">152</td>
+                    <td class="num">413</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(ggplot2_args, types = "ggplot2_args")</pre>
+                      <pre class="language-r">            expr = ANL3 &lt;- ANL %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">153</td>
+                    <td class="num">414</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_subset(names(ggplot2_args), c("default", plot_choices))</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">154</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">              dplyr::group_by_at(dplyr::vars(x_cl, rowf, colf)) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">155</td>
+                    <td class="num">415</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  args &lt;- as.list(environment())</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">156</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">              dplyr::summarise(ns = dplyr::n()),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">157</td>
+                    <td class="num">416</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  data_extract_list &lt;- list(</pre>
+                      <pre class="language-r">            env = list(x_cl = x_cl, rowf = rowf, colf = colf)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">158</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">417</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ref = ref,</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">159</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">418</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    vars = vars</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">160</td>
+                    <td class="num">419</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">      # nolint end</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">161</td>
+                    <td class="num">420</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">162</td>
+                    <td class="num">421</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  module(</pre>
+                      <pre class="language-r">      plot_call &lt;- substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">163</td>
+                    <td class="num">422</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    label = label,</pre>
+                      <pre class="language-r">        expr =</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">164</td>
+                    <td class="num">423</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    server = srv_tm_g_association,</pre>
+                      <pre class="language-r">          ggplot(ANL2, aes(x = x_cl, y = ns)) +</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">165</td>
+                    <td class="num">424</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ui = ui_tm_g_association,</pre>
+                      <pre class="language-r">            geom_bar(aes(fill = resp_cl), stat = "identity", position = arg_position),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">166</td>
+                    <td class="num">425</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ui_args = args,</pre>
+                      <pre class="language-r">        env = list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">167</td>
+                    <td class="num">426</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    server_args = c(</pre>
+                      <pre class="language-r">          x_cl = x_cl,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">168</td>
+                    <td class="num">427</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      data_extract_list,</pre>
+                      <pre class="language-r">          resp_cl = resp_cl,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">169</td>
+                    <td class="num">428</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      list(plot_height = plot_height, plot_width = plot_width, ggplot2_args = ggplot2_args)</pre>
+                      <pre class="language-r">          arg_position = arg_position</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">170</td>
+                    <td class="num">429</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="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    datanames = teal.transform::get_extract_datanames(data_extract_list)</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">172</td>
+                    <td class="num">430</td>
                     <td class="coverage"></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="num">431</td>
                     <td class="coverage"></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>
+                  <tr class="missed">
+                    <td class="num">432</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      if (!freq) plot_call &lt;- substitute(plot_call + expand_limits(y = c(0, 1.1)), env = list(plot_call = plot_call))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">175</td>
+                    <td class="num">433</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">ui_tm_g_association &lt;- function(id, ...) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">176</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">      if (counts) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">177</td>
+                    <td class="num">435</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  args &lt;- list(...)</pre>
+                      <pre class="language-r">        plot_call &lt;- substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">178</td>
+                    <td class="num">436</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  is_single_dataset_value &lt;- teal.transform::is_single_dataset(args$ref, args$vars)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">179</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          expr = plot_call +</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">180</td>
+                    <td class="num">437</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  teal.widgets::standard_layout(</pre>
+                      <pre class="language-r">            geom_text(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">181</td>
+                    <td class="num">438</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    output = teal.widgets::white_small_well(</pre>
+                      <pre class="language-r">              data = ANL2,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">182</td>
+                    <td class="num">439</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      textOutput(ns("title")),</pre>
+                      <pre class="language-r">              aes(label = ns, x = x_cl, y = ns, group = resp_cl),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">183</td>
+                    <td class="num">440</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      tags$br(),</pre>
+                      <pre class="language-r">              col = "white",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">184</td>
+                    <td class="num">441</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.widgets::plot_with_settings_ui(id = ns("myplot"))</pre>
+                      <pre class="language-r">              vjust = "middle",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">185</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">442</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ),</pre>
+                      <pre class="language-r">              hjust = "middle",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">186</td>
+                    <td class="num">443</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    encoding = div(</pre>
+                      <pre class="language-r">              position = position_anl2_value</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">187</td>
+                    <td class="num">444</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ### Reporter</pre>
+                      <pre class="language-r">            ) +</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">188</td>
+                    <td class="num">445</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.reporter::simple_reporter_ui(ns("simple_reporter")),</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">189</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      ###</pre>
+                      <pre class="language-r">            geom_text(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">190</td>
+                    <td class="num">446</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      tags$label("Encodings", class = "text-primary"),</pre>
+                      <pre class="language-r">              data = ANL3, aes(label = ns, x = x_cl, y = anl3_y),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">191</td>
+                    <td class="num">447</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.transform::datanames_input(args[c("ref", "vars")]),</pre>
+                      <pre class="language-r">              hjust = hjust_value,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">192</td>
+                    <td class="num">448</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.transform::data_extract_ui(</pre>
+                      <pre class="language-r">              vjust = vjust_value,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">193</td>
+                    <td class="num">449</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        id = ns("ref"),</pre>
+                      <pre class="language-r">              position = position_anl3_value</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">194</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">450</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        label = "Reference variable",</pre>
+                      <pre class="language-r">            ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">195</td>
+                    <td class="num">451</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        data_extract_spec = args$ref,</pre>
+                      <pre class="language-r">          env = list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">196</td>
+                    <td class="num">452</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        is_single_dataset = is_single_dataset_value</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">197</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      ),</pre>
+                      <pre class="language-r">            plot_call = plot_call,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">198</td>
+                    <td class="num">453</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.transform::data_extract_ui(</pre>
+                      <pre class="language-r">            x_cl = x_cl,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">199</td>
+                    <td class="num">454</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        id = ns("vars"),</pre>
+                      <pre class="language-r">            resp_cl = resp_cl,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">200</td>
+                    <td class="num">455</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        label = "Associated variables",</pre>
+                      <pre class="language-r">            hjust_value = if (swap_axes) "left" else "middle",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">201</td>
+                    <td class="num">456</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        data_extract_spec = args$vars,</pre>
+                      <pre class="language-r">            vjust_value = if (swap_axes) "middle" else -1,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">202</td>
+                    <td class="num">457</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        is_single_dataset = is_single_dataset_value</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">203</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      ),</pre>
+                      <pre class="language-r">            position_anl2_value = if (!freq) quote(position_fill(0.5)) else quote(position_stack(0.5)),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">204</td>
+                    <td class="num">458</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkboxInput(</pre>
+                      <pre class="language-r">            anl3_y = if (!freq) 1.1 else as.name("ns"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">205</td>
+                    <td class="num">459</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ns("association"),</pre>
+                      <pre class="language-r">            position_anl3_value = if (!freq) "fill" else "stack"</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">206</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">        "Association with reference variable",</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">207</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">        value = args$show_association</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">208</td>
+                    <td class="num">462</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">209</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">463</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkboxInput(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">210</td>
+                    <td class="num">464</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ns("show_dist"),</pre>
+                      <pre class="language-r">      if (swap_axes) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">211</td>
+                    <td class="num">465</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "Scaled frequencies",</pre>
+                      <pre class="language-r">        plot_call &lt;- substitute(plot_call + coord_flip(), env = list(plot_call = plot_call))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">212</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">466</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        value = FALSE</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">213</td>
+                    <td class="num">467</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">214</td>
+                    <td class="num">468</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkboxInput(</pre>
+                      <pre class="language-r">      facet_cl &lt;- facet_ggplot_call(row_facet_name, col_facet_name)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">215</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">469</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ns("log_transformation"),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">216</td>
+                    <td class="num">470</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "Log transformed",</pre>
+                      <pre class="language-r">      if (!is.null(facet_cl)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">217</td>
+                    <td class="num">471</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        value = FALSE</pre>
+                      <pre class="language-r">        plot_call &lt;- substitute(expr = plot_call + facet_cl, env = list(plot_call = plot_call, facet_cl = facet_cl))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">218</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="missed">
-                    <td class="num">219</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">473</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.widgets::panel_group(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">220</td>
+                    <td class="num">474</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        teal.widgets::panel_item(</pre>
+                      <pre class="language-r">      dev_ggplot2_args &lt;- teal.widgets::ggplot2_args(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">221</td>
+                    <td class="num">475</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          title = "Plot settings",</pre>
+                      <pre class="language-r">        labs = list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">222</td>
+                    <td class="num">476</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          teal.widgets::optionalSliderInputValMinMax(ns("alpha"), "Scatterplot opacity:", c(0.5, 0, 1), ticks = FALSE),</pre>
+                      <pre class="language-r">          x = varname_w_label(x, ANL),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">223</td>
+                    <td class="num">477</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          teal.widgets::optionalSliderInputValMinMax(ns("size"), "Scatterplot points size:", c(2, 1, 8), ticks = FALSE),</pre>
+                      <pre class="language-r">          y = varname_w_label(resp_var, ANL, prefix = "Proportion of "),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">224</td>
+                    <td class="num">478</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          checkboxInput(ns("swap_axes"), "Swap axes", value = FALSE),</pre>
+                      <pre class="language-r">          fill = varname_w_label(resp_var, ANL)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">225</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">479</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          checkboxInput(ns("rotate_xaxis_labels"), "Rotate X axis labels", value = FALSE),</pre>
+                      <pre class="language-r">        ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">226</td>
+                    <td class="num">480</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          selectInput(</pre>
+                      <pre class="language-r">        theme = list(legend.position = "bottom")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">227</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">481</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            inputId = ns("distribution_theme"),</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">228</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">482</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            label = "Distribution theme (by ggplot):",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">229</td>
+                    <td class="num">483</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            choices = ggplot_themes,</pre>
+                      <pre class="language-r">      if (rotate_xaxis_labels) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">230</td>
+                    <td class="num">484</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            selected = args$distribution_theme,</pre>
+                      <pre class="language-r">        dev_ggplot2_args$theme[["axis.text.x"]] &lt;- quote(element_text(angle = 45, hjust = 1))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">231</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">485</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            multiple = FALSE</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">232</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="missed">
-                    <td class="num">233</td>
+                    <td class="num">487</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          selectInput(</pre>
+                      <pre class="language-r">      all_ggplot2_args &lt;- teal.widgets::resolve_ggplot2_args(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">234</td>
+                    <td class="num">488</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            inputId = ns("association_theme"),</pre>
+                      <pre class="language-r">        user_plot = ggplot2_args,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">235</td>
+                    <td class="num">489</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            label = "Association theme (by ggplot):",</pre>
+                      <pre class="language-r">        module_plot = dev_ggplot2_args</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">236</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">490</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            choices = ggplot_themes,</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">237</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">491</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            selected = args$association_theme,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">238</td>
+                    <td class="num">492</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            multiple = FALSE</pre>
+                      <pre class="language-r">      parsed_ggplot2_args &lt;- teal.widgets::parse_ggplot2_args(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">239</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">493</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">        all_ggplot2_args,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">240</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">494</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">        ggtheme = ggtheme</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">241</td>
+                    <td class="num">495</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">242</td>
+                    <td class="num">496</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">243</td>
+                    <td class="num">497</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    forms = tagList(</pre>
+                      <pre class="language-r">      plot_call &lt;- substitute(expr = {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">244</td>
+                    <td class="num">498</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.widgets::verbatim_popup_ui(ns("warning"), "Show Warnings"),</pre>
+                      <pre class="language-r">        p &lt;- plot_call + labs + ggthemes + themes</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">245</td>
+                    <td class="num">499</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">246</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    ),</pre>
+                      <pre class="language-r">        print(p)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">247</td>
+                    <td class="num">500</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    pre_output = args$pre_output,</pre>
+                      <pre class="language-r">      }, env = list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">248</td>
+                    <td class="num">501</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    post_output = args$post_output</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">249</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">        plot_call = plot_call,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">250</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">502</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">        labs = parsed_ggplot2_args$labs,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">251</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">503</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        themes = parsed_ggplot2_args$theme,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">252</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">504</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">srv_tm_g_association &lt;- function(id,</pre>
+                      <pre class="language-r">        ggthemes = parsed_ggplot2_args$ggtheme</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">253</td>
+                    <td class="num">505</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">254</td>
+                    <td class="num">506</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 reporter,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">255</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">507</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 filter_panel_api,</pre>
+                      <pre class="language-r">      teal.code::eval_code(qenv, plot_call)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">256</td>
+                    <td class="num">508</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 ref,</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">257</td>
+                    <td class="num">509</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 vars,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">258</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">510</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 plot_height,</pre>
+                      <pre class="language-r">    plot_r &lt;- reactive(output_q()[["p"]])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">259</td>
+                    <td class="num">511</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 plot_width,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">260</td>
+                    <td class="num">512</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 ggplot2_args) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">261</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  with_reporter &lt;- !missing(reporter) &amp;&amp; inherits(reporter, "Reporter")</pre>
+                      <pre class="language-r">    # Insert the plot into a plot_with_settings module from teal.widgets</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">262</td>
+                    <td class="num">513</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  with_filter &lt;- !missing(filter_panel_api) &amp;&amp; inherits(filter_panel_api, "FilterPanelAPI")</pre>
+                      <pre class="language-r">    pws &lt;- teal.widgets::plot_with_settings_srv(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">263</td>
+                    <td class="num">514</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(data, "reactive")</pre>
+                      <pre class="language-r">      id = "myplot",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">264</td>
+                    <td class="num">515</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(isolate(data()), "teal_data")</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">265</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      plot_r = plot_r,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">266</td>
+                    <td class="num">516</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">      height = plot_height,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">267</td>
+                    <td class="num">517</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    selector_list &lt;- teal.transform::data_extract_multiple_srv(</pre>
+                      <pre class="language-r">      width = plot_width</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">268</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">518</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      data_extract = list(ref = ref, vars = vars),</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">269</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">519</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      datasets = data,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">270</td>
+                    <td class="num">520</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      select_validation_rule = list(</pre>
+                      <pre class="language-r">    teal.widgets::verbatim_popup_srv(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">271</td>
+                    <td class="num">521</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ref = shinyvalidate::compose_rules(</pre>
+                      <pre class="language-r">      id = "warning",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">272</td>
+                    <td class="num">522</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          shinyvalidate::sv_required("A reference variable needs to be selected."),</pre>
+                      <pre class="language-r">      verbatim_content = reactive(teal.code::get_warnings(output_q())),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">273</td>
+                    <td class="num">523</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ~ if ((.) %in% selector_list()$vars()$select) {</pre>
+                      <pre class="language-r">      title = "Warning",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">274</td>
+                    <td class="num">524</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            "Associated variables and reference variable cannot overlap"</pre>
+                      <pre class="language-r">      disabled = reactive(is.null(teal.code::get_warnings(output_q())))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">275</td>
+                    <td class="num">525</td>
                     <td class="coverage"></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">526</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">277</td>
+                    <td class="num">527</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        vars = shinyvalidate::compose_rules(</pre>
+                      <pre class="language-r">    teal.widgets::verbatim_popup_srv(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">278</td>
+                    <td class="num">528</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          shinyvalidate::sv_required("An associated variable needs to be selected."),</pre>
+                      <pre class="language-r">      id = "rcode",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">279</td>
+                    <td class="num">529</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ~ if (length(selector_list()$ref()$select) != 0 &amp;&amp; selector_list()$ref()$select %in% (.)) {</pre>
+                      <pre class="language-r">      verbatim_content = reactive(teal.code::get_code(output_q())),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">280</td>
+                    <td class="num">530</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            "Associated variables and reference variable cannot overlap"</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">281</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          }</pre>
+                      <pre class="language-r">      title = "Show R Code for Response"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">282</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">283</td>
+                    <td class="num">532</td>
                     <td class="coverage"></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">533</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">    ### REPORTER</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">285</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"></pre>
+                      <pre class="language-r">    if (with_reporter) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">286</td>
+                    <td class="num">535</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    iv_r &lt;- reactive({</pre>
+                      <pre class="language-r">      card_fun &lt;- function(comment, label) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">287</td>
+                    <td class="num">536</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv &lt;- shinyvalidate::InputValidator$new()</pre>
+                      <pre class="language-r">        card &lt;- teal::report_card_template(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">288</td>
+                    <td class="num">537</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.transform::compose_and_enable_validators(iv, selector_list)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">289</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="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          title = "Response Plot",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">291</td>
+                    <td class="num">538</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    anl_merged_input &lt;- teal.transform::merge_expression_srv(</pre>
+                      <pre class="language-r">          label = label,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">292</td>
+                    <td class="num">539</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      datasets = data,</pre>
+                      <pre class="language-r">          with_filter = with_filter,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">293</td>
+                    <td class="num">540</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      selector_list = selector_list</pre>
+                      <pre class="language-r">          filter_panel_api = filter_panel_api</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">294</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">295</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"></pre>
+                      <pre class="language-r">        card$append_text("Plot", "header3")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">296</td>
+                    <td class="num">543</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    anl_merged_q &lt;- reactive({</pre>
+                      <pre class="language-r">        card$append_plot(plot_r(), dim = pws$dim())</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">297</td>
+                    <td class="num">544</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      req(anl_merged_input())</pre>
+                      <pre class="language-r">        if (!comment == "") {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">298</td>
+                    <td class="num">545</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      data() %&gt;% teal.code::eval_code(as.expression(anl_merged_input()$expr))</pre>
+                      <pre class="language-r">          card$append_text("Comment", "header3")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">299</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">546</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">          card$append_text(comment)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">300</td>
+                    <td class="num">547</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">301</td>
+                    <td class="num">548</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    merged &lt;- list(</pre>
+                      <pre class="language-r">        card$append_src(teal.code::get_code(output_q()))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">302</td>
+                    <td class="num">549</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      anl_input_r = anl_merged_input,</pre>
+                      <pre class="language-r">        card</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">550</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">303</td>
+                    <td class="num">551</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      anl_q_r = anl_merged_q</pre>
+                      <pre class="language-r">      teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">304</td>
+                    <td class="num">552</td>
                     <td class="coverage"></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">553</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">306</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">554</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    output_q &lt;- reactive({</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">307</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">555</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal::validate_inputs(iv_r())</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/tm_g_association.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">308</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' Stack Plots of variables and show association with reference variable</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">309</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">      ANL &lt;- merged$anl_q_r()[["ANL"]] # nolint: object_name.</pre>
+                      <pre class="language-r">#' @md</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">310</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">      teal::validate_has_data(ANL, 3)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">311</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @inheritParams teal::module</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">312</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">      vars_names &lt;- merged$anl_input_r()$columns_source$vars</pre>
+                      <pre class="language-r">#' @inheritParams shared_params</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">313</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @param ref (`data_extract_spec` or `list` of multiple `data_extract_spec`)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">314</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">      ref_name &lt;- as.vector(merged$anl_input_r()$columns_source$ref)</pre>
+                      <pre class="language-r">#'   reference variable, must set `multiple = FALSE`.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">315</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">      association &lt;- input$association</pre>
+                      <pre class="language-r">#' @param vars (`data_extract_spec` or `list` of multiple `data_extract_spec`)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">316</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">      show_dist &lt;- input$show_dist</pre>
+                      <pre class="language-r">#'   associated variables.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">317</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">      log_transformation &lt;- input$log_transformation</pre>
+                      <pre class="language-r">#' @param show_association optional, (`logical`) Whether show association of `vars`</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">318</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">      rotate_xaxis_labels &lt;- input$rotate_xaxis_labels</pre>
+                      <pre class="language-r">#'   with reference variable. Defaults to `TRUE`.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">319</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">      swap_axes &lt;- input$swap_axes</pre>
+                      <pre class="language-r">#' @param distribution_theme,association_theme optional, (`character`) `ggplot2` themes to be used by default.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">320</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">      distribution_theme &lt;- input$distribution_theme</pre>
+                      <pre class="language-r">#'   Default to `"gray"`.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">321</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">      association_theme &lt;- input$association_theme</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">322</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @templateVar ggnames "Bivariate1", "Bivariate2"</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">323</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">      is_scatterplot &lt;- is.numeric(ANL[[ref_name]]) &amp;&amp; any(vapply(ANL[vars_names], is.numeric, logical(1)))</pre>
+                      <pre class="language-r">#' @template ggplot2_args_multi</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">324</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 (is_scatterplot) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">325</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">        shinyjs::show("alpha")</pre>
+                      <pre class="language-r">#' @note For more examples, please see the vignette "Using association plot" via</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">326</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">        shinyjs::show("size")</pre>
+                      <pre class="language-r">#'   \code{vignette("using-association-plot", package = "teal.modules.general")}.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">327</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">        alpha &lt;- input$alpha</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">328</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">        size &lt;- input$size</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">329</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">#' # general data exapmle</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">330</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">        shinyjs::hide("alpha")</pre>
+                      <pre class="language-r">#' library(teal.widgets)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">331</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("size")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">332</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">        alpha &lt;- 0.5</pre>
+                      <pre class="language-r">#' data &lt;- teal_data()</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">333</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">        size &lt;- 2</pre>
+                      <pre class="language-r">#' data &lt;- within(data, {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">334</td>
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#'   library(nestcolor)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">335</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   CO2 &lt;- CO2</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">336</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">      teal::validate_has_data(ANL[, c(ref_name, vars_names)], 3, complete = TRUE, allow_inf = FALSE)</pre>
+                      <pre class="language-r">#'   factors &lt;- names(Filter(isTRUE, vapply(CO2, is.factor, logical(1L))))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">337</td>
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   CO2[factors] &lt;- lapply(CO2[factors], as.character)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">338</td>
+                    <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # reference</pre>
+                      <pre class="language-r">#' })</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">339</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">      ref_class &lt;- class(ANL[[ref_name]])</pre>
+                      <pre class="language-r">#' datanames(data) &lt;- c("CO2")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">340</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">      if (is.numeric(ANL[[ref_name]]) &amp;&amp; log_transformation) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">341</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # works for both integers and doubles</pre>
+                      <pre class="language-r">#' app &lt;- init(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">342</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">        ref_cl_name &lt;- call("log", as.name(ref_name))</pre>
+                      <pre class="language-r">#'   data = data,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">343</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">        ref_cl_lbl &lt;- varname_w_label(ref_name, ANL, prefix = "Log of ")</pre>
+                      <pre class="language-r">#'   modules = modules(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">344</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">#'     tm_g_association(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">345</td>
+                    <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # silently ignore when non-numeric even if `log` is selected because some</pre>
+                      <pre class="language-r">#'       ref = data_extract_spec(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">346</td>
+                    <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # variables may be numeric and others not</pre>
+                      <pre class="language-r">#'         dataname = "CO2",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">347</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">        ref_cl_name &lt;- as.name(ref_name)</pre>
+                      <pre class="language-r">#'         select = select_spec(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">348</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">        ref_cl_lbl &lt;- varname_w_label(ref_name, ANL)</pre>
+                      <pre class="language-r">#'           label = "Select variable:",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">349</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#'           choices = variable_choices(data[["CO2"]], c("Plant", "Type", "Treatment")),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">350</td>
+                    <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'           selected = "Plant",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">351</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">      user_ggplot2_args &lt;- teal.widgets::resolve_ggplot2_args(</pre>
+                      <pre class="language-r">#'           fixed = FALSE</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">352</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">        user_plot = ggplot2_args[["Bivariate1"]],</pre>
+                      <pre class="language-r">#'         )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">353</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">        user_default = ggplot2_args$default</pre>
+                      <pre class="language-r">#'       ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">354</td>
+                    <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#'       vars = data_extract_spec(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">355</td>
+                    <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'         dataname = "CO2",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">356</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">      ref_call &lt;- bivariate_plot_call(</pre>
+                      <pre class="language-r">#'         select = select_spec(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">357</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">50</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        data_name = "ANL",</pre>
+                      <pre class="language-r">#'           label = "Select variables:",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">358</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">        x = ref_cl_name,</pre>
+                      <pre class="language-r">#'           choices = variable_choices(data[["CO2"]], c("Plant", "Type", "Treatment")),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">359</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">        x_class = ref_class,</pre>
+                      <pre class="language-r">#'           selected = "Treatment",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">360</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">        x_label = ref_cl_lbl,</pre>
+                      <pre class="language-r">#'           multiple = TRUE,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">361</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">        freq = !show_dist,</pre>
+                      <pre class="language-r">#'           fixed = FALSE</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">362</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">        theme = distribution_theme,</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">56</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        rotate_xaxis_labels = rotate_xaxis_labels,</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">57</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        swap_axes = FALSE,</pre>
+                      <pre class="language-r">#'       ggplot2_args = ggplot2_args(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">365</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">        size = size,</pre>
+                      <pre class="language-r">#'         labs = list(subtitle = "Plot generated by Association Module")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">366</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">        alpha = alpha,</pre>
+                      <pre class="language-r">#'       )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">367</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">        ggplot2_args = user_ggplot2_args</pre>
+                      <pre class="language-r">#'     )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">368</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">369</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">370</td>
+                    <td class="num">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # association</pre>
+                      <pre class="language-r">#' if (interactive()) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">371</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">      ref_class_cov &lt;- ifelse(association, ref_class, "NULL")</pre>
+                      <pre class="language-r">#'   shinyApp(app$ui, app$server)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">372</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="missed">
-                    <td class="num">373</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">      print_call &lt;- quote(print(p))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">374</td>
+                    <td class="num">67</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' # CDISC data example</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">375</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">      var_calls &lt;- lapply(vars_names, function(var_i) {</pre>
+                      <pre class="language-r">#' library(teal.widgets)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">376</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">        var_class &lt;- class(ANL[[var_i]])</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">377</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">        if (is.numeric(ANL[[var_i]]) &amp;&amp; log_transformation) {</pre>
+                      <pre class="language-r">#' data &lt;- teal_data()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">378</td>
+                    <td class="num">71</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          # works for both integers and doubles</pre>
+                      <pre class="language-r">#' data &lt;- within(data, {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">379</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">          var_cl_name &lt;- call("log", as.name(var_i))</pre>
+                      <pre class="language-r">#'   library(nestcolor)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">380</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">          var_cl_lbl &lt;- varname_w_label(var_i, ANL, prefix = "Log of ")</pre>
+                      <pre class="language-r">#'   ADSL &lt;- rADSL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">381</td>
+                    <td class="num">74</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">382</td>
+                    <td class="num">75</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          # silently ignore when non-numeric even if `log` is selected because some</pre>
+                      <pre class="language-r">#' datanames(data) &lt;- "ADSL"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">383</td>
+                    <td class="num">76</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          # variables may be numeric and others not</pre>
+                      <pre class="language-r">#' join_keys(data) &lt;- default_cdisc_join_keys[datanames(data)]</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">384</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">          var_cl_name &lt;- as.name(var_i)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">385</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">          var_cl_lbl &lt;- varname_w_label(var_i, ANL)</pre>
+                      <pre class="language-r">#' app &lt;- init(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">386</td>
+                    <td class="num">79</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">387</td>
+                    <td class="num">80</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="missed">
-                    <td class="num">388</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">        user_ggplot2_args &lt;- teal.widgets::resolve_ggplot2_args(</pre>
+                      <pre class="language-r">#'     tm_g_association(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">389</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">          user_plot = ggplot2_args[["Bivariate2"]],</pre>
+                      <pre class="language-r">#'       ref = data_extract_spec(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">390</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">          user_default = ggplot2_args$default</pre>
+                      <pre class="language-r">#'         dataname = "ADSL",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">391</td>
+                    <td class="num">84</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#'         select = select_spec(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">392</td>
+                    <td class="num">85</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'           label = "Select variable:",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">393</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">        bivariate_plot_call(</pre>
+                      <pre class="language-r">#'           choices = variable_choices(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">394</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">          data_name = "ANL",</pre>
+                      <pre class="language-r">#'             data[["ADSL"]],</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">395</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">          x = ref_cl_name,</pre>
+                      <pre class="language-r">#'             c("SEX", "RACE", "COUNTRY", "ARM", "STRATA1", "STRATA2", "ITTFL", "BMRKR2")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">396</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">          y = var_cl_name,</pre>
+                      <pre class="language-r">#'           ),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">397</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">          x_class = ref_class_cov,</pre>
+                      <pre class="language-r">#'           selected = "RACE",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">398</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">91</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          y_class = var_class,</pre>
+                      <pre class="language-r">#'           fixed = FALSE</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">399</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">92</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          x_label = ref_cl_lbl,</pre>
+                      <pre class="language-r">#'         )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">400</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">          y_label = var_cl_lbl,</pre>
+                      <pre class="language-r">#'       ),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">401</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">          theme = association_theme,</pre>
+                      <pre class="language-r">#'       vars = data_extract_spec(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">402</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">          freq = !show_dist,</pre>
+                      <pre class="language-r">#'         dataname = "ADSL",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">403</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">          rotate_xaxis_labels = rotate_xaxis_labels,</pre>
+                      <pre class="language-r">#'         select = select_spec(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">404</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">          swap_axes = swap_axes,</pre>
+                      <pre class="language-r">#'           label = "Select variables:",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">405</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">          alpha = alpha,</pre>
+                      <pre class="language-r">#'           choices = variable_choices(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">406</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">99</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          size = size,</pre>
+                      <pre class="language-r">#'             data[["ADSL"]],</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">407</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">100</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ggplot2_args = user_ggplot2_args</pre>
+                      <pre class="language-r">#'             c("SEX", "RACE", "COUNTRY", "ARM", "STRATA1", "STRATA2", "ITTFL", "BMRKR2")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">408</td>
+                    <td class="num">101</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#'           ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">409</td>
+                    <td class="num">102</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      })</pre>
+                      <pre class="language-r">#'           selected = "BMRKR2",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">410</td>
+                    <td class="num">103</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="never">
-                    <td class="num">411</td>
+                    <td class="num">104</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # helper function to format variable name</pre>
+                      <pre class="language-r">#'           fixed = FALSE</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">412</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">      format_varnames &lt;- function(x) {</pre>
+                      <pre class="language-r">#'         )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">413</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">        if (is.numeric(ANL[[x]]) &amp;&amp; log_transformation) {</pre>
+                      <pre class="language-r">#'       ),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">414</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">          varname_w_label(x, ANL, prefix = "Log of ")</pre>
+                      <pre class="language-r">#'       ggplot2_args = ggplot2_args(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">415</td>
+                    <td class="num">108</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        } else {</pre>
+                      <pre class="language-r">#'         labs = list(subtitle = "Plot generated by Association Module")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">416</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">          varname_w_label(x, ANL)</pre>
+                      <pre class="language-r">#'       )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">417</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="never">
-                    <td class="num">418</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="missed">
-                    <td class="num">419</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_title &lt;-</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">420</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">        if (association) {</pre>
+                      <pre class="language-r">#' if (interactive()) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">421</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">          switch(as.character(length(vars_names)),</pre>
+                      <pre class="language-r">#'   shinyApp(app$ui, app$server)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">422</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">            "0" = sprintf("Value distribution for %s", ref_cl_lbl),</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">423</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">116</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            "1" = sprintf(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">424</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">              "Association between %s and %s",</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">425</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">118</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              ref_cl_lbl,</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">119</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              format_varnames(vars_names)</pre>
+                      <pre class="language-r">tm_g_association &lt;- function(label = "Association",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">427</td>
+                    <td class="num">120</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ),</pre>
+                      <pre class="language-r">                             ref,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">428</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">            sprintf(</pre>
+                      <pre class="language-r">                             vars,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">429</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">122</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              "Associations between %s and: %s",</pre>
+                      <pre class="language-r">                             show_association = TRUE,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">430</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">              ref_cl_lbl,</pre>
+                      <pre class="language-r">                             plot_height = c(600, 400, 5000),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">431</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">              paste(lapply(vars_names, format_varnames), collapse = ", ")</pre>
+                      <pre class="language-r">                             plot_width = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">432</td>
+                    <td class="num">125</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">                             distribution_theme = c("gray", "bw", "linedraw", "light", "dark", "minimal", "classic", "void"), # nolint: line_length.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">433</td>
+                    <td class="num">126</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">                             association_theme = c("gray", "bw", "linedraw", "light", "dark", "minimal", "classic", "void"), # nolint: line_length.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">434</td>
+                    <td class="num">127</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        } else {</pre>
+                      <pre class="language-r">                             pre_output = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">435</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">128</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          switch(as.character(length(vars_names)),</pre>
+                      <pre class="language-r">                             post_output = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">436</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">            "0" = sprintf("Value distribution for %s", ref_cl_lbl),</pre>
+                      <pre class="language-r">                             ggplot2_args = teal.widgets::ggplot2_args()) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">437</td>
+                    <td class="num">130</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            sprintf(</pre>
+                      <pre class="language-r">  logger::log_info("Initializing tm_g_association")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">438</td>
+                    <td class="num">131</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              "Value distributions for %s and %s",</pre>
+                      <pre class="language-r">  if (inherits(ref, "data_extract_spec")) ref &lt;- list(ref)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">439</td>
+                    <td class="num">132</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              ref_cl_lbl,</pre>
+                      <pre class="language-r">  if (inherits(vars, "data_extract_spec")) vars &lt;- list(vars)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">440</td>
+                    <td class="num">133</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              paste(lapply(vars_names, format_varnames), collapse = ", ")</pre>
+                      <pre class="language-r">  if (inherits(ggplot2_args, "ggplot2_args")) ggplot2_args &lt;- list(default = ggplot2_args)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">441</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">442</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">135</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">443</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">        }</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">444</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">445</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      teal.code::eval_code(</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">446</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        merged$anl_q_r(),</pre>
+                      <pre class="language-r">  checkmate::assert_list(ref, types = "data_extract_spec")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">447</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        substitute(</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">448</td>
+                    <td class="num">137</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          expr = title &lt;- new_title,</pre>
+                      <pre class="language-r">  if (!all(vapply(ref, function(x) !x$select$multiple, logical(1)))) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">449</td>
+                    <td class="num">138</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          env = list(new_title = new_title)</pre>
+                      <pre class="language-r">    stop("'ref' should not allow multiple selection")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">450</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">451</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">140</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ) %&gt;%</pre>
+                      <pre class="language-r">  checkmate::assert_list(vars, types = "data_extract_spec")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">452</td>
+                    <td class="num">141</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        teal.code::eval_code(</pre>
+                      <pre class="language-r">  checkmate::assert_flag(show_association)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">453</td>
+                    <td class="num">142</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          substitute(</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(plot_height, len = 3, any.missing = FALSE, finite = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">454</td>
+                    <td class="num">143</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            expr = {</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(plot_height[1], lower = plot_height[2], upper = plot_height[3], .var.name = "plot_height")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">455</td>
+                    <td class="num">144</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              plots &lt;- plot_calls</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(plot_width, len = 3, any.missing = FALSE, null.ok = TRUE, finite = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">456</td>
+                    <td class="num">145</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              p &lt;- tern::stack_grobs(grobs = lapply(plots, ggplotGrob))</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">457</td>
+                    <td class="num">146</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              grid::grid.newpage()</pre>
+                      <pre class="language-r">    plot_width[1],</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">458</td>
+                    <td class="num">147</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              grid::grid.draw(p)</pre>
+                      <pre class="language-r">    lower = plot_width[2], upper = plot_width[3], null.ok = TRUE, .var.name = "plot_width"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">459</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="missed">
-                    <td class="num">460</td>
+                    <td class="num">149</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            env = list(</pre>
+                      <pre class="language-r">  distribution_theme &lt;- match.arg(distribution_theme)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">461</td>
+                    <td class="num">150</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              plot_calls = do.call(</pre>
+                      <pre class="language-r">  association_theme &lt;- match.arg(association_theme)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">462</td>
+                    <td class="num">151</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                "call",</pre>
+                      <pre class="language-r">  plot_choices &lt;- c("Bivariate1", "Bivariate2")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">463</td>
+                    <td class="num">152</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                c(list("list", ref_call), var_calls),</pre>
+                      <pre class="language-r">  checkmate::assert_list(ggplot2_args, types = "ggplot2_args")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">464</td>
+                    <td class="num">153</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                quote = TRUE</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">465</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">              )</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">466</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">467</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">  checkmate::assert_subset(names(ggplot2_args), c("default", plot_choices))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">468</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>
-                  <tr class="never">
-                    <td class="num">469</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">  args &lt;- as.list(environment())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">470</td>
+                    <td class="num">156</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">471</td>
+                    <td class="num">157</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    plot_r &lt;- shiny::reactive({</pre>
+                      <pre class="language-r">  data_extract_list &lt;- list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">472</td>
+                    <td class="num">158</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      shiny::req(iv_r()$is_valid())</pre>
+                      <pre class="language-r">    ref = ref,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">473</td>
+                    <td class="num">159</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      output_q()[["p"]]</pre>
+                      <pre class="language-r">    vars = vars</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">474</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">475</td>
+                    <td class="num">161</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">476</td>
+                    <td class="num">162</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    pws &lt;- teal.widgets::plot_with_settings_srv(</pre>
+                      <pre class="language-r">  module(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">477</td>
+                    <td class="num">163</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      id = "myplot",</pre>
+                      <pre class="language-r">    label = label,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">478</td>
+                    <td class="num">164</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      plot_r = plot_r,</pre>
+                      <pre class="language-r">    server = srv_tm_g_association,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">479</td>
+                    <td class="num">165</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      height = plot_height,</pre>
+                      <pre class="language-r">    ui = ui_tm_g_association,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">480</td>
+                    <td class="num">166</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      width = plot_width</pre>
+                      <pre class="language-r">    ui_args = args,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">481</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">167</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">    server_args = c(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">482</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">168</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      data_extract_list,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">483</td>
+                    <td class="num">169</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    output$title &lt;- renderText({</pre>
+                      <pre class="language-r">      list(plot_height = plot_height, plot_width = plot_width, ggplot2_args = ggplot2_args)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">170</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="num">171</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.code::dev_suppress(output_q()[["title"]])</pre>
+                      <pre class="language-r">    datanames = teal.transform::get_extract_datanames(data_extract_list)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">485</td>
+                    <td class="num">172</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">486</td>
+                    <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="missed">
-                    <td class="num">487</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">    teal.widgets::verbatim_popup_srv(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">488</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">      id = "warning",</pre>
+                      <pre class="language-r">ui_tm_g_association &lt;- function(id, ...) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">489</td>
+                    <td class="num">176</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      verbatim_content = reactive(teal.code::get_warnings(output_q())),</pre>
+                      <pre class="language-r">  ns &lt;- NS(id)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">490</td>
+                    <td class="num">177</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      title = "Warning",</pre>
+                      <pre class="language-r">  args &lt;- list(...)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">491</td>
+                    <td class="num">178</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      disabled = reactive(is.null(teal.code::get_warnings(output_q())))</pre>
+                      <pre class="language-r">  is_single_dataset_value &lt;- teal.transform::is_single_dataset(args$ref, args$vars)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">492</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">493</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">  teal.widgets::standard_layout(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">494</td>
+                    <td class="num">181</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    teal.widgets::verbatim_popup_srv(</pre>
+                      <pre class="language-r">    output = teal.widgets::white_small_well(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">495</td>
+                    <td class="num">182</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      id = "rcode",</pre>
+                      <pre class="language-r">      textOutput(ns("title")),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">496</td>
+                    <td class="num">183</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      verbatim_content = reactive(teal.code::get_code(output_q())),</pre>
+                      <pre class="language-r">      tags$br(),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">497</td>
+                    <td class="num">184</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      title = "Association Plot"</pre>
+                      <pre class="language-r">      teal.widgets::plot_with_settings_ui(id = ns("myplot"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">498</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="missed">
+                    <td class="num">186</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    encoding = div(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">499</td>
+                    <td class="num">187</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      ### Reporter</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">188</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      teal.reporter::simple_reporter_ui(ns("simple_reporter")),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">500</td>
+                    <td class="num">189</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ### REPORTER</pre>
+                      <pre class="language-r">      ###</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">501</td>
+                    <td class="num">190</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (with_reporter) {</pre>
+                      <pre class="language-r">      tags$label("Encodings", class = "text-primary"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">502</td>
+                    <td class="num">191</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      card_fun &lt;- function(comment, label) {</pre>
+                      <pre class="language-r">      teal.transform::datanames_input(args[c("ref", "vars")]),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">503</td>
+                    <td class="num">192</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        card &lt;- teal::report_card_template(</pre>
+                      <pre class="language-r">      teal.transform::data_extract_ui(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">504</td>
+                    <td class="num">193</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          title = "Association Plot",</pre>
+                      <pre class="language-r">        id = ns("ref"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">505</td>
+                    <td class="num">194</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          label = label,</pre>
+                      <pre class="language-r">        label = "Reference variable",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">506</td>
+                    <td class="num">195</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          with_filter = with_filter,</pre>
+                      <pre class="language-r">        data_extract_spec = args$ref,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">507</td>
+                    <td class="num">196</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          filter_panel_api = filter_panel_api</pre>
+                      <pre class="language-r">        is_single_dataset = is_single_dataset_value</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">508</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="missed">
-                    <td class="num">509</td>
+                    <td class="num">198</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        card$append_text("Plot", "header3")</pre>
+                      <pre class="language-r">      teal.transform::data_extract_ui(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">510</td>
+                    <td class="num">199</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        card$append_plot(plot_r(), dim = pws$dim())</pre>
+                      <pre class="language-r">        id = ns("vars"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">511</td>
+                    <td class="num">200</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (!comment == "") {</pre>
+                      <pre class="language-r">        label = "Associated variables",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">512</td>
+                    <td class="num">201</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          card$append_text("Comment", "header3")</pre>
+                      <pre class="language-r">        data_extract_spec = args$vars,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">513</td>
+                    <td class="num">202</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          card$append_text(comment)</pre>
+                      <pre class="language-r">        is_single_dataset = is_single_dataset_value</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">514</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="missed">
-                    <td class="num">515</td>
+                    <td class="num">204</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        card$append_src(teal.code::get_code(output_q()))</pre>
+                      <pre class="language-r">      checkboxInput(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">516</td>
+                    <td class="num">205</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        card</pre>
+                      <pre class="language-r">        ns("association"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">517</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">      }</pre>
+                      <pre class="language-r">        "Association with reference variable",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">518</td>
+                    <td class="num">207</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun)</pre>
+                      <pre class="language-r">        value = args$show_association</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">519</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="never">
-                    <td class="num">520</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">209</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ###</pre>
+                      <pre class="language-r">      checkboxInput(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">521</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">210</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
+                      <pre class="language-r">        ns("show_dist"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">522</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">}</pre>
+                      <pre class="language-r">        "Scaled frequencies",</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/tm_g_scatterplot.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">212</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Create a simple scatterplot</pre>
+                      <pre class="language-r">        value = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</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">3</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">214</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Create a plot with the \code{\link{ggplot2}[geom_point]} function</pre>
+                      <pre class="language-r">      checkboxInput(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">4</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">#' @md</pre>
+                      <pre class="language-r">        ns("log_transformation"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">5</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">#'</pre>
+                      <pre class="language-r">        "Log transformed",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">6</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">#' @inheritParams teal::module</pre>
+                      <pre class="language-r">        value = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">218</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams shared_params</pre>
+                      <pre class="language-r">      ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">8</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">#' @param x (`data_extract_spec` or `list` of multiple `data_extract_spec`) Variable</pre>
+                      <pre class="language-r">      teal.widgets::panel_group(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">9</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">#'   names selected to plot along the x-axis by default.</pre>
+                      <pre class="language-r">        teal.widgets::panel_item(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">10</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 y (`data_extract_spec` or `list` of multiple `data_extract_spec`) Variable</pre>
+                      <pre class="language-r">          title = "Plot settings",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">11</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">#'   names selected to plot along the y-axis by default.</pre>
+                      <pre class="language-r">          teal.widgets::optionalSliderInputValMinMax(ns("alpha"), "Scatterplot opacity:", c(0.5, 0, 1), ticks = FALSE),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">12</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">#' @param color_by optional (`data_extract_spec` or `list` of multiple `data_extract_spec`)</pre>
+                      <pre class="language-r">          teal.widgets::optionalSliderInputValMinMax(ns("size"), "Scatterplot points size:", c(2, 1, 8), ticks = FALSE),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">13</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">224</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   Defines the color encoding. If `NULL` then no color encoding option will be displayed.</pre>
+                      <pre class="language-r">          checkboxInput(ns("swap_axes"), "Swap axes", value = FALSE),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">14</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">#' @param size_by optional (`data_extract_spec` or `list` of multiple `data_extract_spec`)</pre>
+                      <pre class="language-r">          checkboxInput(ns("rotate_xaxis_labels"), "Rotate X axis labels", value = FALSE),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">15</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">#'   Defines the point size encoding. If `NULL` then no size encoding option will be displayed.</pre>
+                      <pre class="language-r">          selectInput(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">16</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 row_facet optional, (`data_extract_spec` or `list` of multiple `data_extract_spec`)</pre>
+                      <pre class="language-r">            inputId = ns("distribution_theme"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">17</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">228</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   Which data columns to use for faceting rows.</pre>
+                      <pre class="language-r">            label = "Distribution theme (by ggplot):",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">18</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">#' @param col_facet optional, (`data_extract_spec` or `list` of multiple `data_extract_spec`)</pre>
+                      <pre class="language-r">            choices = ggplot_themes,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">19</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">#'   Which data to use for faceting columns.</pre>
+                      <pre class="language-r">            selected = args$distribution_theme,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">20</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">231</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param alpha optional, (`numeric`) If scalar then the plot points will have a fixed opacity. If a</pre>
+                      <pre class="language-r">            multiple = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">232</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   slider should be presented to adjust the plot point opacity dynamically then it can be a vector of</pre>
+                      <pre class="language-r">          ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">22</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">233</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   length three with `c(value, min, max)`.</pre>
+                      <pre class="language-r">          selectInput(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">23</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">#' @param size optional, (`numeric`) If scalar then the plot point sizes will have a fixed size</pre>
+                      <pre class="language-r">            inputId = ns("association_theme"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">24</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">#'   If a slider should be presented to adjust the plot point sizes dynamically then it can be a</pre>
+                      <pre class="language-r">            label = "Association theme (by ggplot):",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">25</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">#'   vector of length three with `c(value, min, max)`.</pre>
+                      <pre class="language-r">            choices = ggplot_themes,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">26</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">#' @param shape optional, (`character`) A character vector with the English names of the</pre>
+                      <pre class="language-r">            selected = args$association_theme,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">27</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">#'   shape, e.g. `c("triangle", "square", "circle")`. It defaults to `shape_names`. This is a complete list from</pre>
+                      <pre class="language-r">            multiple = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">28</td>
+                    <td class="num">239</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `vignette("ggplot2-specs", package="ggplot2")`.</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">29</td>
+                    <td class="num">240</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param max_deg optional, (`integer`) The maximum degree for the polynomial trend line. Must not be less than 1.</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">241</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param table_dec optional, (`integer`) Number of decimal places used to round numeric values in the table.</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</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">32</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">#'</pre>
+                      <pre class="language-r">    forms = tagList(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">33</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">#' @note For more examples, please see the vignette "Using scatterplot" via</pre>
+                      <pre class="language-r">      teal.widgets::verbatim_popup_ui(ns("warning"), "Show Warnings"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">34</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">#'   `vignette("using-scatterplot", package = "teal.modules.general")`.</pre>
+                      <pre class="language-r">      teal.widgets::verbatim_popup_ui(ns("rcode"), "Show R code")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</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">36</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">247</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">    pre_output = args$pre_output,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">37</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">248</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # general data example</pre>
+                      <pre class="language-r">    post_output = args$post_output</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">249</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(teal.widgets)</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</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="never">
-                    <td class="num">40</td>
+                    <td class="num">251</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' data &lt;- teal_data()</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">252</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' data &lt;- within(data, {</pre>
+                      <pre class="language-r">srv_tm_g_association &lt;- function(id,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">253</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   library(nestcolor)</pre>
+                      <pre class="language-r">                                 data,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <td class="num">254</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   CO2 &lt;- CO2</pre>
+                      <pre class="language-r">                                 reporter,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">44</td>
+                    <td class="num">255</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' })</pre>
+                      <pre class="language-r">                                 filter_panel_api,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">45</td>
+                    <td class="num">256</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' datanames(data) &lt;- "CO2"</pre>
+                      <pre class="language-r">                                 ref,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">46</td>
+                    <td class="num">257</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                 vars,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">47</td>
+                    <td class="num">258</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' app &lt;- init(</pre>
+                      <pre class="language-r">                                 plot_height,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">48</td>
+                    <td class="num">259</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = data,</pre>
+                      <pre class="language-r">                                 plot_width,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">49</td>
+                    <td class="num">260</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   modules = modules(</pre>
+                      <pre class="language-r">                                 ggplot2_args) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">50</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">#'     tm_g_scatterplot(</pre>
+                      <pre class="language-r">  with_reporter &lt;- !missing(reporter) &amp;&amp; inherits(reporter, "Reporter")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">51</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">#'       label = "Scatterplot Choices",</pre>
+                      <pre class="language-r">  with_filter &lt;- !missing(filter_panel_api) &amp;&amp; inherits(filter_panel_api, "FilterPanelAPI")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">52</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">#'       x = data_extract_spec(</pre>
+                      <pre class="language-r">  checkmate::assert_class(data, "reactive")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">53</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">#'         dataname = "CO2",</pre>
+                      <pre class="language-r">  checkmate::assert_class(isolate(data()), "teal_data")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">54</td>
+                    <td class="num">265</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         select = select_spec(</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">266</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           label = "Select variable:",</pre>
+                      <pre class="language-r">  moduleServer(id, function(input, output, session) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">56</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">#'           choices = variable_choices(data[["CO2"]], c("conc", "uptake")),</pre>
+                      <pre class="language-r">    selector_list &lt;- teal.transform::data_extract_multiple_srv(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">57</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">#'           selected = "conc",</pre>
+                      <pre class="language-r">      data_extract = list(ref = ref, vars = vars),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">58</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">#'           multiple = FALSE,</pre>
+                      <pre class="language-r">      datasets = data,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">59</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">270</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           fixed = FALSE</pre>
+                      <pre class="language-r">      select_validation_rule = list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">60</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">#'         )</pre>
+                      <pre class="language-r">        ref = shinyvalidate::compose_rules(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">61</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">          shinyvalidate::sv_required("A reference variable needs to be selected."),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">62</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">#'       y = data_extract_spec(</pre>
+                      <pre class="language-r">          ~ if ((.) %in% selector_list()$vars()$select) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">63</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">#'         dataname = "CO2",</pre>
+                      <pre class="language-r">            "Associated variables and reference variable cannot overlap"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">64</td>
+                    <td class="num">275</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         select = select_spec(</pre>
+                      <pre class="language-r">          }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">65</td>
+                    <td class="num">276</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           label = "Select variable:",</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">277</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           choices = variable_choices(data[["CO2"]], c("conc", "uptake")),</pre>
+                      <pre class="language-r">        vars = shinyvalidate::compose_rules(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">67</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">278</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           selected = "uptake",</pre>
+                      <pre class="language-r">          shinyvalidate::sv_required("An associated variable needs to be selected."),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">68</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">#'           multiple = FALSE,</pre>
+                      <pre class="language-r">          ~ if (length(selector_list()$ref()$select) != 0 &amp;&amp; selector_list()$ref()$select %in% (.)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">69</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">#'           fixed = FALSE</pre>
+                      <pre class="language-r">            "Associated variables and reference variable cannot overlap"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">70</td>
+                    <td class="num">281</td>
                     <td class="coverage"></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">282</td>
                     <td class="coverage"></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">283</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       color_by = data_extract_spec(</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">73</td>
+                    <td class="num">284</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         dataname = "CO2",</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">74</td>
+                    <td class="num">285</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         select = select_spec(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">75</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">286</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           label = "Select variable:",</pre>
+                      <pre class="language-r">    iv_r &lt;- reactive({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">76</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">#'           choices = variable_choices(</pre>
+                      <pre class="language-r">      iv &lt;- shinyvalidate::InputValidator$new()</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">77</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">#'             data[["CO2"]],</pre>
+                      <pre class="language-r">      teal.transform::compose_and_enable_validators(iv, selector_list)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">78</td>
+                    <td class="num">289</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'             c("Plant", "Type", "Treatment", "conc", "uptake")</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">79</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">80</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">291</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           selected = NULL,</pre>
+                      <pre class="language-r">    anl_merged_input &lt;- teal.transform::merge_expression_srv(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">81</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">#'           multiple = FALSE,</pre>
+                      <pre class="language-r">      datasets = data,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">82</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">#'           fixed = FALSE</pre>
+                      <pre class="language-r">      selector_list = selector_list</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">83</td>
+                    <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">
-                    <td class="num">84</td>
+                    <td class="num">295</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       ),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">85</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">#'       size_by = data_extract_spec(</pre>
+                      <pre class="language-r">    anl_merged_q &lt;- reactive({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">86</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">#'         dataname = "CO2",</pre>
+                      <pre class="language-r">      req(anl_merged_input())</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">87</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">298</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         select = select_spec(</pre>
+                      <pre class="language-r">      data() %&gt;% teal.code::eval_code(as.expression(anl_merged_input()$expr))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">88</td>
+                    <td class="num">299</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           label = "Select variable:",</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">89</td>
+                    <td class="num">300</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           choices = variable_choices(data[["CO2"]], c("conc", "uptake")),</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">301</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           selected = "uptake",</pre>
+                      <pre class="language-r">    merged &lt;- list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">91</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">302</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           multiple = FALSE,</pre>
+                      <pre class="language-r">      anl_input_r = anl_merged_input,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">92</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">#'           fixed = FALSE</pre>
+                      <pre class="language-r">      anl_q_r = anl_merged_q</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">93</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="never">
-                    <td class="num">94</td>
+                    <td class="num">305</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       ),</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">306</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       row_facet = data_extract_spec(</pre>
+                      <pre class="language-r">    output_q &lt;- reactive({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">96</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">#'         dataname = "CO2",</pre>
+                      <pre class="language-r">      teal::validate_inputs(iv_r())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">97</td>
+                    <td class="num">308</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         select = select_spec(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">98</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">#'           label = "Select variable:",</pre>
+                      <pre class="language-r">      ANL &lt;- merged$anl_q_r()[["ANL"]] # nolint: object_name.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">99</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">#'           choices = variable_choices(data[["CO2"]], c("Plant", "Type", "Treatment")),</pre>
+                      <pre class="language-r">      teal::validate_has_data(ANL, 3)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">100</td>
+                    <td class="num">311</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           selected = NULL,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">101</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">#'           multiple = FALSE,</pre>
+                      <pre class="language-r">      vars_names &lt;- merged$anl_input_r()$columns_source$vars</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">102</td>
+                    <td class="num">313</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           fixed = FALSE</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">103</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">#'         )</pre>
+                      <pre class="language-r">      ref_name &lt;- as.vector(merged$anl_input_r()$columns_source$ref)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">104</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">      association &lt;- input$association</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">105</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">316</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       col_facet = data_extract_spec(</pre>
+                      <pre class="language-r">      show_dist &lt;- input$show_dist</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">106</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">317</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         dataname = "CO2",</pre>
+                      <pre class="language-r">      log_transformation &lt;- input$log_transformation</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">107</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">318</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         select = select_spec(</pre>
+                      <pre class="language-r">      rotate_xaxis_labels &lt;- input$rotate_xaxis_labels</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">108</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">319</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           label = "Select variable:",</pre>
+                      <pre class="language-r">      swap_axes &lt;- input$swap_axes</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">109</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">320</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           choices = variable_choices(data[["CO2"]], c("Plant", "Type", "Treatment")),</pre>
+                      <pre class="language-r">      distribution_theme &lt;- input$distribution_theme</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">110</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">#'           selected = NULL,</pre>
+                      <pre class="language-r">      association_theme &lt;- input$association_theme</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">111</td>
+                    <td class="num">322</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           multiple = FALSE,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">112</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">323</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           fixed = FALSE</pre>
+                      <pre class="language-r">      is_scatterplot &lt;- is.numeric(ANL[[ref_name]]) &amp;&amp; any(vapply(ANL[vars_names], is.numeric, logical(1)))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">113</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">324</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         )</pre>
+                      <pre class="language-r">      if (is_scatterplot) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">114</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">325</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       ),</pre>
+                      <pre class="language-r">        shinyjs::show("alpha")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">115</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">326</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       ggplot2_args = ggplot2_args(</pre>
+                      <pre class="language-r">        shinyjs::show("size")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">116</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">327</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         labs = list(subtitle = "Plot generated by Scatterplot Module")</pre>
+                      <pre class="language-r">        alpha &lt;- input$alpha</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">117</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">328</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       )</pre>
+                      <pre class="language-r">        size &lt;- input$size</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">118</td>
+                    <td class="num">329</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">119</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">330</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">        shinyjs::hide("alpha")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">120</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">331</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">        shinyjs::hide("size")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">121</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">332</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' if (interactive()) {</pre>
+                      <pre class="language-r">        alpha &lt;- 0.5</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">122</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">333</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   shinyApp(app$ui, app$server)</pre>
+                      <pre class="language-r">        size &lt;- 2</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">123</td>
+                    <td class="num">334</td>
                     <td class="coverage"></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">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">125</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">336</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      teal::validate_has_data(ANL[, c(ref_name, vars_names)], 3, complete = TRUE, allow_inf = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">126</td>
+                    <td class="num">337</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # CDISC data example</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">127</td>
+                    <td class="num">338</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(teal.widgets)</pre>
+                      <pre class="language-r">      # reference</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">128</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">339</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      ref_class &lt;- class(ANL[[ref_name]])</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">129</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">340</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' data &lt;- teal_data()</pre>
+                      <pre class="language-r">      if (is.numeric(ANL[[ref_name]]) &amp;&amp; log_transformation) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">130</td>
+                    <td class="num">341</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' data &lt;- within(data, {</pre>
+                      <pre class="language-r">        # works for both integers and doubles</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">131</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">#'   library(nestcolor)</pre>
+                      <pre class="language-r">        ref_cl_name &lt;- call("log", as.name(ref_name))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">132</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">#'   ADSL &lt;- rADSL</pre>
+                      <pre class="language-r">        ref_cl_lbl &lt;- varname_w_label(ref_name, ANL, prefix = "Log of ")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">133</td>
+                    <td class="num">344</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">134</td>
+                    <td class="num">345</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' datanames(data) &lt;- c("ADSL")</pre>
+                      <pre class="language-r">        # silently ignore when non-numeric even if `log` is selected because some</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">135</td>
+                    <td class="num">346</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' join_keys(data) &lt;- default_cdisc_join_keys[datanames(data)]</pre>
+                      <pre class="language-r">        # variables may be numeric and others not</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">136</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">347</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        ref_cl_name &lt;- as.name(ref_name)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">137</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">348</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' app &lt;- init(</pre>
+                      <pre class="language-r">        ref_cl_lbl &lt;- varname_w_label(ref_name, ANL)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">138</td>
+                    <td class="num">349</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = data,</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">139</td>
+                    <td class="num">350</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">140</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">351</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     tm_g_scatterplot(</pre>
+                      <pre class="language-r">      user_ggplot2_args &lt;- teal.widgets::resolve_ggplot2_args(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">141</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">352</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       label = "Scatterplot Choices",</pre>
+                      <pre class="language-r">        user_plot = ggplot2_args[["Bivariate1"]],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">142</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">#'       x = data_extract_spec(</pre>
+                      <pre class="language-r">        user_default = ggplot2_args$default</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">143</td>
+                    <td class="num">354</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         dataname = "ADSL",</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">144</td>
+                    <td class="num">355</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         select = select_spec(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">145</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">#'           label = "Select variable:",</pre>
+                      <pre class="language-r">      ref_call &lt;- bivariate_plot_call(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">146</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">#'           choices = variable_choices(data[["ADSL"]], c("AGE", "BMRKR1", "BMRKR2")),</pre>
+                      <pre class="language-r">        data_name = "ANL",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">147</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">#'           selected = "AGE",</pre>
+                      <pre class="language-r">        x = ref_cl_name,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">148</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">#'           multiple = FALSE,</pre>
+                      <pre class="language-r">        x_class = ref_class,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">149</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">#'           fixed = FALSE</pre>
+                      <pre class="language-r">        x_label = ref_cl_lbl,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">150</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">#'         )</pre>
+                      <pre class="language-r">        freq = !show_dist,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">151</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">        theme = distribution_theme,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">152</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">#'       y = data_extract_spec(</pre>
+                      <pre class="language-r">        rotate_xaxis_labels = rotate_xaxis_labels,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">153</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">#'         dataname = "ADSL",</pre>
+                      <pre class="language-r">        swap_axes = FALSE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">154</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">#'         select = select_spec(</pre>
+                      <pre class="language-r">        size = size,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">155</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">#'           label = "Select variable:",</pre>
+                      <pre class="language-r">        alpha = alpha,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">156</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">#'           choices = variable_choices(data[["ADSL"]], c("AGE", "BMRKR1", "BMRKR2")),</pre>
+                      <pre class="language-r">        ggplot2_args = user_ggplot2_args</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">157</td>
+                    <td class="num">368</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           selected = "BMRKR1",</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">158</td>
+                    <td class="num">369</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           multiple = FALSE,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">159</td>
+                    <td class="num">370</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           fixed = FALSE</pre>
+                      <pre class="language-r">      # association</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">160</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">#'         )</pre>
+                      <pre class="language-r">      ref_class_cov &lt;- ifelse(association, ref_class, "NULL")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">161</td>
+                    <td class="num">372</td>
                     <td class="coverage"></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="missed">
+                    <td class="num">373</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       color_by = data_extract_spec(</pre>
+                      <pre class="language-r">      print_call &lt;- quote(print(p))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">163</td>
+                    <td class="num">374</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         dataname = "ADSL",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">164</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">375</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         select = select_spec(</pre>
+                      <pre class="language-r">      var_calls &lt;- lapply(vars_names, function(var_i) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">165</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">#'           label = "Select variable:",</pre>
+                      <pre class="language-r">        var_class &lt;- class(ANL[[var_i]])</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">166</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">377</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           choices = variable_choices(</pre>
+                      <pre class="language-r">        if (is.numeric(ANL[[var_i]]) &amp;&amp; log_transformation) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">167</td>
+                    <td class="num">378</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'             data[["ADSL"]],</pre>
+                      <pre class="language-r">          # works for both integers and doubles</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">168</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">#'             c("AGE", "BMRKR1", "BMRKR2", "RACE", "REGION1")</pre>
+                      <pre class="language-r">          var_cl_name &lt;- call("log", as.name(var_i))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">169</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">#'           ),</pre>
+                      <pre class="language-r">          var_cl_lbl &lt;- varname_w_label(var_i, ANL, prefix = "Log of ")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">170</td>
+                    <td class="num">381</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           selected = NULL,</pre>
+                      <pre class="language-r">        } else {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">171</td>
+                    <td class="num">382</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           multiple = FALSE,</pre>
+                      <pre class="language-r">          # silently ignore when non-numeric even if `log` is selected because some</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">172</td>
+                    <td class="num">383</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           fixed = FALSE</pre>
+                      <pre class="language-r">          # variables may be numeric and others not</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">173</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">          var_cl_name &lt;- as.name(var_i)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">174</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'       ),</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">175</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'       size_by = data_extract_spec(</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">176</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'         dataname = "ADSL",</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">177</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">385</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         select = select_spec(</pre>
+                      <pre class="language-r">          var_cl_lbl &lt;- varname_w_label(var_i, ANL)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">178</td>
+                    <td class="num">386</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           label = "Select variable:",</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">179</td>
+                    <td class="num">387</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           choices = variable_choices(data[["ADSL"]], c("AGE", "BMRKR1")),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">180</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">#'           selected = "AGE",</pre>
+                      <pre class="language-r">        user_ggplot2_args &lt;- teal.widgets::resolve_ggplot2_args(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">181</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">389</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           multiple = FALSE,</pre>
+                      <pre class="language-r">          user_plot = ggplot2_args[["Bivariate2"]],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">182</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">390</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           fixed = FALSE</pre>
+                      <pre class="language-r">          user_default = ggplot2_args$default</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">183</td>
+                    <td class="num">391</td>
                     <td class="coverage"></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">392</td>
                     <td class="coverage"></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="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">393</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       row_facet = data_extract_spec(</pre>
+                      <pre class="language-r">        bivariate_plot_call(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">186</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">#'         dataname = "ADSL",</pre>
+                      <pre class="language-r">          data_name = "ANL",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">187</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">#'         select = select_spec(</pre>
+                      <pre class="language-r">          x = ref_cl_name,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">188</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">396</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           label = "Select variable:",</pre>
+                      <pre class="language-r">          y = var_cl_name,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">189</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">#'           choices = variable_choices(data[["ADSL"]], c("BMRKR2", "RACE", "REGION1")),</pre>
+                      <pre class="language-r">          x_class = ref_class_cov,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">190</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">#'           selected = NULL,</pre>
+                      <pre class="language-r">          y_class = var_class,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">191</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">#'           multiple = FALSE,</pre>
+                      <pre class="language-r">          x_label = ref_cl_lbl,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">192</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">400</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           fixed = FALSE</pre>
+                      <pre class="language-r">          y_label = var_cl_lbl,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">193</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">401</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         )</pre>
+                      <pre class="language-r">          theme = association_theme,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">194</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">402</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       ),</pre>
+                      <pre class="language-r">          freq = !show_dist,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">195</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">403</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       col_facet = data_extract_spec(</pre>
+                      <pre class="language-r">          rotate_xaxis_labels = rotate_xaxis_labels,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">196</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">404</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         dataname = "ADSL",</pre>
+                      <pre class="language-r">          swap_axes = swap_axes,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">197</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">405</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         select = select_spec(</pre>
+                      <pre class="language-r">          alpha = alpha,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">198</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">406</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           label = "Select variable:",</pre>
+                      <pre class="language-r">          size = size,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">199</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">407</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           choices = variable_choices(data[["ADSL"]], c("BMRKR2", "RACE", "REGION1")),</pre>
+                      <pre class="language-r">          ggplot2_args = user_ggplot2_args</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">200</td>
+                    <td class="num">408</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           selected = NULL,</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">201</td>
+                    <td class="num">409</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           multiple = FALSE,</pre>
+                      <pre class="language-r">      })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">202</td>
+                    <td class="num">410</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           fixed = FALSE</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">203</td>
+                    <td class="num">411</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         )</pre>
+                      <pre class="language-r">      # helper function to format variable name</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">204</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">#'       ),</pre>
+                      <pre class="language-r">      format_varnames &lt;- function(x) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">205</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">#'       ggplot2_args = ggplot2_args(</pre>
+                      <pre class="language-r">        if (is.numeric(ANL[[x]]) &amp;&amp; log_transformation) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">206</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">#'         labs = list(subtitle = "Plot generated by Scatterplot Module")</pre>
+                      <pre class="language-r">          varname_w_label(x, ANL, prefix = "Log of ")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">207</td>
+                    <td class="num">415</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">208</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">          varname_w_label(x, ANL)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">209</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="never">
-                    <td class="num">210</td>
+                    <td class="num">418</td>
                     <td class="coverage"></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="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">419</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' if (interactive()) {</pre>
+                      <pre class="language-r">      new_title &lt;-</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">212</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">#'   shinyApp(app$ui, app$server)</pre>
+                      <pre class="language-r">        if (association) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">213</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">#' }</pre>
+                      <pre class="language-r">          switch(as.character(length(vars_names)),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">214</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">#'</pre>
+                      <pre class="language-r">            "0" = sprintf("Value distribution for %s", ref_cl_lbl),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">215</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">#' @export</pre>
+                      <pre class="language-r">            "1" = sprintf(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">216</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">424</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">              "Association between %s and %s",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">217</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">tm_g_scatterplot &lt;- function(label = "Scatterplot",</pre>
+                      <pre class="language-r">              ref_cl_lbl,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">218</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">                             x,</pre>
+                      <pre class="language-r">              format_varnames(vars_names)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">219</td>
+                    <td class="num">427</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             y,</pre>
+                      <pre class="language-r">            ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">220</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">                             color_by = NULL,</pre>
+                      <pre class="language-r">            sprintf(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">221</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">                             size_by = NULL,</pre>
+                      <pre class="language-r">              "Associations between %s and: %s",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">222</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">                             row_facet = NULL,</pre>
+                      <pre class="language-r">              ref_cl_lbl,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">223</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">                             col_facet = NULL,</pre>
+                      <pre class="language-r">              paste(lapply(vars_names, format_varnames), collapse = ", ")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">224</td>
+                    <td class="num">432</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             plot_height = c(600, 200, 2000),</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">225</td>
+                    <td class="num">433</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             plot_width = NULL,</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">226</td>
+                    <td class="num">434</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             alpha = c(1, 0, 1),</pre>
+                      <pre class="language-r">        } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">227</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">435</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             shape = shape_names,</pre>
+                      <pre class="language-r">          switch(as.character(length(vars_names)),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">228</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">436</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             size = c(5, 1, 15),</pre>
+                      <pre class="language-r">            "0" = sprintf("Value distribution for %s", ref_cl_lbl),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">229</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">437</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             max_deg = 5L,</pre>
+                      <pre class="language-r">            sprintf(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">230</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">                             rotate_xaxis_labels = FALSE,</pre>
+                      <pre class="language-r">              "Value distributions for %s and %s",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">231</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">439</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             ggtheme = c("gray", "bw", "linedraw", "light", "dark", "minimal", "classic", "void"),</pre>
+                      <pre class="language-r">              ref_cl_lbl,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">232</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">440</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             pre_output = NULL,</pre>
+                      <pre class="language-r">              paste(lapply(vars_names, format_varnames), collapse = ", ")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">233</td>
+                    <td class="num">441</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             post_output = NULL,</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">234</td>
+                    <td class="num">442</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             table_dec = 4,</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">235</td>
+                    <td class="num">443</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             ggplot2_args = teal.widgets::ggplot2_args()) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">236</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  logger::log_info("Initializing tm_g_scatterplot")</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">237</td>
+                    <td class="num">444</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">238</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  extra_packages &lt;- c("ggpmisc", "ggExtra", "colourpicker")</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">239</td>
+                    <td class="num">445</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  missing_packages &lt;- Filter(function(x) !requireNamespace(x, quietly = TRUE), extra_packages)</pre>
+                      <pre class="language-r">      teal.code::eval_code(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">240</td>
+                    <td class="num">446</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (length(missing_packages) &gt; 0L) {</pre>
+                      <pre class="language-r">        merged$anl_q_r(),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">241</td>
+                    <td class="num">447</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stop(sprintf(</pre>
+                      <pre class="language-r">        substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">242</td>
+                    <td class="num">448</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Cannot load package(s): %s.\nInstall or restart your session.",</pre>
+                      <pre class="language-r">          expr = title &lt;- new_title,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">243</td>
+                    <td class="num">449</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      toString(missing_packages)</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">          env = list(new_title = new_title)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">245</td>
+                    <td class="num">450</td>
                     <td class="coverage"></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">451</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">247</td>
+                    <td class="num">452</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (inherits(x, "data_extract_spec")) x &lt;- list(x)</pre>
+                      <pre class="language-r">        teal.code::eval_code(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">248</td>
+                    <td class="num">453</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (inherits(y, "data_extract_spec")) y &lt;- list(y)</pre>
+                      <pre class="language-r">          substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">249</td>
+                    <td class="num">454</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (inherits(color_by, "data_extract_spec")) color_by &lt;- list(color_by)</pre>
+                      <pre class="language-r">            expr = {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">250</td>
+                    <td class="num">455</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (inherits(size_by, "data_extract_spec")) size_by &lt;- list(size_by)</pre>
+                      <pre class="language-r">              plots &lt;- plot_calls</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">251</td>
+                    <td class="num">456</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (inherits(row_facet, "data_extract_spec")) row_facet &lt;- list(row_facet)</pre>
+                      <pre class="language-r">              p &lt;- tern::stack_grobs(grobs = lapply(plots, ggplotGrob))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">252</td>
+                    <td class="num">457</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (inherits(col_facet, "data_extract_spec")) col_facet &lt;- list(col_facet)</pre>
+                      <pre class="language-r">              grid::grid.newpage()</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">253</td>
+                    <td class="num">458</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.double(max_deg)) max_deg &lt;- as.integer(max_deg)</pre>
+                      <pre class="language-r">              grid::grid.draw(p)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">254</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="missed">
-                    <td class="num">255</td>
+                    <td class="num">460</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ggtheme &lt;- match.arg(ggtheme)</pre>
+                      <pre class="language-r">            env = list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">256</td>
+                    <td class="num">461</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(label)</pre>
+                      <pre class="language-r">              plot_calls = do.call(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">257</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(x, types = "data_extract_spec")</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">258</td>
+                    <td class="num">462</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(y, types = "data_extract_spec")</pre>
+                      <pre class="language-r">                "call",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">259</td>
+                    <td class="num">463</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(color_by, types = "data_extract_spec", null.ok = TRUE)</pre>
+                      <pre class="language-r">                c(list("list", ref_call), var_calls),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">260</td>
+                    <td class="num">464</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(size_by, types = "data_extract_spec", null.ok = TRUE)</pre>
+                      <pre class="language-r">                quote = TRUE</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">261</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">465</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(row_facet, types = "data_extract_spec", null.ok = TRUE)</pre>
+                      <pre class="language-r">              )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">262</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">466</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(col_facet, types = "data_extract_spec", null.ok = TRUE)</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">263</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">467</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(row_facet, types = "data_extract_spec", null.ok = TRUE)</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">264</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">468</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!all(vapply(row_facet, function(x) !x$select$multiple, logical(1)))) {</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">265</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">469</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stop("'row_facet' should not allow multiple selection")</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">266</td>
+                    <td class="num">470</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">267</td>
+                    <td class="num">471</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!all(vapply(col_facet, function(x) !x$select$multiple, logical(1)))) {</pre>
+                      <pre class="language-r">    plot_r &lt;- shiny::reactive({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">268</td>
+                    <td class="num">472</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stop("'col_facet' should not allow multiple selection")</pre>
+                      <pre class="language-r">      shiny::req(iv_r()$is_valid())</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">269</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">473</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">      output_q()[["p"]]</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">270</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">474</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(shape)</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">271</td>
+                    <td class="num">475</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">272</td>
+                    <td class="num">476</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_int(max_deg, lower = 1L)</pre>
+                      <pre class="language-r">    pws &lt;- teal.widgets::plot_with_settings_srv(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">273</td>
+                    <td class="num">477</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_scalar(table_dec)</pre>
+                      <pre class="language-r">      id = "myplot",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">274</td>
+                    <td class="num">478</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(rotate_xaxis_labels)</pre>
+                      <pre class="language-r">      plot_r = plot_r,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">275</td>
+                    <td class="num">479</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (length(alpha) == 1) {</pre>
+                      <pre class="language-r">      height = plot_height,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">276</td>
+                    <td class="num">480</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_numeric(alpha, any.missing = FALSE, finite = TRUE)</pre>
+                      <pre class="language-r">      width = plot_width</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">277</td>
+                    <td class="num">481</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">482</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">278</td>
+                    <td class="num">483</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_numeric(alpha, len = 3, any.missing = FALSE, finite = TRUE)</pre>
+                      <pre class="language-r">    output$title &lt;- renderText({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">279</td>
+                    <td class="num">484</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_numeric(alpha[1], lower = alpha[2], upper = alpha[3], .var.name = "alpha")</pre>
+                      <pre class="language-r">      teal.code::dev_suppress(output_q()[["title"]])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">280</td>
+                    <td class="num">485</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">281</td>
+                    <td class="num">486</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">282</td>
+                    <td class="num">487</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (length(size) == 1) {</pre>
+                      <pre class="language-r">    teal.widgets::verbatim_popup_srv(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">283</td>
+                    <td class="num">488</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_numeric(size, any.missing = FALSE, finite = TRUE)</pre>
+                      <pre class="language-r">      id = "warning",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">284</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">  } else {</pre>
+                      <pre class="language-r">      verbatim_content = reactive(teal.code::get_warnings(output_q())),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">285</td>
+                    <td class="num">490</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_numeric(size, len = 3, any.missing = FALSE, finite = TRUE)</pre>
+                      <pre class="language-r">      title = "Warning",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">286</td>
+                    <td class="num">491</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_numeric(size[1], lower = size[2], upper = size[3], .var.name = "size")</pre>
+                      <pre class="language-r">      disabled = reactive(is.null(teal.code::get_warnings(output_q())))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">287</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">288</td>
+                    <td class="num">493</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">289</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(plot_height, len = 3, any.missing = FALSE, finite = TRUE)</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">290</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(plot_height[1], lower = plot_height[2], upper = plot_height[3], .var.name = "plot_height")</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">291</td>
+                    <td class="num">494</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(plot_width, len = 3, any.missing = FALSE, null.ok = TRUE, finite = TRUE)</pre>
+                      <pre class="language-r">    teal.widgets::verbatim_popup_srv(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">292</td>
+                    <td class="num">495</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(</pre>
+                      <pre class="language-r">      id = "rcode",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">293</td>
+                    <td class="num">496</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    plot_width[1],</pre>
+                      <pre class="language-r">      verbatim_content = reactive(teal.code::get_code(output_q())),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">294</td>
+                    <td class="num">497</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lower = plot_width[2], upper = plot_width[3], null.ok = TRUE, .var.name = "plot_width"</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">295</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">      title = "Association Plot"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">296</td>
+                    <td class="num">498</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">297</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(ggplot2_args, "ggplot2_args")</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">298</td>
+                    <td class="num">499</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">299</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  args &lt;- as.list(environment())</pre>
-                    </td>
-                  </tr>
                   <tr class="never">
-                    <td class="num">300</td>
+                    <td class="num">500</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    ### REPORTER</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">301</td>
+                    <td class="num">501</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  data_extract_list &lt;- list(</pre>
+                      <pre class="language-r">    if (with_reporter) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">302</td>
+                    <td class="num">502</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x = x,</pre>
+                      <pre class="language-r">      card_fun &lt;- function(comment, label) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">303</td>
+                    <td class="num">503</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    y = y,</pre>
+                      <pre class="language-r">        card &lt;- teal::report_card_template(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">304</td>
+                    <td class="num">504</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    color_by = color_by,</pre>
+                      <pre class="language-r">          title = "Association Plot",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">305</td>
+                    <td class="num">505</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    size_by = size_by,</pre>
+                      <pre class="language-r">          label = label,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">306</td>
+                    <td class="num">506</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    row_facet = row_facet,</pre>
+                      <pre class="language-r">          with_filter = with_filter,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">307</td>
+                    <td class="num">507</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    col_facet = col_facet</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">308</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">          filter_panel_api = filter_panel_api</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">309</td>
+                    <td class="num">508</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">310</td>
+                    <td class="num">509</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  module(</pre>
+                      <pre class="language-r">        card$append_text("Plot", "header3")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">311</td>
+                    <td class="num">510</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    label = label,</pre>
+                      <pre class="language-r">        card$append_plot(plot_r(), dim = pws$dim())</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">312</td>
+                    <td class="num">511</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    server = srv_g_scatterplot,</pre>
+                      <pre class="language-r">        if (!comment == "") {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">313</td>
+                    <td class="num">512</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ui = ui_g_scatterplot,</pre>
+                      <pre class="language-r">          card$append_text("Comment", "header3")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">314</td>
+                    <td class="num">513</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ui_args = args,</pre>
+                      <pre class="language-r">          card$append_text(comment)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">315</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">514</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    server_args = c(</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">316</td>
+                    <td class="num">515</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      data_extract_list,</pre>
+                      <pre class="language-r">        card$append_src(teal.code::get_code(output_q()))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">317</td>
+                    <td class="num">516</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      list(plot_height = plot_height, plot_width = plot_width, table_dec = table_dec, ggplot2_args = ggplot2_args)</pre>
+                      <pre class="language-r">        card</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">318</td>
+                    <td class="num">517</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">319</td>
+                    <td class="num">518</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    datanames = teal.transform::get_extract_datanames(data_extract_list)</pre>
+                      <pre class="language-r">      teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">320</td>
+                    <td class="num">519</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">321</td>
+                    <td class="num">520</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">    ###</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">322</td>
+                    <td class="num">521</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">323</td>
+                    <td class="num">522</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">ui_g_scatterplot &lt;- function(id, ...) {</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">324</td>
-                    <td class="coverage">!</td>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/tm_g_scatterplot.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">  args &lt;- list(...)</pre>
+                      <pre class="language-r">#' Create a simple scatterplot</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">325</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">  ns &lt;- NS(id)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">326</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">  is_single_dataset_value &lt;- teal.transform::is_single_dataset(</pre>
+                      <pre class="language-r">#' Create a plot with the \code{\link{ggplot2}[geom_point]} function</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">327</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">    args$x, args$y, args$color_by, args$size_by, args$row_facet, args$col_facet</pre>
+                      <pre class="language-r">#' @md</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">328</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="never">
-                    <td class="num">329</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @inheritParams teal::module</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">330</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">  shiny::tagList(</pre>
+                      <pre class="language-r">#' @inheritParams shared_params</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">331</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">    include_css_files("custom"),</pre>
+                      <pre class="language-r">#' @param x (`data_extract_spec` or `list` of multiple `data_extract_spec`) Variable</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">332</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">    teal.widgets::standard_layout(</pre>
+                      <pre class="language-r">#'   names selected to plot along the x-axis by default.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">333</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">      output = teal.widgets::white_small_well(</pre>
+                      <pre class="language-r">#' @param y (`data_extract_spec` or `list` of multiple `data_extract_spec`) Variable</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">334</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">        teal.widgets::plot_with_settings_ui(id = ns("scatter_plot")),</pre>
+                      <pre class="language-r">#'   names selected to plot along the y-axis by default.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">335</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">        tags$h1(tags$strong("Selected points:"), class = "text-center font-150p"),</pre>
+                      <pre class="language-r">#' @param color_by optional (`data_extract_spec` or `list` of multiple `data_extract_spec`)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">336</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">        teal.widgets::get_dt_rows(ns("data_table"), ns("data_table_rows")),</pre>
+                      <pre class="language-r">#'   Defines the color encoding. If `NULL` then no color encoding option will be displayed.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">337</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">        DT::dataTableOutput(ns("data_table"), width = "100%")</pre>
+                      <pre class="language-r">#' @param size_by optional (`data_extract_spec` or `list` of multiple `data_extract_spec`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">338</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ),</pre>
+                      <pre class="language-r">#'   Defines the point size encoding. If `NULL` then no size encoding option will be displayed.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">339</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">      encoding = div(</pre>
+                      <pre class="language-r">#' @param row_facet optional, (`data_extract_spec` or `list` of multiple `data_extract_spec`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">340</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ### Reporter</pre>
+                      <pre class="language-r">#'   Which data columns to use for faceting rows.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">341</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">        teal.reporter::simple_reporter_ui(ns("simple_reporter")),</pre>
+                      <pre class="language-r">#' @param col_facet optional, (`data_extract_spec` or `list` of multiple `data_extract_spec`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">342</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ###</pre>
+                      <pre class="language-r">#'   Which data to use for faceting columns.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">343</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">        tags$label("Encodings", class = "text-primary"),</pre>
+                      <pre class="language-r">#' @param alpha optional, (`numeric`) If scalar then the plot points will have a fixed opacity. If a</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">344</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">        teal.transform::datanames_input(args[c("x", "y", "color_by", "size_by", "row_facet", "col_facet")]),</pre>
+                      <pre class="language-r">#'   slider should be presented to adjust the plot point opacity dynamically then it can be a vector of</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">345</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">        teal.transform::data_extract_ui(</pre>
+                      <pre class="language-r">#'   length three with `c(value, min, max)`.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">346</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">          id = ns("x"),</pre>
+                      <pre class="language-r">#' @param size optional, (`numeric`) If scalar then the plot point sizes will have a fixed size</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">347</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">          label = "X variable",</pre>
+                      <pre class="language-r">#'   If a slider should be presented to adjust the plot point sizes dynamically then it can be a</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">348</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">          data_extract_spec = args$x,</pre>
+                      <pre class="language-r">#'   vector of length three with `c(value, min, max)`.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">349</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">          is_single_dataset = is_single_dataset_value</pre>
+                      <pre class="language-r">#' @param shape optional, (`character`) A character vector with the English names of the</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">350</td>
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ),</pre>
+                      <pre class="language-r">#'   shape, e.g. `c("triangle", "square", "circle")`. It defaults to `shape_names`. This is a complete list from</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">351</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">        checkboxInput(ns("log_x"), "Use log transformation", value = FALSE),</pre>
+                      <pre class="language-r">#'   `vignette("ggplot2-specs", package="ggplot2")`.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">352</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">        conditionalPanel(</pre>
+                      <pre class="language-r">#' @param max_deg optional, (`integer`) The maximum degree for the polynomial trend line. Must not be less than 1.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">353</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 = paste0("input['", ns("log_x"), "'] == true"),</pre>
+                      <pre class="language-r">#' @param table_dec optional, (`integer`) Number of decimal places used to round numeric values in the table.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">354</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">          radioButtons(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">355</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">            ns("log_x_base"),</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">33</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            label = NULL,</pre>
+                      <pre class="language-r">#' @note For more examples, please see the vignette "Using scatterplot" via</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">357</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">            inline = TRUE,</pre>
+                      <pre class="language-r">#'   `vignette("using-scatterplot", package = "teal.modules.general")`.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">358</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">            choices = c("Natural" = "log", "Base 10" = "log10", "Base 2" = "log2")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">359</td>
+                    <td class="num">36</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">360</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ),</pre>
+                      <pre class="language-r">#' # general data example</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">361</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">        teal.transform::data_extract_ui(</pre>
+                      <pre class="language-r">#' library(teal.widgets)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">362</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">          id = ns("y"),</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">40</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          label = "Y variable",</pre>
+                      <pre class="language-r">#' data &lt;- teal_data()</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">364</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">          data_extract_spec = args$y,</pre>
+                      <pre class="language-r">#' data &lt;- within(data, {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">365</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">          is_single_dataset = is_single_dataset_value</pre>
+                      <pre class="language-r">#'   library(nestcolor)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">366</td>
+                    <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ),</pre>
+                      <pre class="language-r">#'   CO2 &lt;- CO2</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">367</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">        checkboxInput(ns("log_y"), "Use log transformation", value = FALSE),</pre>
+                      <pre class="language-r">#' })</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">368</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">        conditionalPanel(</pre>
+                      <pre class="language-r">#' datanames(data) &lt;- "CO2"</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">369</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">          condition = paste0("input['", ns("log_y"), "'] == true"),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">370</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">          radioButtons(</pre>
+                      <pre class="language-r">#' app &lt;- init(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">371</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">            ns("log_y_base"),</pre>
+                      <pre class="language-r">#'   data = data,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">372</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">            label = NULL,</pre>
+                      <pre class="language-r">#'   modules = modules(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">373</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">50</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            inline = TRUE,</pre>
+                      <pre class="language-r">#'     tm_g_scatterplot(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">374</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">            choices = c("Natural" = "log", "Base 10" = "log10", "Base 2" = "log2")</pre>
+                      <pre class="language-r">#'       label = "Scatterplot Choices",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">375</td>
+                    <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">#'       x = data_extract_spec(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">376</td>
+                    <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ),</pre>
+                      <pre class="language-r">#'         dataname = "CO2",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">377</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">        if (!is.null(args$color_by)) {</pre>
+                      <pre class="language-r">#'         select = select_spec(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">378</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">          teal.transform::data_extract_ui(</pre>
+                      <pre class="language-r">#'           label = "Select variable:",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">379</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">            id = ns("color_by"),</pre>
+                      <pre class="language-r">#'           choices = variable_choices(data[["CO2"]], c("conc", "uptake")),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">380</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">            label = "Color by variable",</pre>
+                      <pre class="language-r">#'           selected = "conc",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">381</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">            data_extract_spec = args$color_by,</pre>
+                      <pre class="language-r">#'           multiple = FALSE,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">382</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">            is_single_dataset = is_single_dataset_value</pre>
+                      <pre class="language-r">#'           fixed = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">383</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">384</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="missed">
-                    <td class="num">385</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">        if (!is.null(args$size_by)) {</pre>
+                      <pre class="language-r">#'       y = data_extract_spec(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">386</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">          teal.transform::data_extract_ui(</pre>
+                      <pre class="language-r">#'         dataname = "CO2",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">387</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">            id = ns("size_by"),</pre>
+                      <pre class="language-r">#'         select = select_spec(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">388</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">            label = "Size by variable",</pre>
+                      <pre class="language-r">#'           label = "Select variable:",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">389</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">            data_extract_spec = args$size_by,</pre>
+                      <pre class="language-r">#'           choices = variable_choices(data[["CO2"]], c("conc", "uptake")),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">390</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">            is_single_dataset = is_single_dataset_value</pre>
+                      <pre class="language-r">#'           selected = "uptake",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">391</td>
+                    <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">#'           multiple = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">392</td>
+                    <td class="num">69</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        },</pre>
+                      <pre class="language-r">#'           fixed = FALSE</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">393</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">        if (!is.null(args$row_facet)) {</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">71</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          teal.transform::data_extract_ui(</pre>
+                      <pre class="language-r">#'       ),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">395</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">            id = ns("row_facet"),</pre>
+                      <pre class="language-r">#'       color_by = data_extract_spec(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">396</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">            label = "Row facetting",</pre>
+                      <pre class="language-r">#'         dataname = "CO2",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">397</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">            data_extract_spec = args$row_facet,</pre>
+                      <pre class="language-r">#'         select = select_spec(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">398</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">75</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            is_single_dataset = is_single_dataset_value</pre>
+                      <pre class="language-r">#'           label = "Select variable:",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">399</td>
+                    <td class="num">76</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">#'           choices = variable_choices(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">400</td>
+                    <td class="num">77</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        },</pre>
+                      <pre class="language-r">#'             data[["CO2"]],</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">401</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 (!is.null(args$col_facet)) {</pre>
+                      <pre class="language-r">#'             c("Plant", "Type", "Treatment", "conc", "uptake")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">402</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">          teal.transform::data_extract_ui(</pre>
+                      <pre class="language-r">#'           ),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">403</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">            id = ns("col_facet"),</pre>
+                      <pre class="language-r">#'           selected = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">404</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">            label = "Column facetting",</pre>
+                      <pre class="language-r">#'           multiple = FALSE,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">405</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">            data_extract_spec = args$col_facet,</pre>
+                      <pre class="language-r">#'           fixed = FALSE</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">406</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">            is_single_dataset = is_single_dataset_value</pre>
+                      <pre class="language-r">#'         )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">407</td>
+                    <td class="num">84</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">#'       ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">408</td>
+                    <td class="num">85</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        },</pre>
+                      <pre class="language-r">#'       size_by = data_extract_spec(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">409</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">        teal.widgets::panel_group(</pre>
+                      <pre class="language-r">#'         dataname = "CO2",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">410</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">          teal.widgets::panel_item(</pre>
+                      <pre class="language-r">#'         select = select_spec(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">411</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">            title = "Plot settings",</pre>
+                      <pre class="language-r">#'           label = "Select variable:",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">412</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">            teal.widgets::optionalSliderInputValMinMax(ns("alpha"), "Opacity:", args$alpha, ticks = FALSE),</pre>
+                      <pre class="language-r">#'           choices = variable_choices(data[["CO2"]], c("conc", "uptake")),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">413</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">            teal.widgets::optionalSelectInput(</pre>
+                      <pre class="language-r">#'           selected = "uptake",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">414</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">91</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              inputId = ns("shape"),</pre>
+                      <pre class="language-r">#'           multiple = FALSE,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">415</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">92</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              label = "Points shape:",</pre>
+                      <pre class="language-r">#'           fixed = FALSE</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">416</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">              choices = args$shape,</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">94</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              selected = args$shape[1],</pre>
+                      <pre class="language-r">#'       ),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">418</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">              multiple = FALSE</pre>
+                      <pre class="language-r">#'       row_facet = data_extract_spec(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">419</td>
+                    <td class="num">96</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ),</pre>
+                      <pre class="language-r">#'         dataname = "CO2",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">420</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">            colourpicker::colourInput(ns("color"), "Points color:", "black"),</pre>
+                      <pre class="language-r">#'         select = select_spec(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">421</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">            teal.widgets::optionalSliderInputValMinMax(ns("size"), "Points size:", args$size, ticks = FALSE, step = .1),</pre>
+                      <pre class="language-r">#'           label = "Select variable:",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">422</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">99</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            checkboxInput(ns("rotate_xaxis_labels"), "Rotate X axis labels", value = args$rotate_xaxis_labels),</pre>
+                      <pre class="language-r">#'           choices = variable_choices(data[["CO2"]], c("Plant", "Type", "Treatment")),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">423</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">100</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            checkboxInput(ns("add_density"), "Add marginal density", value = FALSE),</pre>
+                      <pre class="language-r">#'           selected = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">424</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">            checkboxInput(ns("rug_plot"), "Include rug plot", value = FALSE),</pre>
+                      <pre class="language-r">#'           multiple = FALSE,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">425</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">            checkboxInput(ns("show_count"), "Show N (number of observations)", value = FALSE),</pre>
+                      <pre class="language-r">#'           fixed = FALSE</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">426</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">            shinyjs::hidden(helpText(id = ns("line_msg"), "Trendline needs numeric X and Y variables")),</pre>
+                      <pre class="language-r">#'         )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">427</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">            teal.widgets::optionalSelectInput(ns("smoothing_degree"), "Smoothing degree", seq_len(args$max_deg)),</pre>
+                      <pre class="language-r">#'       ),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">428</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">            shinyjs::hidden(teal.widgets::optionalSelectInput(ns("color_sub"), label = "", multiple = TRUE)),</pre>
+                      <pre class="language-r">#'       col_facet = data_extract_spec(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">429</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">            teal.widgets::optionalSliderInputValMinMax(ns("ci"), "Confidence", c(.95, .8, .99), ticks = FALSE),</pre>
+                      <pre class="language-r">#'         dataname = "CO2",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">430</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">            shinyjs::hidden(checkboxInput(ns("show_form"), "Show formula", value = TRUE)),</pre>
+                      <pre class="language-r">#'         select = select_spec(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">431</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">            shinyjs::hidden(checkboxInput(ns("show_r2"), "Show adj-R Squared", value = TRUE)),</pre>
+                      <pre class="language-r">#'           label = "Select variable:",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">432</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">            uiOutput(ns("num_na_removed")),</pre>
+                      <pre class="language-r">#'           choices = variable_choices(data[["CO2"]], c("Plant", "Type", "Treatment")),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">433</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">110</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            div(</pre>
+                      <pre class="language-r">#'           selected = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">434</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">              id = ns("label_pos"),</pre>
+                      <pre class="language-r">#'           multiple = FALSE,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">435</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">              div(strong("Stats position")),</pre>
+                      <pre class="language-r">#'           fixed = FALSE</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">436</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">              div(class = "inline-block w-10", helpText("Left")),</pre>
+                      <pre class="language-r">#'         )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">437</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">              div(</pre>
+                      <pre class="language-r">#'       ),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">438</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">                class = "inline-block w-70",</pre>
+                      <pre class="language-r">#'       ggplot2_args = ggplot2_args(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">439</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">116</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                teal.widgets::optionalSliderInput(</pre>
+                      <pre class="language-r">#'         labs = list(subtitle = "Plot generated by Scatterplot Module")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">440</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">                  ns("pos"),</pre>
+                      <pre class="language-r">#'       )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">441</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">118</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  label = NULL,</pre>
+                      <pre class="language-r">#'     )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">442</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">119</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  min = 0, max = 1, value = .99, ticks = FALSE, step = .01</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">443</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">444</td>
+                    <td class="num">121</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="missed">
-                    <td class="num">445</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">122</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              div(class = "inline-block w-10", helpText("Right"))</pre>
+                      <pre class="language-r">#'   shinyApp(app$ui, app$server)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">446</td>
+                    <td class="num">123</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">447</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">            teal.widgets::optionalSliderInput(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">448</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">125</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              ns("label_size"), "Stats font size",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">449</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">126</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              min = 3, max = 10, value = 5, ticks = FALSE, step = .1</pre>
+                      <pre class="language-r">#' # CDISC data example</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">450</td>
+                    <td class="num">127</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ),</pre>
+                      <pre class="language-r">#' library(teal.widgets)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">451</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">128</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            if (!is.null(args$row_facet) || !is.null(args$col_facet)) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">452</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">              checkboxInput(ns("free_scales"), "Free scales", value = FALSE)</pre>
+                      <pre class="language-r">#' data &lt;- teal_data()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">453</td>
+                    <td class="num">130</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            },</pre>
+                      <pre class="language-r">#' data &lt;- within(data, {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">454</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">131</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            selectInput(</pre>
+                      <pre class="language-r">#'   library(nestcolor)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">455</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">132</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              inputId = ns("ggtheme"),</pre>
+                      <pre class="language-r">#'   ADSL &lt;- rADSL</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">456</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">133</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              label = "Theme (by ggplot):",</pre>
+                      <pre class="language-r">#' })</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">457</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">134</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              choices = ggplot_themes,</pre>
+                      <pre class="language-r">#' datanames(data) &lt;- c("ADSL")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">458</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">              selected = args$ggtheme,</pre>
+                      <pre class="language-r">#' join_keys(data) &lt;- default_cdisc_join_keys[datanames(data)]</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">459</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">136</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              multiple = FALSE</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">460</td>
+                    <td class="num">137</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">461</td>
+                    <td class="num">138</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">462</td>
+                    <td class="num">139</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">463</td>
+                    <td class="num">140</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ),</pre>
+                      <pre class="language-r">#'     tm_g_scatterplot(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">464</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">      forms = tagList(</pre>
+                      <pre class="language-r">#'       label = "Scatterplot Choices",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">465</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">        teal.widgets::verbatim_popup_ui(ns("warning"), button_label = "Show Warnings"),</pre>
+                      <pre class="language-r">#'       x = data_extract_spec(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">466</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">        teal.widgets::verbatim_popup_ui(ns("rcode"), "Show R code")</pre>
+                      <pre class="language-r">#'         dataname = "ADSL",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">467</td>
+                    <td class="num">144</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ),</pre>
+                      <pre class="language-r">#'         select = select_spec(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">468</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">145</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      pre_output = args$pre_output,</pre>
+                      <pre class="language-r">#'           label = "Select variable:",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">469</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">146</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      post_output = args$post_output</pre>
+                      <pre class="language-r">#'           choices = variable_choices(data[["ADSL"]], c("AGE", "BMRKR1", "BMRKR2")),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">470</td>
+                    <td class="num">147</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#'           selected = "AGE",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">471</td>
+                    <td class="num">148</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#'           multiple = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">472</td>
+                    <td class="num">149</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'           fixed = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">473</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">474</td>
+                    <td class="num">151</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">srv_g_scatterplot &lt;- function(id,</pre>
+                      <pre class="language-r">#'       ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">475</td>
+                    <td class="num">152</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              data,</pre>
+                      <pre class="language-r">#'       y = data_extract_spec(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">476</td>
+                    <td class="num">153</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              reporter,</pre>
+                      <pre class="language-r">#'         dataname = "ADSL",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">477</td>
+                    <td class="num">154</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              filter_panel_api,</pre>
+                      <pre class="language-r">#'         select = select_spec(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">478</td>
+                    <td class="num">155</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              x,</pre>
+                      <pre class="language-r">#'           label = "Select variable:",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">479</td>
+                    <td class="num">156</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              y,</pre>
+                      <pre class="language-r">#'           choices = variable_choices(data[["ADSL"]], c("AGE", "BMRKR1", "BMRKR2")),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">480</td>
+                    <td class="num">157</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              color_by,</pre>
+                      <pre class="language-r">#'           selected = "BMRKR1",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">481</td>
+                    <td class="num">158</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              size_by,</pre>
+                      <pre class="language-r">#'           multiple = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">482</td>
+                    <td class="num">159</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              row_facet,</pre>
+                      <pre class="language-r">#'           fixed = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">483</td>
+                    <td class="num">160</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              col_facet,</pre>
+                      <pre class="language-r">#'         )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">484</td>
+                    <td class="num">161</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              plot_height,</pre>
+                      <pre class="language-r">#'       ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">485</td>
+                    <td class="num">162</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              plot_width,</pre>
+                      <pre class="language-r">#'       color_by = data_extract_spec(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">486</td>
+                    <td class="num">163</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              table_dec,</pre>
+                      <pre class="language-r">#'         dataname = "ADSL",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">487</td>
+                    <td class="num">164</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              ggplot2_args) {</pre>
+                      <pre class="language-r">#'         select = select_spec(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">488</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">  with_reporter &lt;- !missing(reporter) &amp;&amp; inherits(reporter, "Reporter")</pre>
+                      <pre class="language-r">#'           label = "Select variable:",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">489</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">  with_filter &lt;- !missing(filter_panel_api) &amp;&amp; inherits(filter_panel_api, "FilterPanelAPI")</pre>
+                      <pre class="language-r">#'           choices = variable_choices(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">490</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">  checkmate::assert_class(data, "reactive")</pre>
+                      <pre class="language-r">#'             data[["ADSL"]],</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">491</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">168</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">#'             c("AGE", "BMRKR1", "BMRKR2", "RACE", "REGION1")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">492</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">  moduleServer(id, function(input, output, session) {</pre>
+                      <pre class="language-r">#'           ),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">493</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">    data_extract &lt;- list(</pre>
+                      <pre class="language-r">#'           selected = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">494</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">      x = x,</pre>
+                      <pre class="language-r">#'           multiple = FALSE,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">495</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">      y = y,</pre>
+                      <pre class="language-r">#'           fixed = FALSE</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">496</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">      color_by = color_by,</pre>
+                      <pre class="language-r">#'         )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">497</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">      size_by = size_by,</pre>
+                      <pre class="language-r">#'       ),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">498</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">      row_facet = row_facet,</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">499</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      col_facet = col_facet</pre>
+                      <pre class="language-r">#'       size_by = data_extract_spec(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">500</td>
+                    <td class="num">176</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#'         dataname = "ADSL",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">501</td>
+                    <td class="num">177</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'         select = select_spec(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">502</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">    rule_diff &lt;- function(other) {</pre>
+                      <pre class="language-r">#'           label = "Select variable:",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">503</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">      function(value) {</pre>
+                      <pre class="language-r">#'           choices = variable_choices(data[["ADSL"]], c("AGE", "BMRKR1")),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">504</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">        othervalue &lt;- selector_list()[[other]]()[["select"]]</pre>
+                      <pre class="language-r">#'           selected = "AGE",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">505</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">        if (!is.null(othervalue)) {</pre>
+                      <pre class="language-r">#'           multiple = FALSE,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">506</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">          if (identical(value, othervalue)) {</pre>
+                      <pre class="language-r">#'           fixed = FALSE</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">507</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">183</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            "Row and column facetting variables must be different."</pre>
+                      <pre class="language-r">#'         )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">508</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">509</td>
+                    <td class="num">185</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">#'       row_facet = data_extract_spec(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">510</td>
+                    <td class="num">186</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#'         dataname = "ADSL",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">511</td>
+                    <td class="num">187</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#'         select = select_spec(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">512</td>
+                    <td class="num">188</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'           label = "Select variable:",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">513</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">189</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    selector_list &lt;- teal.transform::data_extract_multiple_srv(</pre>
+                      <pre class="language-r">#'           choices = variable_choices(data[["ADSL"]], c("BMRKR2", "RACE", "REGION1")),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">514</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">      data_extract = data_extract,</pre>
+                      <pre class="language-r">#'           selected = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">515</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">191</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      datasets = data,</pre>
+                      <pre class="language-r">#'           multiple = FALSE,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">516</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">192</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      select_validation_rule = list(</pre>
+                      <pre class="language-r">#'           fixed = FALSE</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">517</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">        x = ~ if (length(.) != 1) "Please select exactly one x var.",</pre>
+                      <pre class="language-r">#'         )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">518</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">        y = ~ if (length(.) != 1) "Please select exactly one y var.",</pre>
+                      <pre class="language-r">#'       ),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">519</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">195</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        color_by = ~ if (length(.) &gt; 1) "There cannot be more than 1 color variable.",</pre>
+                      <pre class="language-r">#'       col_facet = data_extract_spec(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">520</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">196</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        size_by = ~ if (length(.) &gt; 1) "There cannot be more than 1 size variable.",</pre>
+                      <pre class="language-r">#'         dataname = "ADSL",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">521</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">        row_facet = shinyvalidate::compose_rules(</pre>
+                      <pre class="language-r">#'         select = select_spec(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">522</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">198</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          shinyvalidate::sv_optional(),</pre>
+                      <pre class="language-r">#'           label = "Select variable:",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">523</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">199</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          rule_diff("col_facet")</pre>
+                      <pre class="language-r">#'           choices = variable_choices(data[["ADSL"]], c("BMRKR2", "RACE", "REGION1")),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">524</td>
+                    <td class="num">200</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ),</pre>
+                      <pre class="language-r">#'           selected = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">525</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">201</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        col_facet = shinyvalidate::compose_rules(</pre>
+                      <pre class="language-r">#'           multiple = FALSE,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">526</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">202</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          shinyvalidate::sv_optional(),</pre>
+                      <pre class="language-r">#'           fixed = FALSE</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">527</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">203</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          rule_diff("row_facet")</pre>
+                      <pre class="language-r">#'         )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">528</td>
+                    <td class="num">204</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#'       ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">529</td>
+                    <td class="num">205</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#'       ggplot2_args = ggplot2_args(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">530</td>
+                    <td class="num">206</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#'         labs = list(subtitle = "Plot generated by Scatterplot Module")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">531</td>
+                    <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="missed">
-                    <td class="num">532</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">208</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    iv_r &lt;- reactive({</pre>
+                      <pre class="language-r">#'     )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">533</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">209</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv_facet &lt;- shinyvalidate::InputValidator$new()</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">534</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">210</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv &lt;- shinyvalidate::InputValidator$new()</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">535</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">211</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.transform::compose_and_enable_validators(iv, selector_list)</pre>
+                      <pre class="language-r">#' if (interactive()) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">536</td>
+                    <td class="num">212</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="missed">
-                    <td class="num">537</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">213</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    iv_facet &lt;- shinyvalidate::InputValidator$new()</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">538</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">214</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    iv_facet$add_rule("add_density", ~ if (isTRUE(.) &amp;&amp;</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">215</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      (length(selector_list()$row_facet()$select) &gt; 0L ||</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">540</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">216</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        length(selector_list()$col_facet()$select) &gt; 0L)) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">541</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">217</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Cannot add marginal density when Row or Column facetting has been selected"</pre>
+                      <pre class="language-r">tm_g_scatterplot &lt;- function(label = "Scatterplot",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">542</td>
+                    <td class="num">218</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">                             x,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">543</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">219</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    iv_facet$enable()</pre>
+                      <pre class="language-r">                             y,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">544</td>
+                    <td class="num">220</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                             color_by = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">545</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">221</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    anl_merged_input &lt;- teal.transform::merge_expression_srv(</pre>
+                      <pre class="language-r">                             size_by = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">546</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">222</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      selector_list = selector_list,</pre>
+                      <pre class="language-r">                             row_facet = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">547</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">223</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      datasets = data,</pre>
+                      <pre class="language-r">                             col_facet = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">548</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">224</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      merge_function = "dplyr::inner_join"</pre>
+                      <pre class="language-r">                             plot_height = c(600, 200, 2000),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">549</td>
+                    <td class="num">225</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">                             plot_width = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">550</td>
+                    <td class="num">226</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                             alpha = c(1, 0, 1),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">551</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">    anl_merged_q &lt;- reactive({</pre>
+                      <pre class="language-r">                             shape = shape_names,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">552</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">      req(anl_merged_input())</pre>
+                      <pre class="language-r">                             size = c(5, 1, 15),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">553</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">      data() %&gt;%</pre>
+                      <pre class="language-r">                             max_deg = 5L,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">554</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">230</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        teal.code::eval_code(as.expression(anl_merged_input()$expr)) %&gt;%</pre>
+                      <pre class="language-r">                             rotate_xaxis_labels = FALSE,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">555</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">231</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        teal.code::eval_code(quote(ANL)) # used to display table when running show-r-code code</pre>
+                      <pre class="language-r">                             ggtheme = c("gray", "bw", "linedraw", "light", "dark", "minimal", "classic", "void"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">556</td>
+                    <td class="num">232</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">                             pre_output = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">557</td>
+                    <td class="num">233</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                             post_output = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">558</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">234</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    merged &lt;- list(</pre>
+                      <pre class="language-r">                             table_dec = 4,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">559</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">235</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      anl_input_r = anl_merged_input,</pre>
+                      <pre class="language-r">                             ggplot2_args = teal.widgets::ggplot2_args()) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">560</td>
+                    <td class="num">236</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      anl_q_r = anl_merged_q</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">561</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">  logger::log_info("Initializing tm_g_scatterplot")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">562</td>
+                    <td class="num">237</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">563</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    trend_line_is_applicable &lt;- reactive({</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">564</td>
+                    <td class="num">238</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ANL &lt;- merged$anl_q_r()[["ANL"]] # nolint: object_name.</pre>
+                      <pre class="language-r">  extra_packages &lt;- c("ggpmisc", "ggExtra", "colourpicker")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">565</td>
+                    <td class="num">239</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      x_var &lt;- as.vector(merged$anl_input_r()$columns_source$x)</pre>
+                      <pre class="language-r">  missing_packages &lt;- Filter(function(x) !requireNamespace(x, quietly = TRUE), extra_packages)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">566</td>
+                    <td class="num">240</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      y_var &lt;- as.vector(merged$anl_input_r()$columns_source$y)</pre>
+                      <pre class="language-r">  if (length(missing_packages) &gt; 0L) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">567</td>
+                    <td class="num">241</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      length(x_var) &gt; 0 &amp;&amp; length(y_var) &gt; 0 &amp;&amp; is.numeric(ANL[[x_var]]) &amp;&amp; is.numeric(ANL[[y_var]])</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">568</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">569</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    stop(sprintf(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">570</td>
+                    <td class="num">242</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    add_trend_line &lt;- reactive({</pre>
+                      <pre class="language-r">      "Cannot load package(s): %s.\nInstall or restart your session.",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">571</td>
+                    <td class="num">243</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      smoothing_degree &lt;- as.integer(input$smoothing_degree)</pre>
+                      <pre class="language-r">      toString(missing_packages)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">572</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">244</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      trend_line_is_applicable() &amp;&amp; length(smoothing_degree) &gt; 0</pre>
+                      <pre class="language-r">    ))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">573</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">574</td>
+                    <td class="num">246</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">575</td>
+                    <td class="num">247</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (!is.null(color_by)) {</pre>
+                      <pre class="language-r">  if (inherits(x, "data_extract_spec")) x &lt;- list(x)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">576</td>
+                    <td class="num">248</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      observeEvent(</pre>
+                      <pre class="language-r">  if (inherits(y, "data_extract_spec")) y &lt;- list(y)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">577</td>
+                    <td class="num">249</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        eventExpr = merged$anl_input_r()$columns_source$color_by,</pre>
+                      <pre class="language-r">  if (inherits(color_by, "data_extract_spec")) color_by &lt;- list(color_by)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">578</td>
+                    <td class="num">250</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        handlerExpr = {</pre>
+                      <pre class="language-r">  if (inherits(size_by, "data_extract_spec")) size_by &lt;- list(size_by)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">579</td>
+                    <td class="num">251</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          color_by_var &lt;- as.vector(merged$anl_input_r()$columns_source$color_by)</pre>
+                      <pre class="language-r">  if (inherits(row_facet, "data_extract_spec")) row_facet &lt;- list(row_facet)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">580</td>
+                    <td class="num">252</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          if (length(color_by_var) &gt; 0) {</pre>
+                      <pre class="language-r">  if (inherits(col_facet, "data_extract_spec")) col_facet &lt;- list(col_facet)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">581</td>
+                    <td class="num">253</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            shinyjs::hide("color")</pre>
+                      <pre class="language-r">  if (is.double(max_deg)) max_deg &lt;- as.integer(max_deg)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">582</td>
+                    <td class="num">254</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">583</td>
+                    <td class="num">255</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            shinyjs::show("color")</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">584</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          }</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">585</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">  ggtheme &lt;- match.arg(ggtheme)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">586</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">256</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">587</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">    }</pre>
+                      <pre class="language-r">  checkmate::assert_list(x, types = "data_extract_spec")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">588</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">  checkmate::assert_list(y, types = "data_extract_spec")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">589</td>
+                    <td class="num">259</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    output$num_na_removed &lt;- renderUI({</pre>
+                      <pre class="language-r">  checkmate::assert_list(color_by, types = "data_extract_spec", null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">590</td>
+                    <td class="num">260</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (add_trend_line()) {</pre>
+                      <pre class="language-r">  checkmate::assert_list(size_by, types = "data_extract_spec", null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">591</td>
+                    <td class="num">261</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ANL &lt;- merged$anl_q_r()[["ANL"]] # nolint: object_name.</pre>
+                      <pre class="language-r">  checkmate::assert_list(row_facet, types = "data_extract_spec", null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">592</td>
+                    <td class="num">262</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        x_var &lt;- as.vector(merged$anl_input_r()$columns_source$x)</pre>
+                      <pre class="language-r">  checkmate::assert_list(col_facet, types = "data_extract_spec", null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">593</td>
+                    <td class="num">263</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        y_var &lt;- as.vector(merged$anl_input_r()$columns_source$y)</pre>
+                      <pre class="language-r">  checkmate::assert_list(row_facet, types = "data_extract_spec", null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">594</td>
+                    <td class="num">264</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if ((num_total_na &lt;- nrow(ANL) - nrow(stats::na.omit(ANL[, c(x_var, y_var)]))) &gt; 0) {</pre>
+                      <pre class="language-r">  if (!all(vapply(row_facet, function(x) !x$select$multiple, logical(1)))) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">595</td>
+                    <td class="num">265</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          shiny::tags$div(paste(num_total_na, "row(s) with missing values were removed"), shiny::tags$hr())</pre>
+                      <pre class="language-r">    stop("'row_facet' should not allow multiple selection")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">596</td>
+                    <td class="num">266</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">597</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">  if (!all(vapply(col_facet, function(x) !x$select$multiple, logical(1)))) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">598</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">    })</pre>
+                      <pre class="language-r">    stop("'col_facet' should not allow multiple selection")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">599</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="missed">
-                    <td class="num">600</td>
+                    <td class="num">270</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    observeEvent(</pre>
+                      <pre class="language-r">  checkmate::assert_character(shape)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">271</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">601</td>
+                    <td class="num">272</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      eventExpr = merged$anl_input_r()$columns_source[c("col_facet", "row_facet")],</pre>
+                      <pre class="language-r">  checkmate::assert_int(max_deg, lower = 1L)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">602</td>
+                    <td class="num">273</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      handlerExpr = {</pre>
+                      <pre class="language-r">  checkmate::assert_scalar(table_dec)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">603</td>
+                    <td class="num">274</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (length(merged$anl_input_r()$columns_source$col_facet) == 0 &amp;&amp;</pre>
+                      <pre class="language-r">  checkmate::assert_flag(rotate_xaxis_labels)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">604</td>
+                    <td class="num">275</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          length(merged$anl_input_r()$columns_source$row_facet) == 0) {</pre>
+                      <pre class="language-r">  if (length(alpha) == 1) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">605</td>
+                    <td class="num">276</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          shinyjs::hide("free_scales")</pre>
+                      <pre class="language-r">    checkmate::assert_numeric(alpha, any.missing = FALSE, finite = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">606</td>
+                    <td class="num">277</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        } else {</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">607</td>
+                    <td class="num">278</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          shinyjs::show("free_scales")</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">608</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">    checkmate::assert_numeric(alpha, len = 3, any.missing = FALSE, finite = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">609</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">      }</pre>
+                      <pre class="language-r">    checkmate::assert_numeric(alpha[1], lower = alpha[2], upper = alpha[3], .var.name = "alpha")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">610</td>
+                    <td class="num">280</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">611</td>
+                    <td class="num">281</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">612</td>
+                    <td class="num">282</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    output_q &lt;- reactive({</pre>
+                      <pre class="language-r">  if (length(size) == 1) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">613</td>
+                    <td class="num">283</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal::validate_inputs(iv_r(), iv_facet)</pre>
+                      <pre class="language-r">    checkmate::assert_numeric(size, any.missing = FALSE, finite = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">614</td>
+                    <td class="num">284</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">615</td>
+                    <td class="num">285</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ANL &lt;- merged$anl_q_r()[["ANL"]] # nolint: object_name.</pre>
+                      <pre class="language-r">    checkmate::assert_numeric(size, len = 3, any.missing = FALSE, finite = TRUE)</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">286</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    checkmate::assert_numeric(size[1], lower = size[2], upper = size[3], .var.name = "size")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">616</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="missed">
-                    <td class="num">617</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">288</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      x_var &lt;- as.vector(merged$anl_input_r()$columns_source$x)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">618</td>
+                    <td class="num">289</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      y_var &lt;- as.vector(merged$anl_input_r()$columns_source$y)</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(plot_height, len = 3, any.missing = FALSE, finite = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">619</td>
+                    <td class="num">290</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      color_by_var &lt;- as.vector(merged$anl_input_r()$columns_source$color_by)</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(plot_height[1], lower = plot_height[2], upper = plot_height[3], .var.name = "plot_height")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">620</td>
+                    <td class="num">291</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      size_by_var &lt;- as.vector(merged$anl_input_r()$columns_source$size_by)</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(plot_width, len = 3, any.missing = FALSE, null.ok = TRUE, finite = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">621</td>
+                    <td class="num">292</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      row_facet_name &lt;- if (length(merged$anl_input_r()$columns_source$row_facet) == 0) {</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">622</td>
+                    <td class="num">293</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        character(0)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">623</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">    plot_width[1],</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">624</td>
+                    <td class="num">294</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        as.vector(merged$anl_input_r()$columns_source$row_facet)</pre>
+                      <pre class="language-r">    lower = plot_width[2], upper = plot_width[3], null.ok = TRUE, .var.name = "plot_width"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">625</td>
+                    <td class="num">295</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">626</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">296</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      col_facet_name &lt;- if (length(merged$anl_input_r()$columns_source$col_facet) == 0) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">627</td>
+                    <td class="num">297</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        character(0)</pre>
+                      <pre class="language-r">  checkmate::assert_class(ggplot2_args, "ggplot2_args")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">628</td>
+                    <td class="num">298</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">629</td>
+                    <td class="num">299</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        as.vector(merged$anl_input_r()$columns_source$col_facet)</pre>
+                      <pre class="language-r">  args &lt;- as.list(environment())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">630</td>
+                    <td class="num">300</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">631</td>
+                    <td class="num">301</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      alpha &lt;- input$alpha</pre>
+                      <pre class="language-r">  data_extract_list &lt;- list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">632</td>
+                    <td class="num">302</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      size &lt;- input$size</pre>
+                      <pre class="language-r">    x = x,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">633</td>
+                    <td class="num">303</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      rotate_xaxis_labels &lt;- input$rotate_xaxis_labels</pre>
+                      <pre class="language-r">    y = y,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">634</td>
+                    <td class="num">304</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      add_density &lt;- input$add_density</pre>
+                      <pre class="language-r">    color_by = color_by,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">635</td>
+                    <td class="num">305</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ggtheme &lt;- input$ggtheme</pre>
+                      <pre class="language-r">    size_by = size_by,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">636</td>
+                    <td class="num">306</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      rug_plot &lt;- input$rug_plot</pre>
+                      <pre class="language-r">    row_facet = row_facet,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">637</td>
+                    <td class="num">307</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      color &lt;- input$color</pre>
+                      <pre class="language-r">    col_facet = col_facet</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">638</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">308</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      shape &lt;- `if`(is.null(input$shape) || identical(input$shape, ""), "circle", input$shape)</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">639</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">309</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      smoothing_degree &lt;- as.integer(input$smoothing_degree)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">640</td>
+                    <td class="num">310</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ci &lt;- input$ci</pre>
+                      <pre class="language-r">  module(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">641</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">    label = label,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">642</td>
+                    <td class="num">312</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      log_x &lt;- input$log_x</pre>
+                      <pre class="language-r">    server = srv_g_scatterplot,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">643</td>
+                    <td class="num">313</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      log_y &lt;- input$log_y</pre>
+                      <pre class="language-r">    ui = ui_g_scatterplot,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">644</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"></pre>
+                      <pre class="language-r">    ui_args = args,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">645</td>
+                    <td class="num">315</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      validate(need(</pre>
+                      <pre class="language-r">    server_args = c(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">646</td>
+                    <td class="num">316</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        length(row_facet_name) == 0 || inherits(ANL[[row_facet_name]], c("character", "factor", "Date", "integer")),</pre>
+                      <pre class="language-r">      data_extract_list,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">647</td>
+                    <td class="num">317</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "`Row facetting` variable must be of class `character`, `factor`, `Date`, or `integer`"</pre>
+                      <pre class="language-r">      list(plot_height = plot_height, plot_width = plot_width, table_dec = table_dec, ggplot2_args = ggplot2_args)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">648</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="missed">
-                    <td class="num">649</td>
+                    <td class="num">319</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      validate(need(</pre>
+                      <pre class="language-r">    datanames = teal.transform::get_extract_datanames(data_extract_list)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">650</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">320</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        length(col_facet_name) == 0 || inherits(ANL[[col_facet_name]], c("character", "factor", "Date", "integer")),</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">651</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">321</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "`Column facetting` variable must be of class `character`, `factor`, `Date`, or `integer`"</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">652</td>
+                    <td class="num">322</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ))</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">653</td>
+                    <td class="num">323</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">ui_g_scatterplot &lt;- function(id, ...) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">654</td>
+                    <td class="num">324</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (add_density &amp;&amp; length(color_by_var) &gt; 0) {</pre>
+                      <pre class="language-r">  args &lt;- list(...)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">655</td>
+                    <td class="num">325</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        validate(need(</pre>
+                      <pre class="language-r">  ns &lt;- NS(id)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">656</td>
+                    <td class="num">326</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          !is.numeric(ANL[[color_by_var]]),</pre>
+                      <pre class="language-r">  is_single_dataset_value &lt;- teal.transform::is_single_dataset(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">657</td>
+                    <td class="num">327</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "Marginal plots cannot be produced when the points are colored by numeric variables.</pre>
+                      <pre class="language-r">    args$x, args$y, args$color_by, args$size_by, args$row_facet, args$col_facet</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">658</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">328</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        \n Uncheck the 'Add marginal density' checkbox to display the plot."</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">659</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="missed">
-                    <td class="num">660</td>
+                    <td class="num">330</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        validate(need(</pre>
+                      <pre class="language-r">  shiny::tagList(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">661</td>
+                    <td class="num">331</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          !(inherits(ANL[[color_by_var]], "Date") ||</pre>
+                      <pre class="language-r">    include_css_files("custom"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">662</td>
+                    <td class="num">332</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            inherits(ANL[[color_by_var]], "POSIXct") ||</pre>
+                      <pre class="language-r">    teal.widgets::standard_layout(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">663</td>
+                    <td class="num">333</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            inherits(ANL[[color_by_var]], "POSIXlt")),</pre>
+                      <pre class="language-r">      output = teal.widgets::white_small_well(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">664</td>
+                    <td class="num">334</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "Marginal plots cannot be produced when the points are colored by Date or POSIX variables.</pre>
+                      <pre class="language-r">        teal.widgets::plot_with_settings_ui(id = ns("scatter_plot")),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">665</td>
+                    <td class="num">335</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        \n Uncheck the 'Add marginal density' checkbox to display the plot."</pre>
+                      <pre class="language-r">        tags$h1(tags$strong("Selected points:"), class = "text-center font-150p"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">666</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">336</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ))</pre>
+                      <pre class="language-r">        teal.widgets::get_dt_rows(ns("data_table"), ns("data_table_rows")),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">667</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">        DT::dataTableOutput(ns("data_table"), width = "100%")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">668</td>
+                    <td class="num">338</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">669</td>
+                    <td class="num">339</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal::validate_has_data(ANL[, c(x_var, y_var)], 10, complete = TRUE, allow_inf = FALSE)</pre>
+                      <pre class="language-r">      encoding = div(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">670</td>
+                    <td class="num">340</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        ### Reporter</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">671</td>
+                    <td class="num">341</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (log_x) {</pre>
+                      <pre class="language-r">        teal.reporter::simple_reporter_ui(ns("simple_reporter")),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">672</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">342</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        validate(</pre>
+                      <pre class="language-r">        ###</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">673</td>
+                    <td class="num">343</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          need(</pre>
+                      <pre class="language-r">        tags$label("Encodings", class = "text-primary"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">674</td>
+                    <td class="num">344</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            is.numeric(ANL[[x_var]]) &amp;&amp; all(</pre>
+                      <pre class="language-r">        teal.transform::datanames_input(args[c("x", "y", "color_by", "size_by", "row_facet", "col_facet")]),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">675</td>
+                    <td class="num">345</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              ANL[[x_var]] &gt; 0 | is.na(ANL[[x_var]])</pre>
+                      <pre class="language-r">        teal.transform::data_extract_ui(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">676</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">346</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ),</pre>
+                      <pre class="language-r">          id = ns("x"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">677</td>
+                    <td class="num">347</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            "X variable can only be log transformed if variable is numeric and all values are positive."</pre>
+                      <pre class="language-r">          label = "X variable",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">678</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">348</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">          data_extract_spec = args$x,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">679</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">349</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">          is_single_dataset = is_single_dataset_value</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">680</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="missed">
-                    <td class="num">681</td>
+                    <td class="num">351</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (log_y) {</pre>
+                      <pre class="language-r">        checkboxInput(ns("log_x"), "Use log transformation", value = FALSE),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">682</td>
+                    <td class="num">352</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        validate(</pre>
+                      <pre class="language-r">        conditionalPanel(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">683</td>
+                    <td class="num">353</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          need(</pre>
+                      <pre class="language-r">          condition = paste0("input['", ns("log_x"), "'] == true"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">684</td>
+                    <td class="num">354</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            is.numeric(ANL[[y_var]]) &amp;&amp; all(</pre>
+                      <pre class="language-r">          radioButtons(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">685</td>
+                    <td class="num">355</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              ANL[[y_var]] &gt; 0 | is.na(ANL[[y_var]])</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">686</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            ),</pre>
+                      <pre class="language-r">            ns("log_x_base"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">687</td>
+                    <td class="num">356</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            "Y variable can only be log transformed if variable is numeric and all values are positive."</pre>
+                      <pre class="language-r">            label = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">688</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">          )</pre>
+                      <pre class="language-r">            inline = TRUE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">689</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">        )</pre>
+                      <pre class="language-r">            choices = c("Natural" = "log", "Base 10" = "log10", "Base 2" = "log2")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">690</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">691</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="missed">
-                    <td class="num">692</td>
+                    <td class="num">361</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      facet_cl &lt;- facet_ggplot_call(</pre>
+                      <pre class="language-r">        teal.transform::data_extract_ui(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">693</td>
+                    <td class="num">362</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        row_facet_name,</pre>
+                      <pre class="language-r">          id = ns("y"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">694</td>
+                    <td class="num">363</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        col_facet_name,</pre>
+                      <pre class="language-r">          label = "Y variable",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">695</td>
+                    <td class="num">364</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        free_x_scales = isTRUE(input$free_scales),</pre>
+                      <pre class="language-r">          data_extract_spec = args$y,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">696</td>
+                    <td class="num">365</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        free_y_scales = isTRUE(input$free_scales)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">697</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">          is_single_dataset = is_single_dataset_value</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">698</td>
+                    <td class="num">366</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">699</td>
+                    <td class="num">367</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      point_sizes &lt;- if (length(size_by_var) &gt; 0) {</pre>
+                      <pre class="language-r">        checkboxInput(ns("log_y"), "Use log transformation", value = FALSE),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">700</td>
+                    <td class="num">368</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        validate(need(is.numeric(ANL[[size_by_var]]), "Variable to size by must be numeric"))</pre>
+                      <pre class="language-r">        conditionalPanel(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">701</td>
+                    <td class="num">369</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        substitute(</pre>
+                      <pre class="language-r">          condition = paste0("input['", ns("log_y"), "'] == true"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">702</td>
+                    <td class="num">370</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          expr = size * ANL[[size_by_var]] / max(ANL[[size_by_var]], na.rm = TRUE),</pre>
+                      <pre class="language-r">          radioButtons(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">703</td>
+                    <td class="num">371</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          env = list(size = size, size_by_var = size_by_var)</pre>
+                      <pre class="language-r">            ns("log_y_base"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">704</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">372</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">            label = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">705</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">      } else {</pre>
+                      <pre class="language-r">            inline = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">706</td>
+                    <td class="num">374</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        size</pre>
+                      <pre class="language-r">            choices = c("Natural" = "log", "Base 10" = "log10", "Base 2" = "log2")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">707</td>
+                    <td class="num">375</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">708</td>
+                    <td class="num">376</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">709</td>
+                    <td class="num">377</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      plot_q &lt;- merged$anl_q_r()</pre>
+                      <pre class="language-r">        if (!is.null(args$color_by)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">710</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">378</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          teal.transform::data_extract_ui(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">711</td>
+                    <td class="num">379</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (log_x) {</pre>
+                      <pre class="language-r">            id = ns("color_by"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">712</td>
+                    <td class="num">380</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        log_x_fn &lt;- input$log_x_base</pre>
+                      <pre class="language-r">            label = "Color by variable",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">713</td>
+                    <td class="num">381</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        plot_q &lt;- teal.code::eval_code(</pre>
+                      <pre class="language-r">            data_extract_spec = args$color_by,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">714</td>
+                    <td class="num">382</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          object = plot_q,</pre>
+                      <pre class="language-r">            is_single_dataset = is_single_dataset_value</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">715</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">383</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          code = substitute(</pre>
+                      <pre class="language-r">          )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">384</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        },</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">716</td>
+                    <td class="num">385</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            expr = ANL[, log_x_var] &lt;- log_x_fn(ANL[, x_var]), # nolint: object_name.</pre>
+                      <pre class="language-r">        if (!is.null(args$size_by)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">717</td>
+                    <td class="num">386</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            env = list(</pre>
+                      <pre class="language-r">          teal.transform::data_extract_ui(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">718</td>
+                    <td class="num">387</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              x_var = x_var,</pre>
+                      <pre class="language-r">            id = ns("size_by"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">719</td>
+                    <td class="num">388</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              log_x_fn = as.name(log_x_fn),</pre>
+                      <pre class="language-r">            label = "Size by variable",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">720</td>
+                    <td class="num">389</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              log_x_var = paste0(log_x_fn, "_", x_var)</pre>
+                      <pre class="language-r">            data_extract_spec = args$size_by,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">721</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">390</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">            is_single_dataset = is_single_dataset_value</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">722</td>
+                    <td class="num">391</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">723</td>
+                    <td class="num">392</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">        },</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">724</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">      }</pre>
+                      <pre class="language-r">        if (!is.null(args$row_facet)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">725</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"></pre>
+                      <pre class="language-r">          teal.transform::data_extract_ui(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">726</td>
+                    <td class="num">395</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (log_y) {</pre>
+                      <pre class="language-r">            id = ns("row_facet"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">727</td>
+                    <td class="num">396</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        log_y_fn &lt;- input$log_y_base</pre>
+                      <pre class="language-r">            label = "Row facetting",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">728</td>
+                    <td class="num">397</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        plot_q &lt;- teal.code::eval_code(</pre>
+                      <pre class="language-r">            data_extract_spec = args$row_facet,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">729</td>
+                    <td class="num">398</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          object = plot_q,</pre>
+                      <pre class="language-r">            is_single_dataset = is_single_dataset_value</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">730</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">399</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          code = substitute(</pre>
+                      <pre class="language-r">          )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">400</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        },</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">731</td>
+                    <td class="num">401</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            expr = ANL[, log_y_var] &lt;- log_y_fn(ANL[, y_var]), # nolint: object_name.</pre>
+                      <pre class="language-r">        if (!is.null(args$col_facet)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">732</td>
+                    <td class="num">402</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            env = list(</pre>
+                      <pre class="language-r">          teal.transform::data_extract_ui(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">733</td>
+                    <td class="num">403</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              y_var = y_var,</pre>
+                      <pre class="language-r">            id = ns("col_facet"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">734</td>
+                    <td class="num">404</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              log_y_fn = as.name(log_y_fn),</pre>
+                      <pre class="language-r">            label = "Column facetting",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">735</td>
+                    <td class="num">405</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              log_y_var = paste0(log_y_fn, "_", y_var)</pre>
+                      <pre class="language-r">            data_extract_spec = args$col_facet,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">736</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">406</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">            is_single_dataset = is_single_dataset_value</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">737</td>
+                    <td class="num">407</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">738</td>
+                    <td class="num">408</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">        },</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">739</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">409</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">        teal.widgets::panel_group(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">740</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"></pre>
+                      <pre class="language-r">          teal.widgets::panel_item(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">741</td>
+                    <td class="num">411</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      pre_pro_anl &lt;- if (input$show_count) {</pre>
+                      <pre class="language-r">            title = "Plot settings",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">742</td>
+                    <td class="num">412</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        paste0(</pre>
+                      <pre class="language-r">            teal.widgets::optionalSliderInputValMinMax(ns("alpha"), "Opacity:", args$alpha, ticks = FALSE),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">743</td>
+                    <td class="num">413</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "ANL %&gt;% dplyr::group_by(",</pre>
+                      <pre class="language-r">            teal.widgets::optionalSelectInput(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">744</td>
+                    <td class="num">414</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          paste(</pre>
+                      <pre class="language-r">              inputId = ns("shape"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">745</td>
+                    <td class="num">415</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            c(</pre>
+                      <pre class="language-r">              label = "Points shape:",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">746</td>
+                    <td class="num">416</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              if (length(color_by_var) &gt; 0 &amp;&amp; inherits(ANL[[color_by_var]], c("factor", "character"))) color_by_var,</pre>
+                      <pre class="language-r">              choices = args$shape,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">747</td>
+                    <td class="num">417</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              row_facet_name,</pre>
+                      <pre class="language-r">              selected = args$shape[1],</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">748</td>
+                    <td class="num">418</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              col_facet_name</pre>
+                      <pre class="language-r">              multiple = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">749</td>
+                    <td class="num">419</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">            ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">750</td>
+                    <td class="num">420</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            collapse = ", "</pre>
+                      <pre class="language-r">            colourpicker::colourInput(ns("color"), "Points color:", "black"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">751</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">          ),</pre>
+                      <pre class="language-r">            teal.widgets::optionalSliderInputValMinMax(ns("size"), "Points size:", args$size, ticks = FALSE, step = .1),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">752</td>
+                    <td class="num">422</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ") %&gt;% dplyr::mutate(n = dplyr::n()) %&gt;% dplyr::ungroup()"</pre>
+                      <pre class="language-r">            checkboxInput(ns("rotate_xaxis_labels"), "Rotate X axis labels", value = args$rotate_xaxis_labels),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">753</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">        )</pre>
+                      <pre class="language-r">            checkboxInput(ns("add_density"), "Add marginal density", value = FALSE),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">754</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">424</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">            checkboxInput(ns("rug_plot"), "Include rug plot", value = FALSE),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">755</td>
+                    <td class="num">425</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "ANL"</pre>
+                      <pre class="language-r">            checkboxInput(ns("show_count"), "Show N (number of observations)", value = FALSE),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">756</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">      }</pre>
+                      <pre class="language-r">            shinyjs::hidden(helpText(id = ns("line_msg"), "Trendline needs numeric X and Y variables")),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">757</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"></pre>
+                      <pre class="language-r">            teal.widgets::optionalSelectInput(ns("smoothing_degree"), "Smoothing degree", seq_len(args$max_deg)),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">758</td>
+                    <td class="num">428</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      plot_call &lt;- substitute(expr = pre_pro_anl %&gt;% ggplot(), env = list(pre_pro_anl = str2lang(pre_pro_anl)))</pre>
+                      <pre class="language-r">            shinyjs::hidden(teal.widgets::optionalSelectInput(ns("color_sub"), label = "", multiple = TRUE)),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">759</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">            teal.widgets::optionalSliderInputValMinMax(ns("ci"), "Confidence", c(.95, .8, .99), ticks = FALSE),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">760</td>
+                    <td class="num">430</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      plot_call &lt;- if (length(color_by_var) == 0) {</pre>
+                      <pre class="language-r">            shinyjs::hidden(checkboxInput(ns("show_form"), "Show formula", value = TRUE)),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">761</td>
+                    <td class="num">431</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        substitute(</pre>
+                      <pre class="language-r">            shinyjs::hidden(checkboxInput(ns("show_r2"), "Show adj-R Squared", value = TRUE)),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">762</td>
+                    <td class="num">432</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          expr = plot_call +</pre>
+                      <pre class="language-r">            uiOutput(ns("num_na_removed")),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">763</td>
+                    <td class="num">433</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ggplot2::aes(x = x_name, y = y_name) +</pre>
+                      <pre class="language-r">            div(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">764</td>
+                    <td class="num">434</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ggplot2::geom_point(alpha = alpha_value, size = point_sizes, shape = shape_value, color = color_value),</pre>
+                      <pre class="language-r">              id = ns("label_pos"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">765</td>
+                    <td class="num">435</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          env = list(</pre>
+                      <pre class="language-r">              div(strong("Stats position")),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">766</td>
+                    <td class="num">436</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            plot_call = plot_call,</pre>
+                      <pre class="language-r">              div(class = "inline-block w-10", helpText("Left")),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">767</td>
+                    <td class="num">437</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            x_name = if (log_x) as.name(paste0(log_x_fn, "_", x_var)) else as.name(x_var),</pre>
+                      <pre class="language-r">              div(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">768</td>
+                    <td class="num">438</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            y_name = if (log_y) as.name(paste0(log_y_fn, "_", y_var)) else as.name(y_var),</pre>
+                      <pre class="language-r">                class = "inline-block w-70",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">769</td>
+                    <td class="num">439</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            alpha_value = alpha,</pre>
+                      <pre class="language-r">                teal.widgets::optionalSliderInput(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">770</td>
+                    <td class="num">440</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            point_sizes = point_sizes,</pre>
+                      <pre class="language-r">                  ns("pos"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">771</td>
+                    <td class="num">441</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            shape_value = shape,</pre>
+                      <pre class="language-r">                  label = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">772</td>
+                    <td class="num">442</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            color_value = color</pre>
+                      <pre class="language-r">                  min = 0, max = 1, value = .99, ticks = FALSE, step = .01</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">773</td>
+                    <td class="num">443</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">                )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">774</td>
+                    <td class="num">444</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">445</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">              div(class = "inline-block w-10", helpText("Right"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">775</td>
+                    <td class="num">446</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">776</td>
+                    <td class="num">447</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        substitute(</pre>
+                      <pre class="language-r">            teal.widgets::optionalSliderInput(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">777</td>
+                    <td class="num">448</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          expr = plot_call +</pre>
+                      <pre class="language-r">              ns("label_size"), "Stats font size",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">778</td>
+                    <td class="num">449</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ggplot2::aes(x = x_name, y = y_name, color = color_by_var_name) +</pre>
+                      <pre class="language-r">              min = 3, max = 10, value = 5, ticks = FALSE, step = .1</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">779</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">450</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ggplot2::geom_point(alpha = alpha_value, size = point_sizes, shape = shape_value),</pre>
+                      <pre class="language-r">            ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">780</td>
+                    <td class="num">451</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          env = list(</pre>
+                      <pre class="language-r">            if (!is.null(args$row_facet) || !is.null(args$col_facet)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">781</td>
+                    <td class="num">452</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            plot_call = plot_call,</pre>
+                      <pre class="language-r">              checkboxInput(ns("free_scales"), "Free scales", value = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">782</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">453</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            x_name = if (log_x) as.name(paste0(log_x_fn, "_", x_var)) else as.name(x_var),</pre>
+                      <pre class="language-r">            },</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">783</td>
+                    <td class="num">454</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            y_name = if (log_y) as.name(paste0(log_y_fn, "_", y_var)) else as.name(y_var),</pre>
+                      <pre class="language-r">            selectInput(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">784</td>
+                    <td class="num">455</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            color_by_var_name = as.name(color_by_var),</pre>
+                      <pre class="language-r">              inputId = ns("ggtheme"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">785</td>
+                    <td class="num">456</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            alpha_value = alpha,</pre>
+                      <pre class="language-r">              label = "Theme (by ggplot):",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">786</td>
+                    <td class="num">457</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            point_sizes = point_sizes,</pre>
+                      <pre class="language-r">              choices = ggplot_themes,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">787</td>
+                    <td class="num">458</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            shape_value = shape</pre>
+                      <pre class="language-r">              selected = args$ggtheme,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">788</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">              multiple = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">789</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="never">
-                    <td class="num">790</td>
+                    <td class="num">461</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">791</td>
+                    <td class="num">462</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">792</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      if (rug_plot) plot_call &lt;- substitute(expr = plot_call + geom_rug(), env = list(plot_call = plot_call))</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">793</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="missed">
-                    <td class="num">794</td>
+                    <td class="num">464</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      plot_label_generator &lt;- function(rhs_formula = quote(y ~ 1),</pre>
+                      <pre class="language-r">      forms = tagList(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">795</td>
+                    <td class="num">465</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                       show_form = input$show_form,</pre>
+                      <pre class="language-r">        teal.widgets::verbatim_popup_ui(ns("warning"), button_label = "Show Warnings"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">796</td>
+                    <td class="num">466</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                       show_r2 = input$show_r2,</pre>
+                      <pre class="language-r">        teal.widgets::verbatim_popup_ui(ns("rcode"), "Show R code")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">797</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">467</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                       show_count = input$show_count,</pre>
+                      <pre class="language-r">      ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">798</td>
+                    <td class="num">468</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                       pos = input$pos,</pre>
+                      <pre class="language-r">      pre_output = args$pre_output,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">799</td>
+                    <td class="num">469</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                       label_size = input$label_size) {</pre>
+                      <pre class="language-r">      post_output = args$post_output</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">800</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">470</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        stopifnot(sum(show_form, show_r2, show_count) &gt;= 1)</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">801</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">471</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        aes_label &lt;- paste0(</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">802</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">472</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "aes(",</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">803</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">473</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          if (show_count) "n = n, ",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">804</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">474</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "label = ",</pre>
+                      <pre class="language-r">srv_g_scatterplot &lt;- function(id,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">805</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">475</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          if (sum(show_form, show_r2, show_count) &gt; 1) "paste(",</pre>
+                      <pre class="language-r">                              data,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">806</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">476</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          paste(</pre>
+                      <pre class="language-r">                              reporter,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">807</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">477</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            c(</pre>
+                      <pre class="language-r">                              filter_panel_api,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">808</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">478</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              if (show_form) "stat(eq.label)",</pre>
+                      <pre class="language-r">                              x,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">809</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">479</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              if (show_r2) "stat(adj.rr.label)",</pre>
+                      <pre class="language-r">                              y,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">810</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">480</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              if (show_count) "paste('N ~`=`~', n)"</pre>
+                      <pre class="language-r">                              color_by,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">811</td>
+                    <td class="num">481</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ),</pre>
+                      <pre class="language-r">                              size_by,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">812</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">482</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            collapse = ", "</pre>
+                      <pre class="language-r">                              row_facet,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">813</td>
+                    <td class="num">483</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ),</pre>
+                      <pre class="language-r">                              col_facet,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">814</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">484</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          if (sum(show_form, show_r2, show_count) &gt; 1) ", sep = '*\", \"*'))" else ")"</pre>
+                      <pre class="language-r">                              plot_height,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">815</td>
+                    <td class="num">485</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">                              plot_width,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">816</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">486</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        label_geom &lt;- substitute(</pre>
+                      <pre class="language-r">                              table_dec,</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">487</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                              ggplot2_args) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">817</td>
+                    <td class="num">488</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          expr = ggpmisc::stat_poly_eq(</pre>
+                      <pre class="language-r">  with_reporter &lt;- !missing(reporter) &amp;&amp; inherits(reporter, "Reporter")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">818</td>
+                    <td class="num">489</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            mapping = aes_label,</pre>
+                      <pre class="language-r">  with_filter &lt;- !missing(filter_panel_api) &amp;&amp; inherits(filter_panel_api, "FilterPanelAPI")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">819</td>
+                    <td class="num">490</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            formula = rhs_formula,</pre>
+                      <pre class="language-r">  checkmate::assert_class(data, "reactive")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">820</td>
+                    <td class="num">491</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            parse = TRUE,</pre>
+                      <pre class="language-r">  checkmate::assert_class(isolate(data()), "teal_data")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">821</td>
+                    <td class="num">492</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            label.x = pos,</pre>
+                      <pre class="language-r">  moduleServer(id, function(input, output, session) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">822</td>
+                    <td class="num">493</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            size = label_size</pre>
+                      <pre class="language-r">    data_extract &lt;- list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">823</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">494</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ),</pre>
+                      <pre class="language-r">      x = x,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">824</td>
+                    <td class="num">495</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          env = list(</pre>
+                      <pre class="language-r">      y = y,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">825</td>
+                    <td class="num">496</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            rhs_formula = rhs_formula,</pre>
+                      <pre class="language-r">      color_by = color_by,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">826</td>
+                    <td class="num">497</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            pos = pos,</pre>
+                      <pre class="language-r">      size_by = size_by,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">827</td>
+                    <td class="num">498</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            aes_label = str2lang(aes_label),</pre>
+                      <pre class="language-r">      row_facet = row_facet,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">828</td>
+                    <td class="num">499</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            label_size = label_size</pre>
+                      <pre class="language-r">      col_facet = col_facet</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">829</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="never">
-                    <td class="num">830</td>
+                    <td class="num">501</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">831</td>
+                    <td class="num">502</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        substitute(</pre>
+                      <pre class="language-r">    rule_diff &lt;- function(other) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">832</td>
+                    <td class="num">503</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          expr = plot_call + label_geom,</pre>
+                      <pre class="language-r">      function(value) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">833</td>
+                    <td class="num">504</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          env = list(</pre>
+                      <pre class="language-r">        othervalue &lt;- selector_list()[[other]]()[["select"]]</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">834</td>
+                    <td class="num">505</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            plot_call = plot_call,</pre>
+                      <pre class="language-r">        if (!is.null(othervalue)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">835</td>
+                    <td class="num">506</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            label_geom = label_geom</pre>
+                      <pre class="language-r">          if (identical(value, othervalue)) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">507</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            "Row and column facetting variables must be different."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">836</td>
+                    <td class="num">508</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">          }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">837</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">838</td>
+                    <td class="num">510</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">839</td>
+                    <td class="num">511</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">840</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">512</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (trend_line_is_applicable()) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">841</td>
+                    <td class="num">513</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        shinyjs::hide("line_msg")</pre>
+                      <pre class="language-r">    selector_list &lt;- teal.transform::data_extract_multiple_srv(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">842</td>
+                    <td class="num">514</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        shinyjs::show("smoothing_degree")</pre>
+                      <pre class="language-r">      data_extract = data_extract,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">843</td>
+                    <td class="num">515</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (!add_trend_line()) {</pre>
+                      <pre class="language-r">      datasets = data,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">844</td>
+                    <td class="num">516</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          shinyjs::hide("ci")</pre>
+                      <pre class="language-r">      select_validation_rule = list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">845</td>
+                    <td class="num">517</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          shinyjs::hide("color_sub")</pre>
+                      <pre class="language-r">        x = ~ if (length(.) != 1) "Please select exactly one x var.",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">846</td>
+                    <td class="num">518</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          shinyjs::hide("show_form")</pre>
+                      <pre class="language-r">        y = ~ if (length(.) != 1) "Please select exactly one y var.",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">847</td>
+                    <td class="num">519</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          shinyjs::hide("show_r2")</pre>
+                      <pre class="language-r">        color_by = ~ if (length(.) &gt; 1) "There cannot be more than 1 color variable.",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">848</td>
+                    <td class="num">520</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          if (input$show_count) {</pre>
+                      <pre class="language-r">        size_by = ~ if (length(.) &gt; 1) "There cannot be more than 1 size variable.",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">849</td>
+                    <td class="num">521</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            plot_call &lt;- plot_label_generator(show_form = FALSE, show_r2 = FALSE)</pre>
+                      <pre class="language-r">        row_facet = shinyvalidate::compose_rules(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">850</td>
+                    <td class="num">522</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            shinyjs::show("label_pos")</pre>
+                      <pre class="language-r">          shinyvalidate::sv_optional(),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">851</td>
+                    <td class="num">523</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            shinyjs::show("label_size")</pre>
+                      <pre class="language-r">          rule_diff("col_facet")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">852</td>
+                    <td class="num">524</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">853</td>
+                    <td class="num">525</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            shinyjs::hide("label_pos")</pre>
+                      <pre class="language-r">        col_facet = shinyvalidate::compose_rules(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">854</td>
+                    <td class="num">526</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            shinyjs::hide("label_size")</pre>
+                      <pre class="language-r">          shinyvalidate::sv_optional(),</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">527</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          rule_diff("row_facet")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">855</td>
+                    <td class="num">528</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          }</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">856</td>
+                    <td class="num">529</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">530</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">531</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">857</td>
+                    <td class="num">532</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          shinyjs::show("ci")</pre>
+                      <pre class="language-r">    iv_r &lt;- reactive({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">858</td>
+                    <td class="num">533</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          shinyjs::show("show_form")</pre>
+                      <pre class="language-r">      iv_facet &lt;- shinyvalidate::InputValidator$new()</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">859</td>
+                    <td class="num">534</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          shinyjs::show("show_r2")</pre>
+                      <pre class="language-r">      iv &lt;- shinyvalidate::InputValidator$new()</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">860</td>
+                    <td class="num">535</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          if (nrow(ANL) - nrow(stats::na.omit(ANL[, c(x_var, y_var)])) &gt; 0) {</pre>
+                      <pre class="language-r">      teal.transform::compose_and_enable_validators(iv, selector_list)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">536</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">861</td>
+                    <td class="num">537</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            plot_q &lt;- teal.code::eval_code(</pre>
+                      <pre class="language-r">    iv_facet &lt;- shinyvalidate::InputValidator$new()</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">862</td>
+                    <td class="num">538</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              plot_q,</pre>
+                      <pre class="language-r">    iv_facet$add_rule("add_density", ~ if (isTRUE(.) &amp;&amp;</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">863</td>
+                    <td class="num">539</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              substitute(</pre>
+                      <pre class="language-r">      (length(selector_list()$row_facet()$select) &gt; 0L ||</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">864</td>
+                    <td class="num">540</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                expr = ANL &lt;- dplyr::filter(ANL, !is.na(x_var) &amp; !is.na(y_var)), # nolint: object_name.</pre>
+                      <pre class="language-r">        length(selector_list()$col_facet()$select) &gt; 0L)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">865</td>
+                    <td class="num">541</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                env = list(x_var = as.name(x_var), y_var = as.name(y_var))</pre>
+                      <pre class="language-r">      "Cannot add marginal density when Row or Column facetting has been selected"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">866</td>
+                    <td class="num">542</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              )</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">867</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">543</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">    iv_facet$enable()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">868</td>
+                    <td class="num">544</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">869</td>
+                    <td class="num">545</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          rhs_formula &lt;- substitute(</pre>
+                      <pre class="language-r">    anl_merged_input &lt;- teal.transform::merge_expression_srv(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">870</td>
+                    <td class="num">546</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            expr = y ~ poly(x, smoothing_degree, raw = TRUE),</pre>
+                      <pre class="language-r">      selector_list = selector_list,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">871</td>
+                    <td class="num">547</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            env = list(smoothing_degree = smoothing_degree)</pre>
+                      <pre class="language-r">      datasets = data,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">548</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      merge_function = "dplyr::inner_join"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">872</td>
+                    <td class="num">549</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">873</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">550</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          if (input$show_form || input$show_r2 || input$show_count) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">874</td>
+                    <td class="num">551</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            plot_call &lt;- plot_label_generator(rhs_formula = rhs_formula)</pre>
+                      <pre class="language-r">    anl_merged_q &lt;- reactive({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">875</td>
+                    <td class="num">552</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            shinyjs::show("label_pos")</pre>
+                      <pre class="language-r">      req(anl_merged_input())</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">876</td>
+                    <td class="num">553</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            shinyjs::show("label_size")</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">877</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          } else {</pre>
+                      <pre class="language-r">      data() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">878</td>
+                    <td class="num">554</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            shinyjs::hide("label_pos")</pre>
+                      <pre class="language-r">        teal.code::eval_code(as.expression(anl_merged_input()$expr)) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">879</td>
+                    <td class="num">555</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            shinyjs::hide("label_size")</pre>
+                      <pre class="language-r">        teal.code::eval_code(quote(ANL)) # used to display table when running show-r-code code</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">880</td>
+                    <td class="num">556</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">881</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">557</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          plot_call &lt;- substitute(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">882</td>
+                    <td class="num">558</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            expr = plot_call + ggplot2::geom_smooth(formula = rhs_formula, se = TRUE, level = ci, method = "lm"),</pre>
+                      <pre class="language-r">    merged &lt;- list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">883</td>
+                    <td class="num">559</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            env = list(plot_call = plot_call, rhs_formula = rhs_formula, ci = ci)</pre>
+                      <pre class="language-r">      anl_input_r = anl_merged_input,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">884</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">      anl_q_r = anl_merged_q</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">885</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="never">
-                    <td class="num">886</td>
+                    <td class="num">562</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">887</td>
+                    <td class="num">563</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        shinyjs::hide("smoothing_degree")</pre>
+                      <pre class="language-r">    trend_line_is_applicable &lt;- reactive({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">888</td>
+                    <td class="num">564</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        shinyjs::hide("ci")</pre>
+                      <pre class="language-r">      ANL &lt;- merged$anl_q_r()[["ANL"]] # nolint: object_name.</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">889</td>
+                    <td class="num">565</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        shinyjs::hide("color_sub")</pre>
+                      <pre class="language-r">      x_var &lt;- as.vector(merged$anl_input_r()$columns_source$x)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">890</td>
+                    <td class="num">566</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        shinyjs::hide("show_form")</pre>
+                      <pre class="language-r">      y_var &lt;- as.vector(merged$anl_input_r()$columns_source$y)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">891</td>
+                    <td class="num">567</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        shinyjs::hide("show_r2")</pre>
+                      <pre class="language-r">      length(x_var) &gt; 0 &amp;&amp; length(y_var) &gt; 0 &amp;&amp; is.numeric(ANL[[x_var]]) &amp;&amp; is.numeric(ANL[[y_var]])</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">892</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">        if (input$show_count) {</pre>
+                      <pre class="language-r">    })</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">569</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">893</td>
+                    <td class="num">570</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          plot_call &lt;- plot_label_generator(show_form = FALSE, show_r2 = FALSE)</pre>
+                      <pre class="language-r">    add_trend_line &lt;- reactive({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">894</td>
+                    <td class="num">571</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          shinyjs::show("label_pos")</pre>
+                      <pre class="language-r">      smoothing_degree &lt;- as.integer(input$smoothing_degree)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">895</td>
+                    <td class="num">572</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          shinyjs::show("label_size")</pre>
+                      <pre class="language-r">      trend_line_is_applicable() &amp;&amp; length(smoothing_degree) &gt; 0</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">896</td>
+                    <td class="num">573</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">574</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">897</td>
+                    <td class="num">575</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          shinyjs::hide("label_pos")</pre>
+                      <pre class="language-r">    if (!is.null(color_by)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">898</td>
+                    <td class="num">576</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          shinyjs::hide("label_size")</pre>
+                      <pre class="language-r">      observeEvent(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">899</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">577</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">        eventExpr = merged$anl_input_r()$columns_source$color_by,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">900</td>
+                    <td class="num">578</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        shinyjs::show("line_msg")</pre>
+                      <pre class="language-r">        handlerExpr = {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">901</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">579</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">          color_by_var &lt;- as.vector(merged$anl_input_r()$columns_source$color_by)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">902</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">580</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          if (length(color_by_var) &gt; 0) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">903</td>
+                    <td class="num">581</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (!is.null(facet_cl)) {</pre>
+                      <pre class="language-r">            shinyjs::hide("color")</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">582</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          } else {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">904</td>
+                    <td class="num">583</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        plot_call &lt;- substitute(expr = plot_call + facet_cl, env = list(plot_call = plot_call, facet_cl = facet_cl))</pre>
+                      <pre class="language-r">            shinyjs::show("color")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">905</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">906</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">907</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">      y_label &lt;- varname_w_label(</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">908</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">        y_var,</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">909</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">        ANL,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">910</td>
+                    <td class="num">589</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        prefix = if (log_y) paste(log_y_fn, "(") else NULL,</pre>
+                      <pre class="language-r">    output$num_na_removed &lt;- renderUI({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">911</td>
+                    <td class="num">590</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        suffix = if (log_y) ")" else NULL</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">912</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">      if (add_trend_line()) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">913</td>
+                    <td class="num">591</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      x_label &lt;- varname_w_label(</pre>
+                      <pre class="language-r">        ANL &lt;- merged$anl_q_r()[["ANL"]] # nolint: object_name.</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">914</td>
+                    <td class="num">592</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        x_var,</pre>
+                      <pre class="language-r">        x_var &lt;- as.vector(merged$anl_input_r()$columns_source$x)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">915</td>
+                    <td class="num">593</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ANL,</pre>
+                      <pre class="language-r">        y_var &lt;- as.vector(merged$anl_input_r()$columns_source$y)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">916</td>
+                    <td class="num">594</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        prefix = if (log_x) paste(log_x_fn, "(") else NULL,</pre>
+                      <pre class="language-r">        if ((num_total_na &lt;- nrow(ANL) - nrow(stats::na.omit(ANL[, c(x_var, y_var)]))) &gt; 0) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">917</td>
+                    <td class="num">595</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        suffix = if (log_x) ")" else NULL</pre>
+                      <pre class="language-r">          shiny::tags$div(paste(num_total_na, "row(s) with missing values were removed"), shiny::tags$hr())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">918</td>
+                    <td class="num">596</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">919</td>
+                    <td class="num">597</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">920</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">      dev_ggplot2_args &lt;- teal.widgets::ggplot2_args(</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">921</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">        labs = list(y = y_label, x = x_label),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">922</td>
+                    <td class="num">600</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        theme = list(legend.position = "bottom")</pre>
+                      <pre class="language-r">    observeEvent(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">923</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">601</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">      eventExpr = merged$anl_input_r()$columns_source[c("col_facet", "row_facet")],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">924</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">602</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      handlerExpr = {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">925</td>
+                    <td class="num">603</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (rotate_xaxis_labels) {</pre>
+                      <pre class="language-r">        if (length(merged$anl_input_r()$columns_source$col_facet) == 0 &amp;&amp;</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">926</td>
+                    <td class="num">604</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        dev_ggplot2_args$theme[["axis.text.x"]] &lt;- quote(element_text(angle = 45, hjust = 1))</pre>
+                      <pre class="language-r">          length(merged$anl_input_r()$columns_source$row_facet) == 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">927</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">605</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">          shinyjs::hide("free_scales")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">928</td>
+                    <td class="num">606</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">929</td>
+                    <td class="num">607</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      all_ggplot2_args &lt;- teal.widgets::resolve_ggplot2_args(</pre>
+                      <pre class="language-r">          shinyjs::show("free_scales")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">930</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">        user_plot = ggplot2_args,</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">931</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">        module_plot = dev_ggplot2_args</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">932</td>
+                    <td class="num">610</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">933</td>
+                    <td class="num">611</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">934</td>
+                    <td class="num">612</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      parsed_ggplot2_args &lt;- teal.widgets::parse_ggplot2_args(all_ggplot2_args, ggtheme = ggtheme)</pre>
+                      <pre class="language-r">    output_q &lt;- reactive({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">935</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">613</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      teal::validate_inputs(iv_r(), iv_facet)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">936</td>
+                    <td class="num">614</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">937</td>
+                    <td class="num">615</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (add_density) {</pre>
+                      <pre class="language-r">      ANL &lt;- merged$anl_q_r()[["ANL"]] # nolint: object_name.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">938</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">        plot_call &lt;- substitute(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">939</td>
+                    <td class="num">617</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          expr = ggExtra::ggMarginal(</pre>
+                      <pre class="language-r">      x_var &lt;- as.vector(merged$anl_input_r()$columns_source$x)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">940</td>
+                    <td class="num">618</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            plot_call + labs + ggthemes + themes,</pre>
+                      <pre class="language-r">      y_var &lt;- as.vector(merged$anl_input_r()$columns_source$y)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">941</td>
+                    <td class="num">619</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            type = "density",</pre>
+                      <pre class="language-r">      color_by_var &lt;- as.vector(merged$anl_input_r()$columns_source$color_by)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">942</td>
+                    <td class="num">620</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            groupColour = group_colour</pre>
+                      <pre class="language-r">      size_by_var &lt;- as.vector(merged$anl_input_r()$columns_source$size_by)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">943</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">621</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ),</pre>
+                      <pre class="language-r">      row_facet_name &lt;- if (length(merged$anl_input_r()$columns_source$row_facet) == 0) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">944</td>
+                    <td class="num">622</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          env = list(</pre>
+                      <pre class="language-r">        character(0)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">945</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">            plot_call = plot_call,</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">946</td>
+                    <td class="num">624</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            group_colour = if (length(color_by_var) &gt; 0) TRUE else FALSE,</pre>
+                      <pre class="language-r">        as.vector(merged$anl_input_r()$columns_source$row_facet)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">947</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">625</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            labs = parsed_ggplot2_args$labs,</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">948</td>
+                    <td class="num">626</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ggthemes = parsed_ggplot2_args$ggtheme,</pre>
+                      <pre class="language-r">      col_facet_name &lt;- if (length(merged$anl_input_r()$columns_source$col_facet) == 0) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">949</td>
+                    <td class="num">627</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            themes = parsed_ggplot2_args$theme</pre>
+                      <pre class="language-r">        character(0)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">950</td>
+                    <td class="num">628</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">951</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">629</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">        as.vector(merged$anl_input_r()$columns_source$col_facet)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">952</td>
+                    <td class="num">630</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">953</td>
+                    <td class="num">631</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        plot_call &lt;- substitute(</pre>
+                      <pre class="language-r">      alpha &lt;- input$alpha</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">954</td>
+                    <td class="num">632</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          expr = plot_call +</pre>
+                      <pre class="language-r">      size &lt;- input$size</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">955</td>
+                    <td class="num">633</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            labs +</pre>
+                      <pre class="language-r">      rotate_xaxis_labels &lt;- input$rotate_xaxis_labels</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">956</td>
+                    <td class="num">634</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ggthemes +</pre>
+                      <pre class="language-r">      add_density &lt;- input$add_density</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">957</td>
+                    <td class="num">635</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            themes,</pre>
+                      <pre class="language-r">      ggtheme &lt;- input$ggtheme</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">958</td>
+                    <td class="num">636</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          env = list(</pre>
+                      <pre class="language-r">      rug_plot &lt;- input$rug_plot</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">959</td>
+                    <td class="num">637</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            plot_call = plot_call,</pre>
+                      <pre class="language-r">      color &lt;- input$color</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">960</td>
+                    <td class="num">638</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            labs = parsed_ggplot2_args$labs,</pre>
+                      <pre class="language-r">      shape &lt;- `if`(is.null(input$shape) || identical(input$shape, ""), "circle", input$shape)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">961</td>
+                    <td class="num">639</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ggthemes = parsed_ggplot2_args$ggtheme,</pre>
+                      <pre class="language-r">      smoothing_degree &lt;- as.integer(input$smoothing_degree)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">962</td>
+                    <td class="num">640</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            themes = parsed_ggplot2_args$theme</pre>
+                      <pre class="language-r">      ci &lt;- input$ci</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">963</td>
+                    <td class="num">641</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">964</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">642</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">      log_x &lt;- input$log_x</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">965</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">643</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">      log_y &lt;- input$log_y</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">966</td>
+                    <td class="num">644</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">967</td>
+                    <td class="num">645</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      plot_call &lt;- substitute(expr = p &lt;- plot_call, env = list(plot_call = plot_call))</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">968</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      validate(need(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">969</td>
+                    <td class="num">646</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.code::eval_code(plot_q, plot_call) %&gt;%</pre>
+                      <pre class="language-r">        length(row_facet_name) == 0 || inherits(ANL[[row_facet_name]], c("character", "factor", "Date", "integer")),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">970</td>
+                    <td class="num">647</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        teal.code::eval_code(quote(print(p)))</pre>
+                      <pre class="language-r">        "`Row facetting` variable must be of class `character`, `factor`, `Date`, or `integer`"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">971</td>
+                    <td class="num">648</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">      ))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">972</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">649</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      validate(need(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">973</td>
+                    <td class="num">650</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    plot_r &lt;- reactive(output_q()[["p"]])</pre>
+                      <pre class="language-r">        length(col_facet_name) == 0 || inherits(ANL[[col_facet_name]], c("character", "factor", "Date", "integer")),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">974</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">651</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        "`Column facetting` variable must be of class `character`, `factor`, `Date`, or `integer`"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">975</td>
+                    <td class="num">652</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Insert the plot into a plot_with_settings module from teal.widgets</pre>
+                      <pre class="language-r">      ))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">976</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">653</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    pws &lt;- teal.widgets::plot_with_settings_srv(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">977</td>
+                    <td class="num">654</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      id = "scatter_plot",</pre>
+                      <pre class="language-r">      if (add_density &amp;&amp; length(color_by_var) &gt; 0) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">978</td>
+                    <td class="num">655</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      plot_r = plot_r,</pre>
+                      <pre class="language-r">        validate(need(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">979</td>
+                    <td class="num">656</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      height = plot_height,</pre>
+                      <pre class="language-r">          !is.numeric(ANL[[color_by_var]]),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">980</td>
+                    <td class="num">657</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      width = plot_width,</pre>
+                      <pre class="language-r">          "Marginal plots cannot be produced when the points are colored by numeric variables.</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">981</td>
+                    <td class="num">658</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      brushing = TRUE</pre>
+                      <pre class="language-r">        \n Uncheck the 'Add marginal density' checkbox to display the plot."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">982</td>
+                    <td class="num">659</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">        ))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">983</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">660</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        validate(need(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">984</td>
+                    <td class="num">661</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    output$data_table &lt;- DT::renderDataTable({</pre>
+                      <pre class="language-r">          !(inherits(ANL[[color_by_var]], "Date") ||</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">985</td>
+                    <td class="num">662</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      plot_brush &lt;- pws$brush()</pre>
+                      <pre class="language-r">            inherits(ANL[[color_by_var]], "POSIXct") ||</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">986</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">            inherits(ANL[[color_by_var]], "POSIXlt")),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">987</td>
+                    <td class="num">664</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (!is.null(plot_brush)) {</pre>
+                      <pre class="language-r">          "Marginal plots cannot be produced when the points are colored by Date or POSIX variables.</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">988</td>
+                    <td class="num">665</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        validate(need(!input$add_density, "Brushing feature is currently not supported when plot has marginal density"))</pre>
+                      <pre class="language-r">        \n Uncheck the 'Add marginal density' checkbox to display the plot."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">989</td>
+                    <td class="num">666</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        ))</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">667</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">990</td>
+                    <td class="num">668</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">991</td>
+                    <td class="num">669</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      merged_data &lt;- isolate(teal.code::dev_suppress(output_q()[["ANL"]]))</pre>
+                      <pre class="language-r">      teal::validate_has_data(ANL[, c(x_var, y_var)], 10, complete = TRUE, allow_inf = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">992</td>
+                    <td class="num">670</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">993</td>
+                    <td class="num">671</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      brushed_df &lt;- teal.widgets::clean_brushedPoints(merged_data, plot_brush)</pre>
+                      <pre class="language-r">      if (log_x) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">994</td>
+                    <td class="num">672</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      numeric_cols &lt;- names(brushed_df)[</pre>
+                      <pre class="language-r">        validate(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">995</td>
+                    <td class="num">673</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        vapply(brushed_df, function(x) is.numeric(x) &amp;&amp; !is.integer(x), FUN.VALUE = logical(1))</pre>
+                      <pre class="language-r">          need(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">996</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">674</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ]</pre>
+                      <pre class="language-r">            is.numeric(ANL[[x_var]]) &amp;&amp; all(</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">675</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">              ANL[[x_var]] &gt; 0 | is.na(ANL[[x_var]])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">997</td>
+                    <td class="num">676</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">998</td>
+                    <td class="num">677</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (length(numeric_cols) &gt; 0) {</pre>
+                      <pre class="language-r">            "X variable can only be log transformed if variable is numeric and all values are positive."</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">999</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">678</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        DT::formatRound(</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1000</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">679</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          DT::datatable(brushed_df,</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1001</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">680</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            rownames = FALSE,</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1002</td>
+                    <td class="num">681</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            options = list(scrollX = TRUE, pageLength = input$data_table_rows)</pre>
+                      <pre class="language-r">      if (log_y) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1003</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">682</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ),</pre>
+                      <pre class="language-r">        validate(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1004</td>
+                    <td class="num">683</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          numeric_cols,</pre>
+                      <pre class="language-r">          need(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1005</td>
+                    <td class="num">684</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          table_dec</pre>
+                      <pre class="language-r">            is.numeric(ANL[[y_var]]) &amp;&amp; all(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1006</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">685</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">              ANL[[y_var]] &gt; 0 | is.na(ANL[[y_var]])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1007</td>
+                    <td class="num">686</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">1008</td>
+                    <td class="num">687</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        DT::datatable(brushed_df, rownames = FALSE, options = list(scrollX = TRUE, pageLength = input$data_table_rows))</pre>
+                      <pre class="language-r">            "Y variable can only be log transformed if variable is numeric and all values are positive."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1009</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">1010</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">1011</td>
+                    <td class="num">690</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">691</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1012</td>
+                    <td class="num">692</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    teal.widgets::verbatim_popup_srv(</pre>
+                      <pre class="language-r">      facet_cl &lt;- facet_ggplot_call(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1013</td>
+                    <td class="num">693</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      id = "warning",</pre>
+                      <pre class="language-r">        row_facet_name,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1014</td>
+                    <td class="num">694</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      verbatim_content = reactive(teal.code::get_warnings(output_q())),</pre>
+                      <pre class="language-r">        col_facet_name,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1015</td>
+                    <td class="num">695</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      title = "Warning",</pre>
+                      <pre class="language-r">        free_x_scales = isTRUE(input$free_scales),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1016</td>
+                    <td class="num">696</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      disabled = reactive(is.null(teal.code::get_warnings(output_q())))</pre>
+                      <pre class="language-r">        free_y_scales = isTRUE(input$free_scales)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1017</td>
+                    <td class="num">697</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1018</td>
+                    <td class="num">698</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1019</td>
+                    <td class="num">699</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    teal.widgets::verbatim_popup_srv(</pre>
+                      <pre class="language-r">      point_sizes &lt;- if (length(size_by_var) &gt; 0) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1020</td>
+                    <td class="num">700</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      id = "rcode",</pre>
+                      <pre class="language-r">        validate(need(is.numeric(ANL[[size_by_var]]), "Variable to size by must be numeric"))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1021</td>
+                    <td class="num">701</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      verbatim_content = reactive(teal.code::get_code(output_q())),</pre>
+                      <pre class="language-r">        substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1022</td>
+                    <td class="num">702</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      title = "R Code for scatterplot"</pre>
+                      <pre class="language-r">          expr = size * ANL[[size_by_var]] / max(ANL[[size_by_var]], na.rm = TRUE),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1023</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">703</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">          env = list(size = size, size_by_var = size_by_var)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1024</td>
+                    <td class="num">704</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1025</td>
+                    <td class="num">705</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ### REPORTER</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1026</td>
+                    <td class="num">706</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (with_reporter) {</pre>
+                      <pre class="language-r">        size</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1027</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">707</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      card_fun &lt;- function(comment, label) {</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1028</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">708</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        card &lt;- teal::report_card_template(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1029</td>
+                    <td class="num">709</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          title = "Scatter Plot",</pre>
+                      <pre class="language-r">      plot_q &lt;- merged$anl_q_r()</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1030</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">710</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          label = label,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1031</td>
+                    <td class="num">711</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          with_filter = with_filter,</pre>
+                      <pre class="language-r">      if (log_x) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1032</td>
+                    <td class="num">712</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          filter_panel_api = filter_panel_api</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">1033</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">        log_x_fn &lt;- input$log_x_base</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1034</td>
+                    <td class="num">713</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        card$append_text("Plot", "header3")</pre>
+                      <pre class="language-r">        plot_q &lt;- teal.code::eval_code(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1035</td>
+                    <td class="num">714</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        card$append_plot(plot_r(), dim = pws$dim())</pre>
+                      <pre class="language-r">          object = plot_q,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1036</td>
+                    <td class="num">715</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (!comment == "") {</pre>
+                      <pre class="language-r">          code = substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1037</td>
+                    <td class="num">716</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          card$append_text("Comment", "header3")</pre>
+                      <pre class="language-r">            expr = ANL[, log_x_var] &lt;- log_x_fn(ANL[, x_var]), # nolint: object_name.</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1038</td>
+                    <td class="num">717</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          card$append_text(comment)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">1039</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">            env = list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1040</td>
+                    <td class="num">718</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        card$append_src(teal.code::get_code(output_q()))</pre>
+                      <pre class="language-r">              x_var = x_var,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1041</td>
+                    <td class="num">719</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        card</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">1042</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">              log_x_fn = as.name(log_x_fn),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1043</td>
+                    <td class="num">720</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun)</pre>
+                      <pre class="language-r">              log_x_var = paste0(log_x_fn, "_", x_var)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1044</td>
+                    <td class="num">721</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1045</td>
+                    <td class="num">722</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ###</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1046</td>
+                    <td class="num">723</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1047</td>
+                    <td class="num">724</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/tm_g_distribution.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">725</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Distribution Module</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">726</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @md</pre>
+                      <pre class="language-r">      if (log_y) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">3</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">727</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        log_y_fn &lt;- input$log_y_base</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">4</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">728</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @details</pre>
+                      <pre class="language-r">        plot_q &lt;- teal.code::eval_code(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">5</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">729</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Module to analyze and explore univariate variable distribution</pre>
+                      <pre class="language-r">          object = plot_q,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">6</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">          code = substitute(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">7</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">731</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams teal::module</pre>
+                      <pre class="language-r">            expr = ANL[, log_y_var] &lt;- log_y_fn(ANL[, y_var]), # nolint: object_name.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">8</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">732</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams teal.widgets::standard_layout</pre>
+                      <pre class="language-r">            env = list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">9</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">733</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams shared_params</pre>
+                      <pre class="language-r">              y_var = y_var,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">10</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">734</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">              log_y_fn = as.name(log_y_fn),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">11</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">735</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param dist_var (`data_extract_spec` or `list` of multiple `data_extract_spec`)</pre>
+                      <pre class="language-r">              log_y_var = paste0(log_y_fn, "_", y_var)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">736</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  Variable to consider for the distribution analysis.</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">737</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param strata_var (`data_extract_spec` or `list` of multiple `data_extract_spec`)</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">738</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   Categorical variable to split the selected distribution variable on.</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">739</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param group_var  optional, (`data_extract_spec` or `list` of multiple `data_extract_spec`)</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">740</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   Which data columns to use for faceting rows.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">17</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">741</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param freq optional, (`logical`) Whether to display frequency (`TRUE`) or density (`FALSE`).</pre>
+                      <pre class="language-r">      pre_pro_anl &lt;- if (input$show_count) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">18</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">742</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   Defaults to density (`FALSE`).</pre>
+                      <pre class="language-r">        paste0(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">19</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">743</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param bins optional, (`integer(1)` or `integer(3)`) If scalar then the histogram bins will have a fixed size.</pre>
+                      <pre class="language-r">          "ANL %&gt;% dplyr::group_by(",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">20</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">744</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   If a slider should be presented to adjust the number of histogram bins dynamically then it can be a</pre>
+                      <pre class="language-r">          paste(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">21</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">745</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   vector of length three with `c(value, min, max)`.</pre>
+                      <pre class="language-r">            c(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">22</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">746</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   Defaults to `c(30L, 1L, 100L)`.</pre>
+                      <pre class="language-r">              if (length(color_by_var) &gt; 0 &amp;&amp; inherits(ANL[[color_by_var]], c("factor", "character"))) color_by_var,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">23</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">747</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">              row_facet_name,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">24</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">748</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @templateVar ggnames "Histogram", "QQplot"</pre>
+                      <pre class="language-r">              col_facet_name</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">749</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @template ggplot2_args_multi</pre>
+                      <pre class="language-r">            ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">26</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">750</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">            collapse = ", "</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">751</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">28</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">752</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # general data example</pre>
+                      <pre class="language-r">          ") %&gt;% dplyr::mutate(n = dplyr::n()) %&gt;% dplyr::ungroup()"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">29</td>
+                    <td class="num">753</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(teal.widgets)</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">754</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="missed">
+                    <td class="num">755</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' data &lt;- teal_data()</pre>
+                      <pre class="language-r">        "ANL"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">32</td>
+                    <td class="num">756</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' data &lt;- within(data, {</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">757</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   iris &lt;- iris</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">34</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">758</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' })</pre>
+                      <pre class="language-r">      plot_call &lt;- substitute(expr = pre_pro_anl %&gt;% ggplot(), env = list(pre_pro_anl = str2lang(pre_pro_anl)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</td>
+                    <td class="num">759</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' datanames(data) &lt;- "iris"</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">36</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">760</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      plot_call &lt;- if (length(color_by_var) == 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">37</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">761</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' app &lt;- init(</pre>
+                      <pre class="language-r">        substitute(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">38</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">762</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = data,</pre>
+                      <pre class="language-r">          expr = plot_call +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">39</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">763</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   modules = list(</pre>
+                      <pre class="language-r">            ggplot2::aes(x = x_name, y = y_name) +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">40</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">764</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     tm_g_distribution(</pre>
+                      <pre class="language-r">            ggplot2::geom_point(alpha = alpha_value, size = point_sizes, shape = shape_value, color = color_value),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">41</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">765</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       dist_var = data_extract_spec(</pre>
+                      <pre class="language-r">          env = list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">42</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">766</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         dataname = "iris",</pre>
+                      <pre class="language-r">            plot_call = plot_call,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">43</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">767</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         select = select_spec(variable_choices("iris"), "Petal.Length")</pre>
+                      <pre class="language-r">            x_name = if (log_x) as.name(paste0(log_x_fn, "_", x_var)) else as.name(x_var),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">44</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">768</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       ),</pre>
+                      <pre class="language-r">            y_name = if (log_y) as.name(paste0(log_y_fn, "_", y_var)) else as.name(y_var),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">45</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">769</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       ggplot2_args = ggplot2_args(</pre>
+                      <pre class="language-r">            alpha_value = alpha,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">46</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">770</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         labs = list(subtitle = "Plot generated by Distribution Module")</pre>
+                      <pre class="language-r">            point_sizes = point_sizes,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">47</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">771</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       )</pre>
+                      <pre class="language-r">            shape_value = shape,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">48</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">772</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     )</pre>
+                      <pre class="language-r">            color_value = color</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">49</td>
+                    <td class="num">773</td>
                     <td class="coverage"></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="num">774</td>
                     <td class="coverage"></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">775</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' if (interactive()) {</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">52</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">776</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   shinyApp(app$ui, app$server)</pre>
+                      <pre class="language-r">        substitute(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">53</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">777</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">          expr = plot_call +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">54</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">778</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">            ggplot2::aes(x = x_name, y = y_name, color = color_by_var_name) +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">55</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">779</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # CDISC data example</pre>
+                      <pre class="language-r">            ggplot2::geom_point(alpha = alpha_value, size = point_sizes, shape = shape_value),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">56</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">780</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(teal.widgets)</pre>
+                      <pre class="language-r">          env = list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">57</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">781</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">            plot_call = plot_call,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">58</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">782</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' data &lt;- teal_data()</pre>
+                      <pre class="language-r">            x_name = if (log_x) as.name(paste0(log_x_fn, "_", x_var)) else as.name(x_var),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">59</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">783</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' data &lt;- within(data, {</pre>
+                      <pre class="language-r">            y_name = if (log_y) as.name(paste0(log_y_fn, "_", y_var)) else as.name(y_var),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">60</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">784</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ADSL &lt;- rADSL</pre>
+                      <pre class="language-r">            color_by_var_name = as.name(color_by_var),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">61</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">785</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' })</pre>
+                      <pre class="language-r">            alpha_value = alpha,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">62</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">786</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' datanames(data) &lt;- c("ADSL")</pre>
+                      <pre class="language-r">            point_sizes = point_sizes,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">63</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">787</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' join_keys(data) &lt;- default_cdisc_join_keys[datanames(data)]</pre>
+                      <pre class="language-r">            shape_value = shape</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">64</td>
+                    <td class="num">788</td>
                     <td class="coverage"></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">789</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' vars1 &lt;- choices_selected(</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">66</td>
+                    <td class="num">790</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   variable_choices(data[["ADSL"]], c("ARM", "COUNTRY", "SEX")),</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">67</td>
+                    <td class="num">791</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   selected = NULL</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">68</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">792</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">      if (rug_plot) plot_call &lt;- substitute(expr = plot_call + geom_rug(), env = list(plot_call = plot_call))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">69</td>
+                    <td class="num">793</td>
                     <td class="coverage"></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="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">794</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' app &lt;- init(</pre>
+                      <pre class="language-r">      plot_label_generator &lt;- function(rhs_formula = quote(y ~ 1),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">71</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">795</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = data,</pre>
+                      <pre class="language-r">                                       show_form = input$show_form,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">72</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">796</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   modules = modules(</pre>
+                      <pre class="language-r">                                       show_r2 = input$show_r2,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">73</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">797</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     tm_g_distribution(</pre>
+                      <pre class="language-r">                                       show_count = input$show_count,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">74</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">798</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       dist_var = data_extract_spec(</pre>
+                      <pre class="language-r">                                       pos = input$pos,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">75</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">799</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         dataname = "ADSL",</pre>
+                      <pre class="language-r">                                       label_size = input$label_size) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">76</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">800</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         select = select_spec(</pre>
+                      <pre class="language-r">        stopifnot(sum(show_form, show_r2, show_count) &gt;= 1)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">77</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">801</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           choices = variable_choices(data[["ADSL"]], c("AGE", "BMRKR1")),</pre>
+                      <pre class="language-r">        aes_label &lt;- paste0(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">78</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">802</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           selected = "BMRKR1",</pre>
+                      <pre class="language-r">          "aes(",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">79</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">803</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           multiple = FALSE,</pre>
+                      <pre class="language-r">          if (show_count) "n = n, ",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">80</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">804</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           fixed = FALSE</pre>
+                      <pre class="language-r">          "label = ",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">81</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">805</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         )</pre>
+                      <pre class="language-r">          if (sum(show_form, show_r2, show_count) &gt; 1) "paste(",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">82</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">806</td>
+                    <td class="coverage">!</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">83</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">807</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       strata_var = data_extract_spec(</pre>
+                      <pre class="language-r">            c(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">84</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">808</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         dataname = "ADSL",</pre>
+                      <pre class="language-r">              if (show_form) "stat(eq.label)",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">85</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">809</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         filter = filter_spec(</pre>
+                      <pre class="language-r">              if (show_r2) "stat(adj.rr.label)",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">86</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">810</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           vars = vars1,</pre>
+                      <pre class="language-r">              if (show_count) "paste('N ~`=`~', n)"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">87</td>
+                    <td class="num">811</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           multiple = TRUE</pre>
+                      <pre class="language-r">            ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">88</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">812</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         )</pre>
+                      <pre class="language-r">            collapse = ", "</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">89</td>
+                    <td class="num">813</td>
                     <td class="coverage"></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">814</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       group_var = data_extract_spec(</pre>
+                      <pre class="language-r">          if (sum(show_form, show_r2, show_count) &gt; 1) ", sep = '*\", \"*'))" else ")"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">91</td>
+                    <td class="num">815</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         dataname = "ADSL",</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">816</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         filter = filter_spec(</pre>
+                      <pre class="language-r">        label_geom &lt;- substitute(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">93</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">817</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           vars = vars1,</pre>
+                      <pre class="language-r">          expr = ggpmisc::stat_poly_eq(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">94</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">818</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           multiple = TRUE</pre>
+                      <pre class="language-r">            mapping = aes_label,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">95</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">819</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         )</pre>
+                      <pre class="language-r">            formula = rhs_formula,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">96</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">820</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       ),</pre>
+                      <pre class="language-r">            parse = TRUE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">97</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">821</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       ggplot2_args = ggplot2_args(</pre>
+                      <pre class="language-r">            label.x = pos,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">98</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">822</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         labs = list(subtitle = "Plot generated by Distribution Module")</pre>
+                      <pre class="language-r">            size = label_size</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">99</td>
+                    <td class="num">823</td>
                     <td class="coverage"></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="missed">
+                    <td class="num">824</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     )</pre>
+                      <pre class="language-r">          env = list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">101</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">825</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">            rhs_formula = rhs_formula,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">102</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">826</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">            pos = pos,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">103</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">827</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' if (interactive()) {</pre>
+                      <pre class="language-r">            aes_label = str2lang(aes_label),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">104</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">828</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   shinyApp(app$ui, app$server)</pre>
+                      <pre class="language-r">            label_size = label_size</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">105</td>
+                    <td class="num">829</td>
                     <td class="coverage"></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">830</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">107</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">831</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">        substitute(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">108</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">832</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          expr = plot_call + label_geom,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">109</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">833</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">tm_g_distribution &lt;- function(label = "Distribution Module",</pre>
+                      <pre class="language-r">          env = list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">110</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">834</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              dist_var,</pre>
+                      <pre class="language-r">            plot_call = plot_call,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">111</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">835</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              strata_var = NULL,</pre>
+                      <pre class="language-r">            label_geom = label_geom</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">112</td>
+                    <td class="num">836</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              group_var = NULL,</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">113</td>
+                    <td class="num">837</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              freq = FALSE,</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">114</td>
+                    <td class="num">838</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              ggtheme = c("gray", "bw", "linedraw", "light", "dark", "minimal", "classic", "void"),</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">115</td>
+                    <td class="num">839</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              ggplot2_args = teal.widgets::ggplot2_args(),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">116</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">840</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              bins = c(30L, 1L, 100L),</pre>
+                      <pre class="language-r">      if (trend_line_is_applicable()) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">117</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">841</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              plot_height = c(600, 200, 2000),</pre>
+                      <pre class="language-r">        shinyjs::hide("line_msg")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">118</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">842</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              plot_width = NULL,</pre>
+                      <pre class="language-r">        shinyjs::show("smoothing_degree")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">119</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">843</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              pre_output = NULL,</pre>
+                      <pre class="language-r">        if (!add_trend_line()) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">120</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">844</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              post_output = NULL) {</pre>
+                      <pre class="language-r">          shinyjs::hide("ci")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">121</td>
+                    <td class="num">845</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  logger::log_info("Initializing tm_g_distribution")</pre>
+                      <pre class="language-r">          shinyjs::hide("color_sub")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">122</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">846</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          shinyjs::hide("show_form")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">123</td>
+                    <td class="num">847</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  extra_packages &lt;- c("ggpmisc", "ggpp", "goftest", "MASS", "broom")</pre>
+                      <pre class="language-r">          shinyjs::hide("show_r2")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">124</td>
+                    <td class="num">848</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  missing_packages &lt;- Filter(function(x) !requireNamespace(x, quietly = TRUE), extra_packages)</pre>
+                      <pre class="language-r">          if (input$show_count) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">125</td>
+                    <td class="num">849</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (length(missing_packages) &gt; 0L) {</pre>
+                      <pre class="language-r">            plot_call &lt;- plot_label_generator(show_form = FALSE, show_r2 = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">126</td>
+                    <td class="num">850</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stop(sprintf(</pre>
+                      <pre class="language-r">            shinyjs::show("label_pos")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">127</td>
+                    <td class="num">851</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Cannot load package(s): %s.\nInstall or restart your session.",</pre>
+                      <pre class="language-r">            shinyjs::show("label_size")</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">852</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          } else {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">128</td>
+                    <td class="num">853</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      toString(missing_packages)</pre>
+                      <pre class="language-r">            shinyjs::hide("label_pos")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">129</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">854</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ))</pre>
+                      <pre class="language-r">            shinyjs::hide("label_size")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">130</td>
+                    <td class="num">855</td>
                     <td class="coverage"></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">856</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">132</td>
+                    <td class="num">857</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (inherits(dist_var, "data_extract_spec")) dist_var &lt;- list(dist_var)</pre>
+                      <pre class="language-r">          shinyjs::show("ci")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">133</td>
+                    <td class="num">858</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (inherits(strata_var, "data_extract_spec")) strata_var &lt;- list(strata_var)</pre>
+                      <pre class="language-r">          shinyjs::show("show_form")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">134</td>
+                    <td class="num">859</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (inherits(group_var, "data_extract_spec")) group_var &lt;- list(group_var)</pre>
+                      <pre class="language-r">          shinyjs::show("show_r2")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">135</td>
+                    <td class="num">860</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (inherits(ggplot2_args, "ggplot2_args")) ggplot2_args &lt;- list(default = ggplot2_args)</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">          if (nrow(ANL) - nrow(stats::na.omit(ANL[, c(x_var, y_var)])) &gt; 0) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">137</td>
+                    <td class="num">861</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ggtheme &lt;- match.arg(ggtheme)</pre>
+                      <pre class="language-r">            plot_q &lt;- teal.code::eval_code(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">138</td>
+                    <td class="num">862</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (length(bins) == 1) {</pre>
+                      <pre class="language-r">              plot_q,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">139</td>
+                    <td class="num">863</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_numeric(bins, any.missing = FALSE, lower = 1)</pre>
+                      <pre class="language-r">              substitute(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">140</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">864</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">                expr = ANL &lt;- dplyr::filter(ANL, !is.na(x_var) &amp; !is.na(y_var)), # nolint: object_name.</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">141</td>
+                    <td class="num">865</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_numeric(bins, len = 3, any.missing = FALSE, lower = 1)</pre>
+                      <pre class="language-r">                env = list(x_var = as.name(x_var), y_var = as.name(y_var))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">142</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">866</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_numeric(bins[1], lower = bins[2], upper = bins[3], .var.name = "bins")</pre>
+                      <pre class="language-r">              )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">143</td>
+                    <td class="num">867</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">144</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">868</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(label)</pre>
+                      <pre class="language-r">          }</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">145</td>
+                    <td class="num">869</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(dist_var, "data_extract_spec")</pre>
+                      <pre class="language-r">          rhs_formula &lt;- substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">146</td>
+                    <td class="num">870</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_false(dist_var[[1]]$select$multiple)</pre>
+                      <pre class="language-r">            expr = y ~ poly(x, smoothing_degree, raw = TRUE),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">147</td>
+                    <td class="num">871</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(strata_var, types = "data_extract_spec", null.ok = TRUE)</pre>
+                      <pre class="language-r">            env = list(smoothing_degree = smoothing_degree)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">148</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">872</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(group_var, types = "data_extract_spec", null.ok = TRUE)</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">149</td>
+                    <td class="num">873</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(freq)</pre>
+                      <pre class="language-r">          if (input$show_form || input$show_r2 || input$show_count) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">150</td>
+                    <td class="num">874</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  plot_choices &lt;- c("Histogram", "QQplot")</pre>
+                      <pre class="language-r">            plot_call &lt;- plot_label_generator(rhs_formula = rhs_formula)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">151</td>
+                    <td class="num">875</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(ggplot2_args, types = "ggplot2_args")</pre>
+                      <pre class="language-r">            shinyjs::show("label_pos")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">152</td>
+                    <td class="num">876</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_subset(names(ggplot2_args), c("default", plot_choices))</pre>
+                      <pre class="language-r">            shinyjs::show("label_size")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">153</td>
+                    <td class="num">877</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">154</td>
+                    <td class="num">878</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  args &lt;- as.list(environment())</pre>
+                      <pre class="language-r">            shinyjs::hide("label_pos")</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">879</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            shinyjs::hide("label_size")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">155</td>
+                    <td class="num">880</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">156</td>
+                    <td class="num">881</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  data_extract_list &lt;- list(</pre>
+                      <pre class="language-r">          plot_call &lt;- substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">157</td>
+                    <td class="num">882</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dist_var = dist_var,</pre>
+                      <pre class="language-r">            expr = plot_call + ggplot2::geom_smooth(formula = rhs_formula, se = TRUE, level = ci, method = "lm"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">158</td>
+                    <td class="num">883</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    strata_var = strata_var,</pre>
+                      <pre class="language-r">            env = list(plot_call = plot_call, rhs_formula = rhs_formula, ci = ci)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">159</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">884</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    group_var = group_var</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">160</td>
+                    <td class="num">885</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">161</td>
+                    <td class="num">886</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">162</td>
+                    <td class="num">887</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  module(</pre>
+                      <pre class="language-r">        shinyjs::hide("smoothing_degree")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">163</td>
+                    <td class="num">888</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    label = label,</pre>
+                      <pre class="language-r">        shinyjs::hide("ci")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">164</td>
+                    <td class="num">889</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    server = srv_distribution,</pre>
+                      <pre class="language-r">        shinyjs::hide("color_sub")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">165</td>
+                    <td class="num">890</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    server_args = c(</pre>
+                      <pre class="language-r">        shinyjs::hide("show_form")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">166</td>
+                    <td class="num">891</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      data_extract_list,</pre>
+                      <pre class="language-r">        shinyjs::hide("show_r2")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">167</td>
+                    <td class="num">892</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      list(plot_height = plot_height, plot_width = plot_width, ggplot2_args = ggplot2_args)</pre>
+                      <pre class="language-r">        if (input$show_count) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">168</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">893</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ),</pre>
+                      <pre class="language-r">          plot_call &lt;- plot_label_generator(show_form = FALSE, show_r2 = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">169</td>
+                    <td class="num">894</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ui = ui_distribution,</pre>
+                      <pre class="language-r">          shinyjs::show("label_pos")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">170</td>
+                    <td class="num">895</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ui_args = args,</pre>
+                      <pre class="language-r">          shinyjs::show("label_size")</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">896</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        } else {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">171</td>
+                    <td class="num">897</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    datanames = teal.transform::get_extract_datanames(data_extract_list)</pre>
+                      <pre class="language-r">          shinyjs::hide("label_pos")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">172</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">898</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">          shinyjs::hide("label_size")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">173</td>
+                    <td class="num">899</td>
                     <td class="coverage"></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>
+                  <tr class="missed">
+                    <td class="num">900</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        shinyjs::show("line_msg")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">175</td>
+                    <td class="num">901</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">ui_distribution &lt;- function(id, ...) {</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">176</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">902</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  args &lt;- list(...)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">177</td>
+                    <td class="num">903</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ns &lt;- NS(id)</pre>
+                      <pre class="language-r">      if (!is.null(facet_cl)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">178</td>
+                    <td class="num">904</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  is_single_dataset_value &lt;- teal.transform::is_single_dataset(args$dist_var, args$strata_var, args$group_var)</pre>
+                      <pre class="language-r">        plot_call &lt;- substitute(expr = plot_call + facet_cl, env = list(plot_call = plot_call, facet_cl = facet_cl))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">179</td>
+                    <td class="num">905</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">180</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">906</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  teal.widgets::standard_layout(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">181</td>
+                    <td class="num">907</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    output = teal.widgets::white_small_well(</pre>
+                      <pre class="language-r">      y_label &lt;- varname_w_label(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">182</td>
+                    <td class="num">908</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      tabsetPanel(</pre>
+                      <pre class="language-r">        y_var,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">183</td>
+                    <td class="num">909</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        id = ns("tabs"),</pre>
+                      <pre class="language-r">        ANL,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">184</td>
+                    <td class="num">910</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        tabPanel("Histogram", teal.widgets::plot_with_settings_ui(id = ns("hist_plot"))),</pre>
+                      <pre class="language-r">        prefix = if (log_y) paste(log_y_fn, "(") else NULL,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">185</td>
+                    <td class="num">911</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        tabPanel("QQplot", teal.widgets::plot_with_settings_ui(id = ns("qq_plot")))</pre>
+                      <pre class="language-r">        suffix = if (log_y) ")" else NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">186</td>
+                    <td class="num">912</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">187</td>
+                    <td class="num">913</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      h3("Statistics Table"),</pre>
+                      <pre class="language-r">      x_label &lt;- varname_w_label(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">188</td>
+                    <td class="num">914</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      DT::dataTableOutput(ns("summary_table")),</pre>
+                      <pre class="language-r">        x_var,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">189</td>
+                    <td class="num">915</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      h3("Tests"),</pre>
+                      <pre class="language-r">        ANL,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">190</td>
+                    <td class="num">916</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      DT::dataTableOutput(ns("t_stats"))</pre>
+                      <pre class="language-r">        prefix = if (log_x) paste(log_x_fn, "(") else NULL,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">917</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        suffix = if (log_x) ")" else NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">191</td>
+                    <td class="num">918</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ),</pre>
+                      <pre class="language-r">      )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">919</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">192</td>
+                    <td class="num">920</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    encoding = div(</pre>
+                      <pre class="language-r">      dev_ggplot2_args &lt;- teal.widgets::ggplot2_args(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">193</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">921</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ### Reporter</pre>
+                      <pre class="language-r">        labs = list(y = y_label, x = x_label),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">194</td>
+                    <td class="num">922</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.reporter::simple_reporter_ui(ns("simple_reporter")),</pre>
+                      <pre class="language-r">        theme = list(legend.position = "bottom")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">195</td>
+                    <td class="num">923</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">196</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">924</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      tags$label("Encodings", class = "text-primary"),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">197</td>
+                    <td class="num">925</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.transform::datanames_input(args[c("dist_var", "strata_var")]),</pre>
+                      <pre class="language-r">      if (rotate_xaxis_labels) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">198</td>
+                    <td class="num">926</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.transform::data_extract_ui(</pre>
+                      <pre class="language-r">        dev_ggplot2_args$theme[["axis.text.x"]] &lt;- quote(element_text(angle = 45, hjust = 1))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">199</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">927</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        id = ns("dist_i"),</pre>
+                      <pre class="language-r">      }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">928</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">200</td>
+                    <td class="num">929</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        label = "Variable",</pre>
+                      <pre class="language-r">      all_ggplot2_args &lt;- teal.widgets::resolve_ggplot2_args(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">201</td>
+                    <td class="num">930</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        data_extract_spec = args$dist_var,</pre>
+                      <pre class="language-r">        user_plot = ggplot2_args,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">202</td>
+                    <td class="num">931</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        is_single_dataset = is_single_dataset_value</pre>
+                      <pre class="language-r">        module_plot = dev_ggplot2_args</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">203</td>
+                    <td class="num">932</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">204</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">933</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (!is.null(args$group_var)) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">205</td>
+                    <td class="num">934</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        tagList(</pre>
+                      <pre class="language-r">      parsed_ggplot2_args &lt;- teal.widgets::parse_ggplot2_args(all_ggplot2_args, ggtheme = ggtheme)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">206</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">935</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          teal.transform::data_extract_ui(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">207</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">936</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            id = ns("group_i"),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">208</td>
+                    <td class="num">937</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            label = "Group by",</pre>
+                      <pre class="language-r">      if (add_density) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">209</td>
+                    <td class="num">938</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            data_extract_spec = args$group_var,</pre>
+                      <pre class="language-r">        plot_call &lt;- substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">210</td>
+                    <td class="num">939</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            is_single_dataset = is_single_dataset_value</pre>
+                      <pre class="language-r">          expr = ggExtra::ggMarginal(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">211</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">940</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ),</pre>
+                      <pre class="language-r">            plot_call + labs + ggthemes + themes,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">212</td>
+                    <td class="num">941</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          uiOutput(ns("scales_types_ui"))</pre>
+                      <pre class="language-r">            type = "density",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">213</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">942</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">            groupColour = group_colour</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">214</td>
+                    <td class="num">943</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">215</td>
+                    <td class="num">944</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (!is.null(args$strata_var)) {</pre>
+                      <pre class="language-r">          env = list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">216</td>
+                    <td class="num">945</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        teal.transform::data_extract_ui(</pre>
+                      <pre class="language-r">            plot_call = plot_call,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">217</td>
+                    <td class="num">946</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          id = ns("strata_i"),</pre>
+                      <pre class="language-r">            group_colour = if (length(color_by_var) &gt; 0) TRUE else FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">218</td>
+                    <td class="num">947</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          label = "Stratify by",</pre>
+                      <pre class="language-r">            labs = parsed_ggplot2_args$labs,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">219</td>
+                    <td class="num">948</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          data_extract_spec = args$strata_var,</pre>
+                      <pre class="language-r">            ggthemes = parsed_ggplot2_args$ggtheme,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">220</td>
+                    <td class="num">949</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          is_single_dataset = is_single_dataset_value</pre>
+                      <pre class="language-r">            themes = parsed_ggplot2_args$theme</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">221</td>
+                    <td class="num">950</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">951</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">222</td>
+                    <td class="num">952</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">223</td>
+                    <td class="num">953</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.widgets::panel_group(</pre>
+                      <pre class="language-r">        plot_call &lt;- substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">224</td>
+                    <td class="num">954</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        conditionalPanel(</pre>
+                      <pre class="language-r">          expr = plot_call +</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">225</td>
+                    <td class="num">955</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          condition = paste0("input['", ns("tabs"), "'] == 'Histogram'"),</pre>
+                      <pre class="language-r">            labs +</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">226</td>
+                    <td class="num">956</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          teal.widgets::panel_item(</pre>
+                      <pre class="language-r">            ggthemes +</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">227</td>
+                    <td class="num">957</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            "Histogram",</pre>
+                      <pre class="language-r">            themes,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">228</td>
+                    <td class="num">958</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            teal.widgets::optionalSliderInputValMinMax(ns("bins"), "Bins", args$bins, ticks = FALSE, step = 1),</pre>
+                      <pre class="language-r">          env = list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">229</td>
+                    <td class="num">959</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            shinyWidgets::prettyRadioButtons(</pre>
+                      <pre class="language-r">            plot_call = plot_call,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">230</td>
+                    <td class="num">960</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              ns("main_type"),</pre>
+                      <pre class="language-r">            labs = parsed_ggplot2_args$labs,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">231</td>
+                    <td class="num">961</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              label = "Plot Type:",</pre>
+                      <pre class="language-r">            ggthemes = parsed_ggplot2_args$ggtheme,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">232</td>
+                    <td class="num">962</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              choices = c("Density", "Frequency"),</pre>
+                      <pre class="language-r">            themes = parsed_ggplot2_args$theme</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">963</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">964</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">965</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">966</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">233</td>
+                    <td class="num">967</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              selected = if (!args$freq) "Density" else "Frequency",</pre>
+                      <pre class="language-r">      plot_call &lt;- substitute(expr = p &lt;- plot_call, env = list(plot_call = plot_call))</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">968</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">234</td>
+                    <td class="num">969</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              bigger = FALSE,</pre>
+                      <pre class="language-r">      teal.code::eval_code(plot_q, plot_call) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">235</td>
+                    <td class="num">970</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              inline = TRUE</pre>
+                      <pre class="language-r">        teal.code::eval_code(quote(print(p)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">236</td>
+                    <td class="num">971</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">237</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">972</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            checkboxInput(ns("add_dens"), label = "Overlay Density", value = TRUE),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">238</td>
+                    <td class="num">973</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            collapsed = FALSE</pre>
+                      <pre class="language-r">    plot_r &lt;- reactive(output_q()[["p"]])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">239</td>
+                    <td class="num">974</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">240</td>
+                    <td class="num">975</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ),</pre>
+                      <pre class="language-r">    # Insert the plot into a plot_with_settings module from teal.widgets</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">241</td>
+                    <td class="num">976</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        conditionalPanel(</pre>
+                      <pre class="language-r">    pws &lt;- teal.widgets::plot_with_settings_srv(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">242</td>
+                    <td class="num">977</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          condition = paste0("input['", ns("tabs"), "'] == 'QQplot'"),</pre>
+                      <pre class="language-r">      id = "scatter_plot",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">243</td>
+                    <td class="num">978</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          teal.widgets::panel_item(</pre>
+                      <pre class="language-r">      plot_r = plot_r,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">244</td>
+                    <td class="num">979</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            "QQ Plot",</pre>
+                      <pre class="language-r">      height = plot_height,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">245</td>
+                    <td class="num">980</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            checkboxInput(ns("qq_line"), label = "Add diagonal line(s)", TRUE),</pre>
+                      <pre class="language-r">      width = plot_width,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">246</td>
+                    <td class="num">981</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            collapsed = FALSE</pre>
+                      <pre class="language-r">      brushing = TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">247</td>
+                    <td class="num">982</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">248</td>
+                    <td class="num">983</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ),</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">249</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        conditionalPanel(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">250</td>
+                    <td class="num">984</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          condition = paste0("input['", ns("main_type"), "'] == 'Density'"),</pre>
+                      <pre class="language-r">    output$data_table &lt;- DT::renderDataTable({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">251</td>
+                    <td class="num">985</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          teal.widgets::panel_item(</pre>
+                      <pre class="language-r">      plot_brush &lt;- pws$brush()</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">252</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">986</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            "Theoretical Distribution",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">253</td>
+                    <td class="num">987</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            teal.widgets::optionalSelectInput(</pre>
+                      <pre class="language-r">      if (!is.null(plot_brush)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">254</td>
+                    <td class="num">988</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              ns("t_dist"),</pre>
+                      <pre class="language-r">        validate(need(!input$add_density, "Brushing feature is currently not supported when plot has marginal density"))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">255</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">989</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">256</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">990</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                class = "teal-tooltip",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">257</td>
+                    <td class="num">991</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                tagList(</pre>
+                      <pre class="language-r">      merged_data &lt;- isolate(teal.code::dev_suppress(output_q()[["ANL"]]))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">258</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">992</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  "Distribution:",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">259</td>
+                    <td class="num">993</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  icon("circle-info"),</pre>
+                      <pre class="language-r">      brushed_df &lt;- teal.widgets::clean_brushedPoints(merged_data, plot_brush)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">260</td>
+                    <td class="num">994</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  span(</pre>
+                      <pre class="language-r">      numeric_cols &lt;- names(brushed_df)[</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">261</td>
+                    <td class="num">995</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    class = "tooltiptext",</pre>
+                      <pre class="language-r">        vapply(brushed_df, function(x) is.numeric(x) &amp;&amp; !is.integer(x), FUN.VALUE = logical(1))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">262</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">996</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    "Default parameters are optimized with MASS::fitdistr function."</pre>
+                      <pre class="language-r">      ]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">263</td>
+                    <td class="num">997</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">264</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">998</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                )</pre>
+                      <pre class="language-r">      if (length(numeric_cols) &gt; 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">265</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">999</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              ),</pre>
+                      <pre class="language-r">        DT::formatRound(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">266</td>
+                    <td class="num">1000</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              choices = c("normal", "lognormal", "gamma", "unif"),</pre>
+                      <pre class="language-r">          DT::datatable(brushed_df,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">267</td>
+                    <td class="num">1001</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              selected = NULL,</pre>
+                      <pre class="language-r">            rownames = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">268</td>
+                    <td class="num">1002</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              multiple = FALSE</pre>
+                      <pre class="language-r">            options = list(scrollX = TRUE, pageLength = input$data_table_rows)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">269</td>
+                    <td class="num">1003</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">270</td>
+                    <td class="num">1004</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            numericInput(ns("dist_param1"), label = "param1", value = NULL),</pre>
+                      <pre class="language-r">          numeric_cols,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">271</td>
+                    <td class="num">1005</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            numericInput(ns("dist_param2"), label = "param2", value = NULL),</pre>
+                      <pre class="language-r">          table_dec</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">272</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1006</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            span(actionButton(ns("params_reset"), "Reset params")),</pre>
+                      <pre class="language-r">        )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">1007</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">273</td>
+                    <td class="num">1008</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            collapsed = FALSE</pre>
+                      <pre class="language-r">        DT::datatable(brushed_df, rownames = FALSE, options = list(scrollX = TRUE, pageLength = input$data_table_rows))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">274</td>
+                    <td class="num">1009</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">275</td>
+                    <td class="num">1010</td>
                     <td class="coverage"></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">1011</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">277</td>
+                    <td class="num">1012</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.widgets::panel_item(</pre>
+                      <pre class="language-r">    teal.widgets::verbatim_popup_srv(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">278</td>
+                    <td class="num">1013</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "Tests",</pre>
+                      <pre class="language-r">      id = "warning",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">279</td>
+                    <td class="num">1014</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        teal.widgets::optionalSelectInput(</pre>
+                      <pre class="language-r">      verbatim_content = reactive(teal.code::get_warnings(output_q())),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">280</td>
+                    <td class="num">1015</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ns("dist_tests"),</pre>
+                      <pre class="language-r">      title = "Warning",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">281</td>
+                    <td class="num">1016</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "Tests:",</pre>
+                      <pre class="language-r">      disabled = reactive(is.null(teal.code::get_warnings(output_q())))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">282</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1017</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          choices = c(</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">283</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1018</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            "Shapiro-Wilk",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">284</td>
+                    <td class="num">1019</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            if (!is.null(args$strata_var)) "t-test (two-samples, not paired)",</pre>
+                      <pre class="language-r">    teal.widgets::verbatim_popup_srv(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">285</td>
+                    <td class="num">1020</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            if (!is.null(args$strata_var)) "one-way ANOVA",</pre>
+                      <pre class="language-r">      id = "rcode",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">286</td>
+                    <td class="num">1021</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            if (!is.null(args$strata_var)) "Fligner-Killeen",</pre>
+                      <pre class="language-r">      verbatim_content = reactive(teal.code::get_code(output_q())),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">287</td>
+                    <td class="num">1022</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            if (!is.null(args$strata_var)) "F-test",</pre>
+                      <pre class="language-r">      title = "R Code for scatterplot"</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">288</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1023</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            "Kolmogorov-Smirnov (one-sample)",</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">289</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1024</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            "Anderson-Darling (one-sample)",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">290</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1025</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            "Cramer-von Mises (one-sample)",</pre>
+                      <pre class="language-r">    ### REPORTER</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">291</td>
+                    <td class="num">1026</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            if (!is.null(args$strata_var)) "Kolmogorov-Smirnov (two-samples)"</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">292</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          ),</pre>
+                      <pre class="language-r">    if (with_reporter) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">293</td>
+                    <td class="num">1027</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          selected = NULL</pre>
+                      <pre class="language-r">      card_fun &lt;- function(comment, label) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">294</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1028</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">        card &lt;- teal::report_card_template(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">295</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1029</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ),</pre>
+                      <pre class="language-r">          title = "Scatter Plot",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">296</td>
+                    <td class="num">1030</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.widgets::panel_item(</pre>
+                      <pre class="language-r">          label = label,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">297</td>
+                    <td class="num">1031</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "Statistics Table",</pre>
+                      <pre class="language-r">          with_filter = with_filter,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">298</td>
+                    <td class="num">1032</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        sliderInput(ns("roundn"), "Round to n digits", min = 0, max = 10, value = 2)</pre>
+                      <pre class="language-r">          filter_panel_api = filter_panel_api</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">299</td>
+                    <td class="num">1033</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="num">1034</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.widgets::panel_item(</pre>
+                      <pre class="language-r">        card$append_text("Plot", "header3")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">301</td>
+                    <td class="num">1035</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        title = "Plot settings",</pre>
+                      <pre class="language-r">        card$append_plot(plot_r(), dim = pws$dim())</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">302</td>
+                    <td class="num">1036</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        selectInput(</pre>
+                      <pre class="language-r">        if (!comment == "") {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">303</td>
+                    <td class="num">1037</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          inputId = ns("ggtheme"),</pre>
+                      <pre class="language-r">          card$append_text("Comment", "header3")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">304</td>
+                    <td class="num">1038</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          label = "Theme (by ggplot):",</pre>
+                      <pre class="language-r">          card$append_text(comment)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">305</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1039</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          choices = ggplot_themes,</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">306</td>
+                    <td class="num">1040</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          selected = args$ggtheme,</pre>
+                      <pre class="language-r">        card$append_src(teal.code::get_code(output_q()))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">307</td>
+                    <td class="num">1041</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          multiple = FALSE</pre>
+                      <pre class="language-r">        card</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">308</td>
+                    <td class="num">1042</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">1043</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">309</td>
+                    <td class="num">1044</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">310</td>
+                    <td class="num">1045</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">311</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1046</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    forms = tagList(</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">312</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1047</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.widgets::verbatim_popup_ui(ns("warning"), "Show Warnings"),</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">313</td>
-                    <td class="coverage">!</td>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/tm_variable_browser.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">      teal.widgets::verbatim_popup_ui(ns("rcode"), "Show R code")</pre>
+                      <pre class="language-r">#' Variable Browser Teal Module</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">314</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="missed">
-                    <td class="num">315</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">    pre_output = args$pre_output,</pre>
+                      <pre class="language-r">#' The variable browser provides a table with variable names and labels and a</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">316</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">    post_output = args$post_output</pre>
+                      <pre class="language-r">#' plot that visualizes the content of a particular variable.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">317</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' specifically designed for use with `data.frames`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">318</td>
+                    <td class="num">6</td>
                     <td class="coverage"></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">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @details Numeric columns with fewer than 30 distinct values can be treated as either factors</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">320</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">srv_distribution &lt;- function(id,</pre>
+                      <pre class="language-r">#' or numbers with a checkbox allowing users to switch how they are treated (if &lt; 6 unique values</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">321</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             data,</pre>
+                      <pre class="language-r">#' then the default is categorical, otherwise it is numeric).</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">322</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             reporter,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">323</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             filter_panel_api,</pre>
+                      <pre class="language-r">#' @inheritParams teal::module</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">324</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             dist_var,</pre>
+                      <pre class="language-r">#' @inheritParams shared_params</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">325</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             strata_var,</pre>
+                      <pre class="language-r">#' @param parent_dataname (`character(1)`) If this `dataname` exists in `datasets_selected`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">326</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             group_var,</pre>
+                      <pre class="language-r">#'   then an extra checkbox will be shown to allow users to not show variables in other datasets</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">327</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             plot_height,</pre>
+                      <pre class="language-r">#'   which exist in this `dataname`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">328</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             plot_width,</pre>
+                      <pre class="language-r">#'   This is typically used to remove `ADSL` columns in `CDISC` data. In non `CDISC` data this</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">329</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             ggplot2_args) {</pre>
+                      <pre class="language-r">#'   can be ignored. Defaults to `"ADSL"`.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">330</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">  with_reporter &lt;- !missing(reporter) &amp;&amp; inherits(reporter, "Reporter")</pre>
+                      <pre class="language-r">#' @param datasets_selected (`character`) A vector of datasets which should be</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">331</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">  with_filter &lt;- !missing(filter_panel_api) &amp;&amp; inherits(filter_panel_api, "FilterPanelAPI")</pre>
+                      <pre class="language-r">#'   shown and in what order. Names in the vector have to correspond with datasets names.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">332</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">  checkmate::assert_class(data, "reactive")</pre>
+                      <pre class="language-r">#'   If vector of length zero (default) then all datasets are shown.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">333</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">  checkmate::assert_class(isolate(data()), "teal_data")</pre>
+                      <pre class="language-r">#'   Note: Only datasets of the `data.frame` class are compatible; using other types will cause an error.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">334</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">  moduleServer(id, function(input, output, session) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">335</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">    rule_req &lt;- function(value) {</pre>
+                      <pre class="language-r">#' @aliases</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">336</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">      if (isTRUE(input$dist_tests %in% c(</pre>
+                      <pre class="language-r">#'   tm_variable_browser_ui,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">337</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">        "Fligner-Killeen",</pre>
+                      <pre class="language-r">#'   tm_variable_browser_srv,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">338</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">        "t-test (two-samples, not paired)",</pre>
+                      <pre class="language-r">#'   tm_variable_browser,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">339</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">        "F-test",</pre>
+                      <pre class="language-r">#'   variable_browser_ui,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">340</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">        "Kolmogorov-Smirnov (two-samples)",</pre>
+                      <pre class="language-r">#'   variable_browser_srv,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">341</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">        "one-way ANOVA"</pre>
+                      <pre class="language-r">#'   variable_browser</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">342</td>
+                    <td class="num">30</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">343</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">        if (!shinyvalidate::input_provided(value)) {</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">344</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">          "Please select stratify variable."</pre>
+                      <pre class="language-r">#' library(teal.widgets)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">345</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">346</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#' # module specification used in apps below</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">347</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#' tm_variable_browser_module &lt;- tm_variable_browser(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">348</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">    rule_dupl &lt;- function(...) {</pre>
+                      <pre class="language-r">#'   label = "Variable browser",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">349</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">      if (identical(input$dist_tests, "Fligner-Killeen")) {</pre>
+                      <pre class="language-r">#'   ggplot2_args = ggplot2_args(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">350</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">        strata &lt;- selector_list()$strata_i()$select</pre>
+                      <pre class="language-r">#'     labs = list(subtitle = "Plot generated by Variable Browser Module")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">351</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">        group &lt;- selector_list()$group_i()$select</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">352</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">        if (isTRUE(strata == group)) {</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">353</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">          "Please select different variables for strata and group."</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">354</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">#' # general data example</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">355</td>
+                    <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#' data &lt;- teal_data()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">356</td>
+                    <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#' data &lt;- within(data, {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">357</td>
+                    <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   iris &lt;- iris</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">358</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">    selector_list &lt;- teal.transform::data_extract_multiple_srv(</pre>
+                      <pre class="language-r">#'   mtcars &lt;- mtcars</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">359</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">      data_extract = list(</pre>
+                      <pre class="language-r">#'   women &lt;- women</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">360</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">        dist_i = dist_var,</pre>
+                      <pre class="language-r">#'   faithful &lt;- faithful</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">361</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">        strata_i = strata_var,</pre>
+                      <pre class="language-r">#'   CO2 &lt;- CO2</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">362</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">50</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        group_i = group_var</pre>
+                      <pre class="language-r">#' })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">363</td>
+                    <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ),</pre>
+                      <pre class="language-r">#' datanames(data) &lt;- c("iris", "mtcars", "women", "faithful", "CO2")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">364</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">      data,</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">365</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      select_validation_rule = list(</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">366</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        dist_i = shinyvalidate::sv_required("Please select a variable")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">367</td>
+                    <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">368</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      filter_validation_rule = list(</pre>
+                      <pre class="language-r">#' app &lt;- init(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">369</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">        strata_i = shinyvalidate::compose_rules(</pre>
+                      <pre class="language-r">#'   data = data,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">370</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">          rule_req,</pre>
+                      <pre class="language-r">#'   modules = modules(tm_variable_browser_module)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">371</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">          rule_dupl</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">372</td>
+                    <td class="num">57</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="missed">
-                    <td class="num">373</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">        group_i = rule_dupl</pre>
+                      <pre class="language-r">#'   shinyApp(app$ui, app$server)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">374</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">375</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">376</td>
+                    <td class="num">61</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' # CDISC example data</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">377</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">    iv_r &lt;- reactive({</pre>
+                      <pre class="language-r">#' data &lt;- teal_data()</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">378</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">      iv &lt;- shinyvalidate::InputValidator$new()</pre>
+                      <pre class="language-r">#' data &lt;- within(data, {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">379</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">      teal.transform::compose_and_enable_validators(iv, selector_list, validator_names = "dist_i")</pre>
+                      <pre class="language-r">#'   ADSL &lt;- rADSL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">380</td>
+                    <td class="num">65</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">#'   ADTTE &lt;- rADTTE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">381</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="missed">
-                    <td class="num">382</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">    iv_r_dist &lt;- reactive({</pre>
+                      <pre class="language-r">#' datanames(data) &lt;- c("ADSL", "ADTTE")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">383</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">      iv &lt;- shinyvalidate::InputValidator$new()</pre>
+                      <pre class="language-r">#' join_keys(data) &lt;- default_cdisc_join_keys[datanames(data)]</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">384</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">      teal.transform::compose_and_enable_validators(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">385</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">        iv, selector_list,</pre>
+                      <pre class="language-r">#' app &lt;- init(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">386</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">        validator_names = c("strata_i", "group_i")</pre>
+                      <pre class="language-r">#'   data = data,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">387</td>
+                    <td class="num">72</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#'   modules = modules(tm_variable_browser_module)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">388</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">389</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">    rule_dist_1 &lt;- function(value) {</pre>
+                      <pre class="language-r">#' if (interactive()) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">390</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">75</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (!is.null(input$t_dist)) {</pre>
+                      <pre class="language-r">#'   shinyApp(app$ui, app$server)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">391</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">        switch(input$t_dist,</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">392</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">          "normal" = if (!shinyvalidate::input_provided(value)) "mean is required",</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">78</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "lognormal" = if (!shinyvalidate::input_provided(value)) "meanlog is required",</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">394</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">          "gamma" = {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">395</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">            if (!shinyvalidate::input_provided(value)) "shape is required" else if (value &lt;= 0) "shape must be positive"</pre>
+                      <pre class="language-r">tm_variable_browser &lt;- function(label = "Variable Browser",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">396</td>
+                    <td class="num">81</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          },</pre>
+                      <pre class="language-r">                                datasets_selected = character(0),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">397</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">          "unif" = NULL</pre>
+                      <pre class="language-r">                                parent_dataname = "ADSL",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">398</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_output = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">399</td>
+                    <td class="num">84</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">                                post_output = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">400</td>
+                    <td class="num">85</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">                                ggplot2_args = teal.widgets::ggplot2_args()) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">401</td>
+                    <td class="num">86</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    rule_dist_2 &lt;- function(value) {</pre>
+                      <pre class="language-r">  logger::log_info("Initializing tm_variable_browser")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">402</td>
+                    <td class="num">87</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (!is.null(input$t_dist)) {</pre>
+                      <pre class="language-r">  if (!requireNamespace("sparkline", quietly = TRUE)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">403</td>
+                    <td class="num">88</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        switch(input$t_dist,</pre>
+                      <pre class="language-r">    stop("Cannot load sparkline - please install the package or restart your session.")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">404</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">          "normal" = {</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">405</td>
+                    <td class="num">90</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            if (!shinyvalidate::input_provided(value)) {</pre>
+                      <pre class="language-r">  if (!requireNamespace("htmlwidgets", quietly = TRUE)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">406</td>
+                    <td class="num">91</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              "sd is required"</pre>
+                      <pre class="language-r">    stop("Cannot load htmlwidgets - please install the package or restart your session.")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">407</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">92</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            } else if (value &lt; 0) {</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">408</td>
+                    <td class="num">93</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              "sd must be non-negative"</pre>
+                      <pre class="language-r">  if (!requireNamespace("jsonlite", quietly = TRUE)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">409</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">            }</pre>
+                      <pre class="language-r">    stop("Cannot load jsonlite - please install the package or restart your session.")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">410</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="missed">
-                    <td class="num">411</td>
+                    <td class="num">96</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "lognormal" = {</pre>
+                      <pre class="language-r">  checkmate::assert_string(label)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">412</td>
+                    <td class="num">97</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            if (!shinyvalidate::input_provided(value)) {</pre>
+                      <pre class="language-r">  checkmate::assert_character(datasets_selected)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">413</td>
+                    <td class="num">98</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              "sdlog is required"</pre>
+                      <pre class="language-r">  checkmate::assert_character(parent_dataname, min.len = 0, max.len = 1)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">414</td>
+                    <td class="num">99</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            } else if (value &lt; 0) {</pre>
+                      <pre class="language-r">  checkmate::assert_class(ggplot2_args, "ggplot2_args")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">415</td>
+                    <td class="num">100</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              "sdlog must be non-negative"</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">416</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            }</pre>
+                      <pre class="language-r">  datasets_selected &lt;- unique(datasets_selected)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">417</td>
+                    <td class="num">101</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">418</td>
+                    <td class="num">102</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "gamma" = {</pre>
+                      <pre class="language-r">  module(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">419</td>
+                    <td class="num">103</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            if (!shinyvalidate::input_provided(value)) {</pre>
+                      <pre class="language-r">    label,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">420</td>
+                    <td class="num">104</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              "rate is required"</pre>
+                      <pre class="language-r">    server = srv_variable_browser,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">421</td>
+                    <td class="num">105</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            } else if (value &lt;= 0) {</pre>
+                      <pre class="language-r">    ui = ui_variable_browser,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">422</td>
+                    <td class="num">106</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              "rate must be positive"</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">423</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">424</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">    server_args = list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">425</td>
+                    <td class="num">108</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "unif" = NULL</pre>
+                      <pre class="language-r">      datasets_selected = datasets_selected,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">426</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">        )</pre>
+                      <pre class="language-r">      parent_dataname = parent_dataname,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">427</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">      }</pre>
+                      <pre class="language-r">      ggplot2_args = ggplot2_args</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">428</td>
+                    <td class="num">111</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">429</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    rule_dist &lt;- function(value) {</pre>
+                      <pre class="language-r">    ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">430</td>
+                    <td class="num">112</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (isTRUE(input$tabs == "QQplot" ||</pre>
+                      <pre class="language-r">    ui_args = list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">431</td>
+                    <td class="num">113</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        input$dist_tests %in% c(</pre>
+                      <pre class="language-r">      pre_output = pre_output,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">432</td>
+                    <td class="num">114</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "Kolmogorov-Smirnov (one-sample)",</pre>
+                      <pre class="language-r">      post_output = post_output</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">433</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">          "Anderson-Darling (one-sample)",</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">434</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">116</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "Cramer-von Mises (one-sample)"</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">435</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="missed">
-                    <td class="num">436</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">118</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (!shinyvalidate::input_provided(value)) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">437</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">119</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "Please select the theoretical distribution."</pre>
+                      <pre class="language-r"># ui function</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">438</td>
+                    <td class="num">120</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">ui_variable_browser &lt;- function(id,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">439</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_output = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">440</td>
+                    <td class="num">122</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">                                post_output = NULL) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">441</td>
+                    <td class="num">123</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    iv_dist &lt;- shinyvalidate::InputValidator$new()</pre>
+                      <pre class="language-r">  ns &lt;- NS(id)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">442</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">    iv_dist$add_rule("t_dist", rule_dist)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">443</td>
+                    <td class="num">125</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    iv_dist$add_rule("dist_param1", rule_dist_1)</pre>
+                      <pre class="language-r">  shiny::tagList(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">444</td>
+                    <td class="num">126</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    iv_dist$add_rule("dist_param2", rule_dist_2)</pre>
+                      <pre class="language-r">    include_css_files("custom"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">445</td>
+                    <td class="num">127</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    iv_dist$enable()</pre>
+                      <pre class="language-r">    shinyjs::useShinyjs(),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">446</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">128</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    teal.widgets::standard_layout(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">447</td>
+                    <td class="num">129</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    anl_merged_input &lt;- teal.transform::merge_expression_srv(</pre>
+                      <pre class="language-r">      output = fluidRow(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">448</td>
+                    <td class="num">130</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      selector_list = selector_list,</pre>
+                      <pre class="language-r">        htmlwidgets::getDependency("sparkline"), # needed for sparklines to work</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">449</td>
+                    <td class="num">131</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      datasets = data</pre>
+                      <pre class="language-r">        column(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">450</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">          6,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">451</td>
+                    <td class="num">133</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          # variable browser</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">452</td>
+                    <td class="num">134</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    anl_merged_q &lt;- reactive({</pre>
+                      <pre class="language-r">          teal.widgets::white_small_well(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">453</td>
+                    <td class="num">135</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      req(anl_merged_input())</pre>
+                      <pre class="language-r">            uiOutput(ns("ui_variable_browser")),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">454</td>
+                    <td class="num">136</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      data() %&gt;%</pre>
+                      <pre class="language-r">            shinyjs::hidden({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">455</td>
+                    <td class="num">137</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        teal.code::eval_code(as.expression(anl_merged_input()$expr))</pre>
+                      <pre class="language-r">              checkboxInput(ns("show_parent_vars"), "Show parent dataset variables", value = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">456</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">457</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="missed">
-                    <td class="num">458</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">140</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    merged &lt;- list(</pre>
+                      <pre class="language-r">        ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">459</td>
+                    <td class="num">141</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      anl_input_r = anl_merged_input,</pre>
+                      <pre class="language-r">        column(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">460</td>
+                    <td class="num">142</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      anl_q_r = anl_merged_q</pre>
+                      <pre class="language-r">          6,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">461</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">143</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">          teal.widgets::white_small_well(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">462</td>
+                    <td class="num">144</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">            ### Reporter</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">463</td>
+                    <td class="num">145</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    output$scales_types_ui &lt;- renderUI({</pre>
+                      <pre class="language-r">            teal.reporter::simple_reporter_ui(ns("simple_reporter")),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">464</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">146</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if ("group_i" %in% names(selector_list()) &amp;&amp; length(selector_list()$group_i()$filters[[1]]$selected) &gt; 0) {</pre>
+                      <pre class="language-r">            ###</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">465</td>
+                    <td class="num">147</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        shinyWidgets::prettyRadioButtons(</pre>
+                      <pre class="language-r">            div(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">466</td>
+                    <td class="num">148</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          session$ns("scales_type"),</pre>
+                      <pre class="language-r">              class = "block",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">467</td>
+                    <td class="num">149</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          label = "Scales:",</pre>
+                      <pre class="language-r">              uiOutput(ns("ui_histogram_display"))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">468</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">150</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          choices = c("Fixed", "Free"),</pre>
+                      <pre class="language-r">            ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">469</td>
+                    <td class="num">151</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          selected = "Fixed",</pre>
+                      <pre class="language-r">            div(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">470</td>
+                    <td class="num">152</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          bigger = FALSE,</pre>
+                      <pre class="language-r">              class = "block",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">471</td>
+                    <td class="num">153</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          inline = TRUE</pre>
+                      <pre class="language-r">              uiOutput(ns("ui_numeric_display"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">472</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>
-                  <tr class="never">
-                    <td class="num">473</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">            teal.widgets::plot_with_settings_ui(ns("variable_plot")),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">474</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">            br(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">475</td>
+                    <td class="num">157</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">476</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    observeEvent(</pre>
+                      <pre class="language-r">            # input user-defined text size</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">477</td>
+                    <td class="num">158</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      eventExpr = list(</pre>
+                      <pre class="language-r">            teal.widgets::panel_item(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">478</td>
+                    <td class="num">159</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        input$t_dist,</pre>
+                      <pre class="language-r">              title = "Plot settings",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">479</td>
+                    <td class="num">160</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        input$params_reset,</pre>
+                      <pre class="language-r">              collapsed = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">480</td>
+                    <td class="num">161</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        selector_list()$dist_i()$select</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">481</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">
-                    <td class="num">482</td>
+                    <td class="num">162</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      handlerExpr = {</pre>
+                      <pre class="language-r">                inputId = ns("ggplot_theme"), label = "ggplot2 theme",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">483</td>
+                    <td class="num">163</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (length(input$t_dist) != 0) {</pre>
+                      <pre class="language-r">                choices = ggplot_themes,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">484</td>
+                    <td class="num">164</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          dist_var2 &lt;- as.vector(merged$anl_input_r()$columns_source$dist_i)</pre>
+                      <pre class="language-r">                selected = "grey"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">485</td>
+                    <td class="num">165</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">486</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          get_dist_params &lt;- function(x, dist) {</pre>
+                      <pre class="language-r">              ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">487</td>
+                    <td class="num">166</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            if (dist == "unif") {</pre>
+                      <pre class="language-r">              fluidRow(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">488</td>
+                    <td class="num">167</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              res &lt;- as.list(range(x))</pre>
+                      <pre class="language-r">                column(6, sliderInput(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">489</td>
+                    <td class="num">168</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              names(res) &lt;- c("min", "max")</pre>
+                      <pre class="language-r">                  inputId = ns("font_size"), label = "font size",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">490</td>
+                    <td class="num">169</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              return(res)</pre>
+                      <pre class="language-r">                  min = 5L, max = 30L, value = 15L, step = 1L, ticks = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">491</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="missed">
-                    <td class="num">492</td>
+                    <td class="num">171</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            tryCatch(</pre>
+                      <pre class="language-r">                column(6, sliderInput(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">493</td>
+                    <td class="num">172</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              as.list(MASS::fitdistr(x, densfun = dist)$estimate),</pre>
+                      <pre class="language-r">                  inputId = ns("label_rotation"), label = "rotate x labels",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">494</td>
+                    <td class="num">173</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              error = function(e) list(param1 = NA, param2 = NA)</pre>
+                      <pre class="language-r">                  min = 0L, max = 90L, value = 45L, step = 1, ticks = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">495</td>
+                    <td class="num">174</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">                ))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">496</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">497</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="missed">
-                    <td class="num">498</td>
+                    <td class="num">177</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ANL &lt;- merged$anl_q_r()[[as.character(dist_var[[1]]$dataname)]] # nolint: object_name.</pre>
+                      <pre class="language-r">            br(),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">499</td>
+                    <td class="num">178</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          params &lt;- get_dist_params(as.numeric(stats::na.omit(ANL[[dist_var2]])), input$t_dist)</pre>
+                      <pre class="language-r">            teal.widgets::get_dt_rows(ns("variable_summary_table"), ns("variable_summary_table_rows")),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">500</td>
+                    <td class="num">179</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          params_vec &lt;- round(unname(unlist(params)), 2)</pre>
+                      <pre class="language-r">            DT::dataTableOutput(ns("variable_summary_table"))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">501</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">          params_names &lt;- names(params)</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">502</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="never">
+                    <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">503</td>
+                    <td class="num">183</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          updateNumericInput(session, "dist_param1", label = params_names[1], value = params_vec[1])</pre>
+                      <pre class="language-r">      pre_output = pre_output,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">504</td>
+                    <td class="num">184</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          updateNumericInput(session, "dist_param2", label = params_names[2], value = params_vec[2])</pre>
+                      <pre class="language-r">      post_output = post_output</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">505</td>
+                    <td class="num">185</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">506</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">          updateNumericInput(session, "dist_param1", label = "param1", value = NA)</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">507</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">187</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          updateNumericInput(session, "dist_param2", label = "param2", value = NA)</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">508</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">509</td>
+                    <td class="num">189</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      },</pre>
+                      <pre class="language-r">srv_variable_browser &lt;- function(id,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">510</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">      ignoreInit = TRUE</pre>
+                      <pre class="language-r">                                 data,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">511</td>
+                    <td class="num">191</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">                                 reporter,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">512</td>
+                    <td class="num">192</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                                 filter_panel_api,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">513</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">    merge_vars &lt;- reactive({</pre>
+                      <pre class="language-r">                                 datasets_selected, parent_dataname, ggplot2_args) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">514</td>
+                    <td class="num">194</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal::validate_inputs(iv_r())</pre>
+                      <pre class="language-r">  with_reporter &lt;- !missing(reporter) &amp;&amp; inherits(reporter, "Reporter")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">515</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"></pre>
+                      <pre class="language-r">  with_filter &lt;- !missing(filter_panel_api) &amp;&amp; inherits(filter_panel_api, "FilterPanelAPI")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">516</td>
+                    <td class="num">196</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dist_var &lt;- as.vector(merged$anl_input_r()$columns_source$dist_i)</pre>
+                      <pre class="language-r">  checkmate::assert_class(data, "reactive")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">517</td>
+                    <td class="num">197</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      s_var &lt;- as.vector(merged$anl_input_r()$columns_source$strata_i)</pre>
+                      <pre class="language-r">  checkmate::assert_class(isolate(data()), "teal_data")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">518</td>
+                    <td class="num">198</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      g_var &lt;- as.vector(merged$anl_input_r()$columns_source$group_i)</pre>
+                      <pre class="language-r">  moduleServer(id, function(input, output, session) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">519</td>
+                    <td class="num">199</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    # if there are &lt; this number of unique records then a numeric</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">520</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">200</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dist_var_name &lt;- if (length(dist_var)) as.name(dist_var) else NULL</pre>
+                      <pre class="language-r">    # variable can be treated as a factor and all factors with &lt; this groups</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">521</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">201</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      s_var_name &lt;- if (length(s_var)) as.name(s_var) else NULL</pre>
+                      <pre class="language-r">    # have their values plotted</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">522</td>
+                    <td class="num">202</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      g_var_name &lt;- if (length(g_var)) as.name(g_var) else NULL</pre>
+                      <pre class="language-r">    .unique_records_for_factor &lt;- 30</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">523</td>
+                    <td class="num">203</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    # if there are &lt; this number of unique records then a numeric</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">524</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">      list(</pre>
+                      <pre class="language-r">    # variable is by default treated as a factor</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">525</td>
+                    <td class="num">205</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        dist_var = dist_var,</pre>
+                      <pre class="language-r">    .unique_records_default_as_factor &lt;- 6 # nolint: object_length.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">526</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">        s_var = s_var,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">527</td>
+                    <td class="num">207</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        g_var = g_var,</pre>
+                      <pre class="language-r">    datanames &lt;- isolate(teal.data::datanames(data()))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">528</td>
+                    <td class="num">208</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        dist_var_name = dist_var_name,</pre>
+                      <pre class="language-r">    datanames &lt;- Filter(function(name) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">529</td>
+                    <td class="num">209</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        s_var_name = s_var_name,</pre>
+                      <pre class="language-r">      is.data.frame(isolate(data())[[name]])</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">530</td>
+                    <td class="num">210</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        g_var_name = g_var_name</pre>
+                      <pre class="language-r">    }, datanames)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">531</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">532</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">    })</pre>
+                      <pre class="language-r">    checkmate::assert_character(datasets_selected)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">533</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">213</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    checkmate::assert_subset(datasets_selected, datanames)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">534</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">214</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # common qenv</pre>
+                      <pre class="language-r">    if (!identical(datasets_selected, character(0))) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">535</td>
+                    <td class="num">215</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    common_q &lt;- reactive({</pre>
+                      <pre class="language-r">      checkmate::assert_subset(datasets_selected, datanames)</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">216</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      datanames &lt;- datasets_selected</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">536</td>
+                    <td class="num">217</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # Create a private stack for this function only.</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">537</td>
+                    <td class="num">218</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">538</td>
+                    <td class="num">219</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ANL &lt;- merged$anl_q_r()[["ANL"]] # nolint: object_name.</pre>
+                      <pre class="language-r">    output$ui_variable_browser &lt;- renderUI({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">539</td>
+                    <td class="num">220</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dist_var &lt;- merge_vars()$dist_var</pre>
+                      <pre class="language-r">      ns &lt;- session$ns</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">540</td>
+                    <td class="num">221</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      s_var &lt;- merge_vars()$s_var</pre>
+                      <pre class="language-r">      do.call(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">541</td>
+                    <td class="num">222</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      g_var &lt;- merge_vars()$g_var</pre>
+                      <pre class="language-r">        tabsetPanel,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">542</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"></pre>
+                      <pre class="language-r">        c(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">543</td>
+                    <td class="num">224</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dist_var_name &lt;- merge_vars()$dist_var_name</pre>
+                      <pre class="language-r">          id = ns("tabset_panel"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">544</td>
+                    <td class="num">225</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      s_var_name &lt;- merge_vars()$s_var_name</pre>
+                      <pre class="language-r">          do.call(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">545</td>
+                    <td class="num">226</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      g_var_name &lt;- merge_vars()$g_var_name</pre>
+                      <pre class="language-r">            tagList,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">546</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"></pre>
+                      <pre class="language-r">            lapply(datanames, function(dataname) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">547</td>
+                    <td class="num">228</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      roundn &lt;- input$roundn</pre>
+                      <pre class="language-r">              tabPanel(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">548</td>
+                    <td class="num">229</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dist_param1 &lt;- input$dist_param1</pre>
+                      <pre class="language-r">                dataname,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">549</td>
+                    <td class="num">230</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dist_param2 &lt;- input$dist_param2</pre>
+                      <pre class="language-r">                div(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">550</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">231</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # isolated as dist_param1/dist_param2 already triggered the reactivity</pre>
+                      <pre class="language-r">                  class = "mt-4",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">551</td>
+                    <td class="num">232</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      t_dist &lt;- isolate(input$t_dist)</pre>
+                      <pre class="language-r">                  textOutput(ns(paste0("dataset_summary_", dataname)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">552</td>
+                    <td class="num">233</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">553</td>
+                    <td class="num">234</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      qenv &lt;- merged$anl_q_r()</pre>
+                      <pre class="language-r">                div(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">554</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"></pre>
+                      <pre class="language-r">                  class = "mt-4",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">555</td>
+                    <td class="num">236</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (length(g_var) &gt; 0) {</pre>
+                      <pre class="language-r">                  teal.widgets::get_dt_rows(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">556</td>
+                    <td class="num">237</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        validate(</pre>
+                      <pre class="language-r">                    ns(paste0("variable_browser_", dataname)),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">557</td>
+                    <td class="num">238</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          need(</pre>
+                      <pre class="language-r">                    ns(paste0("variable_browser_", dataname, "_rows"))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">558</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">239</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            inherits(ANL[[g_var]], c("integer", "factor", "character")),</pre>
+                      <pre class="language-r">                  ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">559</td>
+                    <td class="num">240</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            "Group by variable must be `factor`, `character`, or `integer`"</pre>
+                      <pre class="language-r">                  DT::dataTableOutput(ns(paste0("variable_browser_", dataname)), width = "100%")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">560</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">561</td>
+                    <td class="num">242</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">562</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        qenv &lt;- teal.code::eval_code(</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">563</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          qenv,</pre>
+                      <pre class="language-r">              )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">564</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">243</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          substitute(</pre>
+                      <pre class="language-r">            })</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">565</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">244</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            expr = ANL[[g_var]] &lt;- forcats::fct_na_value_to_level(as.factor(ANL[[g_var]]), "NA"), # nolint: object_name.</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">566</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">245</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            env = list(g_var = g_var)</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">567</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">568</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">569</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">570</td>
+                    <td class="num">249</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    # conditionally display checkbox</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">571</td>
+                    <td class="num">250</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (length(s_var) &gt; 0) {</pre>
+                      <pre class="language-r">    shinyjs::toggle(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">572</td>
+                    <td class="num">251</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        validate(</pre>
+                      <pre class="language-r">      id = "show_parent_vars",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">573</td>
+                    <td class="num">252</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          need(</pre>
+                      <pre class="language-r">      condition = length(parent_dataname) &gt; 0 &amp;&amp; parent_dataname %in% datanames</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">574</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">253</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            inherits(ANL[[s_var]], c("integer", "factor", "character")),</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"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">575</td>
+                    <td class="num">255</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            "Stratify by variable must be `factor`, `character`, or `integer`"</pre>
+                      <pre class="language-r">    columns_names &lt;- new.env()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">576</td>
+                    <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">577</td>
+                    <td class="num">257</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">    # plot_var$data holds the name of the currently selected dataset</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">578</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">258</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        qenv &lt;- teal.code::eval_code(</pre>
+                      <pre class="language-r">    # plot_var$variable[[&lt;dataset_name&gt;]] holds the name of the currently selected</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">579</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">259</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          qenv,</pre>
+                      <pre class="language-r">    # variable for dataset &lt;dataset_name&gt;</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">580</td>
+                    <td class="num">260</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          substitute(</pre>
+                      <pre class="language-r">    plot_var &lt;- reactiveValues(data = NULL, variable = list())</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">581</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">261</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            expr = ANL[[s_var]] &lt;- forcats::fct_na_value_to_level(as.factor(ANL[[s_var]]), "NA"), # nolint: object_name.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">582</td>
+                    <td class="num">262</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            env = list(s_var = s_var)</pre>
+                      <pre class="language-r">    establish_updating_selection(datanames, input, plot_var, columns_names)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">583</td>
+                    <td class="num">263</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">584</td>
+                    <td class="num">264</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">    # validations</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">265</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    validation_checks &lt;- validate_input(input, plot_var, data)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">585</td>
+                    <td class="num">266</td>
                     <td class="coverage"></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">267</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    # data_for_analysis is a list with two elements: a column from a dataset and the column label</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">587</td>
+                    <td class="num">268</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      validate(need(is.numeric(ANL[[dist_var]]), "Please select a numeric variable."))</pre>
+                      <pre class="language-r">    plotted_data &lt;- reactive({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">588</td>
+                    <td class="num">269</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal::validate_has_data(ANL, 1, complete = TRUE)</pre>
+                      <pre class="language-r">      validation_checks()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">589</td>
+                    <td class="num">270</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">590</td>
+                    <td class="num">271</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (length(t_dist) != 0) {</pre>
+                      <pre class="language-r">      get_plotted_data(input, plot_var, data)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">591</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">272</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        map_distr_nams &lt;- list(</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">592</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">273</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          normal = c("mean", "sd"),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">593</td>
+                    <td class="num">274</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          lognormal = c("meanlog", "sdlog"),</pre>
+                      <pre class="language-r">    treat_numeric_as_factor &lt;- reactive({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">594</td>
+                    <td class="num">275</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          gamma = c("shape", "rate"),</pre>
+                      <pre class="language-r">      if (is_num_var_short(.unique_records_for_factor, input, plotted_data)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">595</td>
+                    <td class="num">276</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          unif = c("min", "max")</pre>
+                      <pre class="language-r">        input$numeric_as_factor</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">596</td>
+                    <td class="num">277</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">597</td>
+                    <td class="num">278</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        params_names_raw &lt;- map_distr_nams[[t_dist]]</pre>
+                      <pre class="language-r">        FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">598</td>
+                    <td class="num">279</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">599</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">280</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        qenv &lt;- teal.code::eval_code(</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">600</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">281</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          qenv,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">601</td>
+                    <td class="num">282</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          substitute(</pre>
+                      <pre class="language-r">    render_tabset_panel_content(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">602</td>
+                    <td class="num">283</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            expr = {</pre>
+                      <pre class="language-r">      input = input,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">603</td>
+                    <td class="num">284</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              params &lt;- as.list(c(dist_param1, dist_param2))</pre>
+                      <pre class="language-r">      output = output,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">604</td>
+                    <td class="num">285</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              names(params) &lt;- params_names_raw</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">605</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="missed">
-                    <td class="num">606</td>
+                    <td class="num">286</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            env = list(</pre>
+                      <pre class="language-r">      datanames = datanames,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">607</td>
+                    <td class="num">287</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              dist_param1 = dist_param1,</pre>
+                      <pre class="language-r">      parent_dataname = parent_dataname,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">608</td>
+                    <td class="num">288</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              dist_param2 = dist_param2,</pre>
+                      <pre class="language-r">      columns_names = columns_names,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">609</td>
+                    <td class="num">289</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              params_names_raw = params_names_raw</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">610</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">611</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">612</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">      plot_var = plot_var</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">613</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">614</td>
+                    <td class="num">291</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">615</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      if (length(s_var) == 0 &amp;&amp; length(g_var) == 0) {</pre>
+                      <pre class="language-r">    # add used-defined text size to ggplot arguments passed from caller frame</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">616</td>
+                    <td class="num">292</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        qenv &lt;- teal.code::eval_code(</pre>
+                      <pre class="language-r">    all_ggplot2_args &lt;- reactive({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">617</td>
+                    <td class="num">293</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          qenv,</pre>
+                      <pre class="language-r">      user_text &lt;- teal.widgets::ggplot2_args(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">618</td>
+                    <td class="num">294</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          substitute(</pre>
+                      <pre class="language-r">        theme = list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">619</td>
+                    <td class="num">295</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            expr = {</pre>
+                      <pre class="language-r">          "text" = ggplot2::element_text(size = input[["font_size"]]),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">620</td>
+                    <td class="num">296</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              summary_table &lt;- ANL %&gt;%</pre>
+                      <pre class="language-r">          "axis.text.x" = ggplot2::element_text(angle = input[["label_rotation"]], hjust = 1)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">621</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">297</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                dplyr::summarise(</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">622</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">298</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  min = round(min(dist_var_name, na.rm = TRUE), roundn),</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">623</td>
+                    <td class="num">299</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  median = round(stats::median(dist_var_name, na.rm = TRUE), roundn),</pre>
+                      <pre class="language-r">      user_theme &lt;- utils::getFromNamespace(sprintf("theme_%s", input[["ggplot_theme"]]), ns = "ggplot2")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">624</td>
+                    <td class="num">300</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  mean = round(mean(dist_var_name, na.rm = TRUE), roundn),</pre>
+                      <pre class="language-r">      user_theme &lt;- user_theme()</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">625</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">301</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  max = round(max(dist_var_name, na.rm = TRUE), roundn),</pre>
+                      <pre class="language-r">      # temporary fix to circumvent assertion issue with resolve_ggplot2_args</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">626</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">302</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  sd = round(stats::sd(dist_var_name, na.rm = TRUE), roundn),</pre>
+                      <pre class="language-r">      # drop problematic elements</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">627</td>
+                    <td class="num">303</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  count = dplyr::n()</pre>
+                      <pre class="language-r">      user_theme &lt;- user_theme[grep("strip.text.y.left", names(user_theme), fixed = TRUE, invert = TRUE)]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">628</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="never">
-                    <td class="num">629</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">            },</pre>
+                      <pre class="language-r">      teal.widgets::resolve_ggplot2_args(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">630</td>
+                    <td class="num">306</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            env = list(</pre>
+                      <pre class="language-r">        user_plot = user_text,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">631</td>
+                    <td class="num">307</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              dist_var_name = as.name(dist_var),</pre>
+                      <pre class="language-r">        user_default = teal.widgets::ggplot2_args(theme = user_theme),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">632</td>
+                    <td class="num">308</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              roundn = roundn</pre>
+                      <pre class="language-r">        module_plot = ggplot2_args</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">633</td>
+                    <td class="num">309</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">634</td>
+                    <td class="num">310</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">635</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">636</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">      } else {</pre>
+                      <pre class="language-r">    output$ui_numeric_display &lt;- renderUI({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">637</td>
+                    <td class="num">313</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        qenv &lt;- teal.code::eval_code(</pre>
+                      <pre class="language-r">      validation_checks()</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">638</td>
+                    <td class="num">314</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          qenv,</pre>
+                      <pre class="language-r">      dataname &lt;- input$tabset_panel</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">639</td>
+                    <td class="num">315</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          substitute(</pre>
+                      <pre class="language-r">      varname &lt;- plot_var$variable[[dataname]]</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">640</td>
+                    <td class="num">316</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            expr = {</pre>
+                      <pre class="language-r">      df &lt;- data()[[dataname]]</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>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">641</td>
+                    <td class="num">318</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              strata_vars &lt;- strata_vars_raw</pre>
+                      <pre class="language-r">      numeric_ui &lt;- tagList(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">642</td>
+                    <td class="num">319</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              summary_table &lt;- ANL %&gt;%</pre>
+                      <pre class="language-r">        fluidRow(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">643</td>
+                    <td class="num">320</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                dplyr::group_by_at(dplyr::vars(dplyr::any_of(strata_vars))) %&gt;%</pre>
+                      <pre class="language-r">          div(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">644</td>
+                    <td class="num">321</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                dplyr::summarise(</pre>
+                      <pre class="language-r">            class = "col-md-4",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">645</td>
+                    <td class="num">322</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  min = round(min(dist_var_name, na.rm = TRUE), roundn),</pre>
+                      <pre class="language-r">            br(),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">646</td>
+                    <td class="num">323</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  median = round(stats::median(dist_var_name, na.rm = TRUE), roundn),</pre>
+                      <pre class="language-r">            shinyWidgets::switchInput(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">647</td>
+                    <td class="num">324</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  mean = round(mean(dist_var_name, na.rm = TRUE), roundn),</pre>
+                      <pre class="language-r">              inputId = session$ns("display_density"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">648</td>
+                    <td class="num">325</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  max = round(max(dist_var_name, na.rm = TRUE), roundn),</pre>
+                      <pre class="language-r">              label = "Show density",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">649</td>
+                    <td class="num">326</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  sd = round(stats::sd(dist_var_name, na.rm = TRUE), roundn),</pre>
+                      <pre class="language-r">              value = `if`(is.null(isolate(input$display_density)), TRUE, isolate(input$display_density)),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">650</td>
+                    <td class="num">327</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  count = dplyr::n()</pre>
+                      <pre class="language-r">              width = "50%",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">651</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">328</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                )</pre>
+                      <pre class="language-r">              labelWidth = "100px",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">652</td>
+                    <td class="num">329</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              summary_table # used to display table when running show-r-code code</pre>
+                      <pre class="language-r">              handleWidth = "50px"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">653</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">654</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            env = list(</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">655</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">331</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              dist_var_name = dist_var_name,</pre>
+                      <pre class="language-r">          ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">656</td>
+                    <td class="num">332</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              strata_vars_raw = c(g_var, s_var),</pre>
+                      <pre class="language-r">          div(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">657</td>
+                    <td class="num">333</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              roundn = roundn</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">658</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">659</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">660</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">661</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">662</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">663</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="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    # distplot qenv ----</pre>
+                      <pre class="language-r">            class = "col-md-4",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">665</td>
+                    <td class="num">334</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dist_q &lt;- eventReactive(</pre>
+                      <pre class="language-r">            br(),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">666</td>
+                    <td class="num">335</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      eventExpr = {</pre>
+                      <pre class="language-r">            shinyWidgets::switchInput(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">667</td>
+                    <td class="num">336</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        common_q()</pre>
+                      <pre class="language-r">              inputId = session$ns("remove_outliers"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">668</td>
+                    <td class="num">337</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        input$scales_type</pre>
+                      <pre class="language-r">              label = "Remove outliers",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">669</td>
+                    <td class="num">338</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        input$main_type</pre>
+                      <pre class="language-r">              value = `if`(is.null(isolate(input$remove_outliers)), FALSE, isolate(input$remove_outliers)),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">670</td>
+                    <td class="num">339</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        input$bins</pre>
+                      <pre class="language-r">              width = "50%",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">671</td>
+                    <td class="num">340</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        input$add_dens</pre>
+                      <pre class="language-r">              labelWidth = "100px",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">672</td>
+                    <td class="num">341</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        is.null(input$ggtheme)</pre>
+                      <pre class="language-r">              handleWidth = "50px"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">673</td>
+                    <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="missed">
-                    <td class="num">674</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">343</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      valueExpr = {</pre>
+                      <pre class="language-r">          ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">675</td>
+                    <td class="num">344</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        dist_var &lt;- merge_vars()$dist_var</pre>
+                      <pre class="language-r">          div(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">676</td>
+                    <td class="num">345</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        s_var &lt;- merge_vars()$s_var</pre>
+                      <pre class="language-r">            class = "col-md-4",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">677</td>
+                    <td class="num">346</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        g_var &lt;- merge_vars()$g_var</pre>
+                      <pre class="language-r">            uiOutput(session$ns("outlier_definition_slider_ui"))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">678</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">347</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        dist_var_name &lt;- merge_vars()$dist_var_name</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">679</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">348</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        s_var_name &lt;- merge_vars()$s_var_name</pre>
+                      <pre class="language-r">        ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">680</td>
+                    <td class="num">349</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        g_var_name &lt;- merge_vars()$g_var_name</pre>
+                      <pre class="language-r">        div(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">681</td>
+                    <td class="num">350</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        t_dist &lt;- input$t_dist</pre>
+                      <pre class="language-r">          class = "ml-4",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">682</td>
+                    <td class="num">351</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        dist_param1 &lt;- input$dist_param1</pre>
+                      <pre class="language-r">          uiOutput(session$ns("ui_density_help")),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">683</td>
+                    <td class="num">352</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        dist_param2 &lt;- input$dist_param2</pre>
+                      <pre class="language-r">          uiOutput(session$ns("ui_outlier_help"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">684</td>
+                    <td class="num">353</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">685</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">354</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        scales_type &lt;- input$scales_type</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">686</td>
+                    <td class="num">355</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">687</td>
+                    <td class="num">356</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ndensity &lt;- 512</pre>
+                      <pre class="language-r">      if (is.numeric(df[[varname]])) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">688</td>
+                    <td class="num">357</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        main_type_var &lt;- input$main_type</pre>
+                      <pre class="language-r">        unique_entries &lt;- length(unique(df[[varname]]))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">689</td>
+                    <td class="num">358</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        bins_var &lt;- input$bins</pre>
+                      <pre class="language-r">        if (unique_entries &lt; .unique_records_for_factor &amp;&amp; unique_entries &gt; 0) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">690</td>
+                    <td class="num">359</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        add_dens_var &lt;- input$add_dens</pre>
+                      <pre class="language-r">          list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">691</td>
+                    <td class="num">360</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ggtheme &lt;- input$ggtheme</pre>
+                      <pre class="language-r">            checkboxInput(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">692</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"></pre>
+                      <pre class="language-r">              session$ns("numeric_as_factor"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">693</td>
+                    <td class="num">362</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        teal::validate_inputs(iv_dist)</pre>
+                      <pre class="language-r">              "Treat variable as factor",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">694</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"></pre>
+                      <pre class="language-r">              value = `if`(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">695</td>
+                    <td class="num">364</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        qenv &lt;- common_q()</pre>
+                      <pre class="language-r">                is.null(isolate(input$numeric_as_factor)),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">696</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">                unique_entries &lt; .unique_records_default_as_factor,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">697</td>
+                    <td class="num">366</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        m_type &lt;- if (main_type_var == "Density") "density" else "count"</pre>
+                      <pre class="language-r">                isolate(input$numeric_as_factor)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">698</td>
+                    <td class="num">367</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">699</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">368</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        plot_call &lt;- if (length(s_var) == 0 &amp;&amp; length(g_var) == 0) {</pre>
+                      <pre class="language-r">            ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">700</td>
+                    <td class="num">369</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          substitute(</pre>
+                      <pre class="language-r">            conditionalPanel("!input.numeric_as_factor", ns = session$ns, numeric_ui)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">701</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">370</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            expr = ggplot(ANL, aes(dist_var_name)) +</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">702</td>
+                    <td class="num">371</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              geom_histogram(</pre>
+                      <pre class="language-r">        } else if (unique_entries &gt; 0) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">703</td>
+                    <td class="num">372</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                position = "identity", aes(y = after_stat(m_type)), bins = bins_var, alpha = 0.3</pre>
+                      <pre class="language-r">          numeric_ui</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">704</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="missed">
-                    <td class="num">705</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">374</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            env = list(</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">706</td>
+                    <td class="num">375</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              m_type = as.name(m_type), bins_var = bins_var, dist_var_name = as.name(dist_var)</pre>
+                      <pre class="language-r">        NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">707</td>
+                    <td class="num">376</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">708</td>
+                    <td class="num">377</td>
                     <td class="coverage"></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="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">709</td>
+                    <td class="num">379</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        } else if (length(s_var) != 0 &amp;&amp; length(g_var) == 0) {</pre>
+                      <pre class="language-r">    output$ui_histogram_display &lt;- renderUI({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">710</td>
+                    <td class="num">380</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          substitute(</pre>
+                      <pre class="language-r">      validation_checks()</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">711</td>
+                    <td class="num">381</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            expr = ggplot(ANL, aes(dist_var_name, col = s_var_name)) +</pre>
+                      <pre class="language-r">      dataname &lt;- input$tabset_panel</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">712</td>
+                    <td class="num">382</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              geom_histogram(</pre>
+                      <pre class="language-r">      varname &lt;- plot_var$variable[[dataname]]</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">713</td>
+                    <td class="num">383</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                position = "identity", aes(y = after_stat(m_type), fill = s_var), bins = bins_var, alpha = 0.3</pre>
+                      <pre class="language-r">      df &lt;- data()[[dataname]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">714</td>
+                    <td class="num">384</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">715</td>
+                    <td class="num">385</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            env = list(</pre>
+                      <pre class="language-r">      numeric_ui &lt;- tagList(fluidRow(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">716</td>
+                    <td class="num">386</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              m_type = as.name(m_type),</pre>
+                      <pre class="language-r">        div(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">717</td>
+                    <td class="num">387</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              bins_var = bins_var,</pre>
+                      <pre class="language-r">          class = "col-md-4",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">718</td>
+                    <td class="num">388</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              dist_var_name = dist_var_name,</pre>
+                      <pre class="language-r">          shinyWidgets::switchInput(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">719</td>
+                    <td class="num">389</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              s_var = as.name(s_var),</pre>
+                      <pre class="language-r">            inputId = session$ns("remove_NA_hist"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">720</td>
+                    <td class="num">390</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              s_var_name = s_var_name</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">721</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">            label = "Remove NA values",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">722</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">          )</pre>
+                      <pre class="language-r">            value = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">723</td>
+                    <td class="num">392</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        } else if (length(s_var) == 0 &amp;&amp; length(g_var) != 0) {</pre>
+                      <pre class="language-r">            width = "50%",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">724</td>
+                    <td class="num">393</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          req(scales_type)</pre>
+                      <pre class="language-r">            labelWidth = "100px",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">725</td>
+                    <td class="num">394</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          substitute(</pre>
+                      <pre class="language-r">            handleWidth = "50px"</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">726</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">395</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            expr = ggplot(ANL[ANL[[g_var]] != "NA", ], aes(dist_var_name)) +</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">396</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              geom_histogram(</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">728</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">397</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                position = "identity", aes(y = after_stat(m_type)), bins = bins_var, alpha = 0.3</pre>
+                      <pre class="language-r">      ))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">729</td>
+                    <td class="num">398</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">730</td>
+                    <td class="num">399</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              facet_wrap(~g_var_name, ncol = 1, scales = scales_raw),</pre>
+                      <pre class="language-r">      var &lt;- df[[varname]]</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">731</td>
+                    <td class="num">400</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            env = list(</pre>
+                      <pre class="language-r">      if (anyNA(var) &amp;&amp; (is.factor(var) || is.character(var) || is.logical(var))) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">732</td>
+                    <td class="num">401</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              m_type = as.name(m_type),</pre>
+                      <pre class="language-r">        groups &lt;- unique(as.character(var))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">733</td>
+                    <td class="num">402</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              bins_var = bins_var,</pre>
+                      <pre class="language-r">        len_groups &lt;- length(groups)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">734</td>
+                    <td class="num">403</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              dist_var_name = dist_var_name,</pre>
+                      <pre class="language-r">        if (len_groups &gt;= .unique_records_for_factor) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">735</td>
+                    <td class="num">404</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              g_var = g_var,</pre>
+                      <pre class="language-r">          NULL</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">405</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        } else {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">736</td>
+                    <td class="num">406</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              g_var_name = g_var_name,</pre>
+                      <pre class="language-r">          numeric_ui</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">407</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">408</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">737</td>
+                    <td class="num">409</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              scales_raw = tolower(scales_type)</pre>
+                      <pre class="language-r">        NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">738</td>
+                    <td class="num">410</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">739</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="never">
-                    <td class="num">740</td>
+                    <td class="num">412</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">741</td>
+                    <td class="num">413</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          req(scales_type)</pre>
+                      <pre class="language-r">    output$outlier_definition_slider_ui &lt;- renderUI({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">742</td>
+                    <td class="num">414</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          substitute(</pre>
+                      <pre class="language-r">      req(input$remove_outliers)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">743</td>
+                    <td class="num">415</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            expr = ggplot(ANL[ANL[[g_var]] != "NA", ], aes(dist_var_name, col = s_var_name)) +</pre>
+                      <pre class="language-r">      sliderInput(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">744</td>
+                    <td class="num">416</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              geom_histogram(</pre>
+                      <pre class="language-r">        inputId = session$ns("outlier_definition_slider"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">745</td>
+                    <td class="num">417</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                position = "identity",</pre>
+                      <pre class="language-r">        div(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">746</td>
+                    <td class="num">418</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                aes(y = after_stat(m_type), fill = s_var), bins = bins_var, alpha = 0.3</pre>
+                      <pre class="language-r">          class = "teal-tooltip",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">747</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">              ) +</pre>
+                      <pre class="language-r">          tagList(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">748</td>
+                    <td class="num">420</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              facet_wrap(~g_var_name, ncol = 1, scales = scales_raw),</pre>
+                      <pre class="language-r">            "Outlier definition:",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">749</td>
+                    <td class="num">421</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            env = list(</pre>
+                      <pre class="language-r">            icon("circle-info"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">750</td>
+                    <td class="num">422</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              m_type = as.name(m_type),</pre>
+                      <pre class="language-r">            span(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">751</td>
+                    <td class="num">423</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              bins_var = bins_var,</pre>
+                      <pre class="language-r">              class = "tooltiptext",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">752</td>
+                    <td class="num">424</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              dist_var_name = dist_var_name,</pre>
+                      <pre class="language-r">              paste(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">753</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">              g_var = g_var,</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">754</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">              s_var = as.name(s_var),</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">755</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">              g_var_name = g_var_name,</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">756</td>
+                    <td class="num">425</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              s_var_name = s_var_name,</pre>
+                      <pre class="language-r">                "Use the slider to choose the cut-off value to define outliers; the larger the value the",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">757</td>
+                    <td class="num">426</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              scales_raw = tolower(scales_type)</pre>
+                      <pre class="language-r">                "further below Q1/above Q3 points have to be in order to be classed as outliers"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">758</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">759</td>
+                    <td class="num">428</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">760</td>
+                    <td class="num">429</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">761</td>
+                    <td class="num">430</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">762</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        if (add_dens_var) {</pre>
+                      <pre class="language-r">        ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">763</td>
+                    <td class="num">431</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          plot_call &lt;- substitute(</pre>
+                      <pre class="language-r">        min = 1,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">764</td>
+                    <td class="num">432</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            expr = plot_call +</pre>
+                      <pre class="language-r">        max = 5,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">765</td>
+                    <td class="num">433</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              stat_density(</pre>
+                      <pre class="language-r">        value = 3,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">766</td>
+                    <td class="num">434</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                aes(y = after_stat(const * m_type2)),</pre>
+                      <pre class="language-r">        step = 0.5</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">767</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">                geom = "line",</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">768</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">                position = "identity",</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">769</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">                alpha = 0.5,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">770</td>
+                    <td class="num">438</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                size = 2,</pre>
+                      <pre class="language-r">    output$ui_density_help &lt;- renderUI({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">771</td>
+                    <td class="num">439</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                n = ndensity</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">772</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">              ),</pre>
+                      <pre class="language-r">      req(is.logical(input$display_density))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">773</td>
+                    <td class="num">440</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            env = list(</pre>
+                      <pre class="language-r">      if (input$display_density) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">774</td>
+                    <td class="num">441</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              plot_call = plot_call,</pre>
+                      <pre class="language-r">        tags$small(helpText(paste(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">775</td>
+                    <td class="num">442</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              const = if (main_type_var == "Density") {</pre>
+                      <pre class="language-r">          "Kernel density estimation with gaussian kernel",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">776</td>
+                    <td class="num">443</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                1</pre>
+                      <pre class="language-r">          "and bandwidth function bw.nrd0 (R default)"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">777</td>
+                    <td class="num">444</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              } else {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">778</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                diff(range(qenv[["ANL"]][[dist_var]], na.rm = TRUE)) / bins_var</pre>
+                      <pre class="language-r">        )))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">779</td>
+                    <td class="num">445</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              },</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">780</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">              m_type2 = if (main_type_var == "Density") as.name("density") else as.name("count"),</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">781</td>
+                    <td class="num">446</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              ndensity = ndensity</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">782</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">783</td>
+                    <td class="num">447</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">784</td>
+                    <td class="num">448</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">785</td>
+                    <td class="num">449</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">786</td>
+                    <td class="num">450</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (length(t_dist) != 0 &amp;&amp; main_type_var == "Density" &amp;&amp; length(g_var) == 0 &amp;&amp; length(s_var) == 0) {</pre>
+                      <pre class="language-r">    output$ui_outlier_help &lt;- renderUI({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">787</td>
+                    <td class="num">451</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          qenv &lt;- teal.code::eval_code(</pre>
+                      <pre class="language-r">      req(is.logical(input$remove_outliers), input$outlier_definition_slider)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">788</td>
+                    <td class="num">452</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            qenv,</pre>
+                      <pre class="language-r">      if (input$remove_outliers) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">789</td>
+                    <td class="num">453</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            substitute(</pre>
+                      <pre class="language-r">        tags$small(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">790</td>
+                    <td class="num">454</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              df_params &lt;- as.data.frame(append(params, list(name = t_dist))),</pre>
+                      <pre class="language-r">          helpText(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">791</td>
+                    <td class="num">455</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              env = list(t_dist = t_dist)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">792</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">793</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">            withMathJax(paste0(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">794</td>
+                    <td class="num">456</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          datas &lt;- quote(data.frame(x = 0.7, y = 1, tb = I(list(df_params = df_params))))</pre>
+                      <pre class="language-r">              "Outlier data points (\\( X \\lt Q1 - ", input$outlier_definition_slider, "\\times IQR \\) or</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">795</td>
+                    <td class="num">457</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          label &lt;- quote(tb)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">796</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">            \\(Q3 + ", input$outlier_definition_slider, "\\times IQR \\lt X\\))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">797</td>
+                    <td class="num">458</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          plot_call &lt;- substitute(</pre>
+                      <pre class="language-r">            have not been displayed on the graph and will not be used for any kernel density estimations, ",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">798</td>
+                    <td class="num">459</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            expr = plot_call + ggpp::geom_table_npc(</pre>
+                      <pre class="language-r">              "although their values remain in the statisics table below."</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">799</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">              data = data,</pre>
+                      <pre class="language-r">            ))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">800</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">              aes(npcx = x, npcy = y, label = label),</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">801</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">              hjust = 0, vjust = 1, size = 4</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">802</td>
+                    <td class="num">463</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">803</td>
+                    <td class="num">464</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            env = list(plot_call = plot_call, data = datas, label = label)</pre>
+                      <pre class="language-r">        NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">804</td>
+                    <td class="num">465</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">805</td>
+                    <td class="num">466</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">806</td>
+                    <td class="num">467</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">807</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        if (length(s_var) == 0 &amp;&amp; length(g_var) == 0 &amp;&amp; main_type_var == "Density" &amp;&amp;</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">808</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">468</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          length(t_dist) != 0 &amp;&amp; main_type_var == "Density") {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">809</td>
+                    <td class="num">469</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          map_dist &lt;- stats::setNames(</pre>
+                      <pre class="language-r">    variable_plot_r &lt;- reactive({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">810</td>
+                    <td class="num">470</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            c("dnorm", "dlnorm", "dgamma", "dunif"),</pre>
+                      <pre class="language-r">      display_density &lt;- `if`(is.null(input$display_density), FALSE, input$display_density)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">811</td>
+                    <td class="num">471</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            c("normal", "lognormal", "gamma", "unif")</pre>
+                      <pre class="language-r">      remove_outliers &lt;- `if`(is.null(input$remove_outliers), FALSE, input$remove_outliers)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">812</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="missed">
-                    <td class="num">813</td>
+                    <td class="num">473</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          plot_call &lt;- substitute(</pre>
+                      <pre class="language-r">      if (remove_outliers) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">814</td>
+                    <td class="num">474</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            expr = plot_call + stat_function(</pre>
+                      <pre class="language-r">        req(input$outlier_definition_slider)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">815</td>
+                    <td class="num">475</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              data = data.frame(x = range(ANL[[dist_var]]), color = mapped_dist),</pre>
+                      <pre class="language-r">        outlier_definition &lt;- as.numeric(input$outlier_definition_slider)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">816</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">476</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              aes(x, color = color),</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">817</td>
+                    <td class="num">477</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              fun = mapped_dist_name,</pre>
+                      <pre class="language-r">        outlier_definition &lt;- 0</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">818</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">478</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              n = ndensity,</pre>
+                      <pre class="language-r">      }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">479</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">819</td>
+                    <td class="num">480</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              size = 2,</pre>
+                      <pre class="language-r">      plot_var_summary(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">820</td>
+                    <td class="num">481</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              args = params</pre>
+                      <pre class="language-r">        var = plotted_data()$data,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">821</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">482</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ) +</pre>
+                      <pre class="language-r">        var_lab = plotted_data()$var_description,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">822</td>
+                    <td class="num">483</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              scale_color_manual(values = stats::setNames("blue", mapped_dist), aesthetics = "color"),</pre>
+                      <pre class="language-r">        wrap_character = 15,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">823</td>
+                    <td class="num">484</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            env = list(</pre>
+                      <pre class="language-r">        numeric_as_factor = treat_numeric_as_factor(),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">824</td>
+                    <td class="num">485</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              plot_call = plot_call,</pre>
+                      <pre class="language-r">        remove_NA_hist = input$remove_NA_hist,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">825</td>
+                    <td class="num">486</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              dist_var = dist_var,</pre>
+                      <pre class="language-r">        display_density = display_density,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">826</td>
+                    <td class="num">487</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              ndensity = ndensity,</pre>
+                      <pre class="language-r">        outlier_definition = outlier_definition,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">827</td>
+                    <td class="num">488</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              mapped_dist = unname(map_dist[t_dist]),</pre>
+                      <pre class="language-r">        records_for_factor = .unique_records_for_factor,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">828</td>
+                    <td class="num">489</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              mapped_dist_name = as.name(unname(map_dist[t_dist]))</pre>
+                      <pre class="language-r">        ggplot2_args = all_ggplot2_args()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">829</td>
+                    <td class="num">490</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">830</td>
+                    <td class="num">491</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">831</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">832</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">493</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    pws &lt;- teal.widgets::plot_with_settings_srv(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">833</td>
+                    <td class="num">494</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        all_ggplot2_args &lt;- teal.widgets::resolve_ggplot2_args(</pre>
+                      <pre class="language-r">      id = "variable_plot",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">834</td>
+                    <td class="num">495</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          user_plot = ggplot2_args[["Histogram"]],</pre>
+                      <pre class="language-r">      plot_r = variable_plot_r,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">835</td>
+                    <td class="num">496</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          user_default = ggplot2_args$default</pre>
+                      <pre class="language-r">      height = c(500, 200, 2000)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">836</td>
+                    <td class="num">497</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">837</td>
+                    <td class="num">498</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">838</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        parsed_ggplot2_args &lt;- teal.widgets::parse_ggplot2_args(</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">839</td>
+                    <td class="num">499</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          all_ggplot2_args,</pre>
+                      <pre class="language-r">    output$variable_summary_table &lt;- DT::renderDataTable({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">840</td>
+                    <td class="num">500</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ggtheme = ggtheme</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">841</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">842</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      var_summary_table(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">843</td>
+                    <td class="num">501</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        teal.code::eval_code(</pre>
+                      <pre class="language-r">        plotted_data()$data,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">844</td>
+                    <td class="num">502</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          qenv,</pre>
+                      <pre class="language-r">        treat_numeric_as_factor(),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">845</td>
+                    <td class="num">503</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          substitute(</pre>
+                      <pre class="language-r">        input$variable_summary_table_rows,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">846</td>
+                    <td class="num">504</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            expr = {</pre>
+                      <pre class="language-r">        if (!is.null(input$remove_outliers) &amp;&amp; input$remove_outliers) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">847</td>
+                    <td class="num">505</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              g &lt;- plot_call</pre>
+                      <pre class="language-r">          req(input$outlier_definition_slider)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">848</td>
+                    <td class="num">506</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              print(g)</pre>
+                      <pre class="language-r">          as.numeric(input$outlier_definition_slider)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">849</td>
+                    <td class="num">507</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">850</td>
+                    <td class="num">508</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            env = list(plot_call = Reduce(function(x, y) call("+", x, y), c(plot_call, parsed_ggplot2_args)))</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">851</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">          0</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">852</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">853</td>
+                    <td class="num">510</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">854</td>
+                    <td class="num">511</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">855</td>
+                    <td class="num">512</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">856</td>
+                    <td class="num">513</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # qqplot qenv ----</pre>
+                      <pre class="language-r">    ### REPORTER</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">857</td>
+                    <td class="num">514</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    qq_q &lt;- eventReactive(</pre>
+                      <pre class="language-r">    if (with_reporter) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">858</td>
+                    <td class="num">515</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      eventExpr = {</pre>
+                      <pre class="language-r">      card_fun &lt;- function(comment) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">859</td>
+                    <td class="num">516</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        common_q()</pre>
+                      <pre class="language-r">        card &lt;- teal::TealReportCard$new()</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">860</td>
+                    <td class="num">517</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        input$scales_type</pre>
+                      <pre class="language-r">        card$set_name("Variable Browser Plot")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">861</td>
+                    <td class="num">518</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        input$qq_line</pre>
+                      <pre class="language-r">        card$append_text("Variable Browser Plot", "header2")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">862</td>
+                    <td class="num">519</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        is.null(input$ggtheme)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">863</td>
-                    <td class="coverage"></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="missed">
-                    <td class="num">864</td>
+                    <td class="num">520</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      valueExpr = {</pre>
+                      <pre class="language-r">        card$append_text("Plot", "header3")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">865</td>
+                    <td class="num">521</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        dist_var &lt;- merge_vars()$dist_var</pre>
+                      <pre class="language-r">        card$append_plot(variable_plot_r(), dim = pws$dim())</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">866</td>
+                    <td class="num">522</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        s_var &lt;- merge_vars()$s_var</pre>
+                      <pre class="language-r">        if (!comment == "") {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">867</td>
+                    <td class="num">523</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        g_var &lt;- merge_vars()$g_var</pre>
+                      <pre class="language-r">          card$append_text("Comment", "header3")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">868</td>
+                    <td class="num">524</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        dist_var_name &lt;- merge_vars()$dist_var_name</pre>
+                      <pre class="language-r">          card$append_text(comment)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">869</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">525</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        s_var_name &lt;- merge_vars()$s_var_name</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">870</td>
+                    <td class="num">526</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        g_var_name &lt;- merge_vars()$g_var_name</pre>
+                      <pre class="language-r">        card</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">871</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">527</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        t_dist &lt;- input$t_dist</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">872</td>
+                    <td class="num">528</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        dist_param1 &lt;- input$dist_param1</pre>
+                      <pre class="language-r">      teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">873</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">529</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        dist_param2 &lt;- input$dist_param2</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">874</td>
+                    <td class="num">530</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">875</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">531</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        scales_type &lt;- input$scales_type</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">876</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">532</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ggtheme &lt;- input$ggtheme</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">877</td>
+                    <td class="num">533</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">878</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">534</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        teal::validate_inputs(iv_r_dist(), iv_dist)</pre>
+                      <pre class="language-r">#' Summarizes missings occurrence</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">879</td>
+                    <td class="num">535</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">880</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">536</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        qenv &lt;- common_q()</pre>
+                      <pre class="language-r">#' Summarizes missings occurrence in vector</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">881</td>
+                    <td class="num">537</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @param x vector of any type and length</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">882</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">538</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        plot_call &lt;- if (length(s_var) == 0 &amp;&amp; length(g_var) == 0) {</pre>
+                      <pre class="language-r">#' @return text describing \code{NA} occurrence.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">883</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">539</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          substitute(</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">884</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">540</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            expr = ggplot(ANL, aes_string(sample = dist_var)),</pre>
+                      <pre class="language-r">var_missings_info &lt;- function(x) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">885</td>
+                    <td class="num">541</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            env = list(dist_var = dist_var)</pre>
+                      <pre class="language-r">  return(sprintf("%s [%s%%]", sum(is.na(x)), round(mean(is.na(x) * 100), 2)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">886</td>
+                    <td class="num">542</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">887</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        } else if (length(s_var) != 0 &amp;&amp; length(g_var) == 0) {</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">888</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">543</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          substitute(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">889</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">544</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            expr = ggplot(ANL, aes_string(sample = dist_var, color = s_var)),</pre>
+                      <pre class="language-r">#' S3 generic for \code{sparkline} widget HTML</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">890</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">545</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            env = list(dist_var = dist_var, s_var = s_var)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">891</td>
+                    <td class="num">546</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">#' Generates the \code{sparkline} HTML code corresponding to the input array.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">892</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">        } else if (length(s_var) == 0 &amp;&amp; length(g_var) != 0) {</pre>
+                      <pre class="language-r">#' For numeric variables creates a box plot, for character and factors - bar plot.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">893</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">548</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          substitute(</pre>
+                      <pre class="language-r">#' Produces an empty string for variables of other types.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">894</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">549</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            expr = ggplot(ANL[ANL[[g_var]] != "NA", ], aes_string(sample = dist_var)) +</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">895</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">550</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              facet_wrap(~g_var_name, ncol = 1, scales = scales_raw),</pre>
+                      <pre class="language-r">#' @param arr vector of any type and length</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">896</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">551</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            env = list(</pre>
+                      <pre class="language-r">#' @param width \code{numeric} the width of the \code{sparkline} widget (pixels)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">897</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">552</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              dist_var = dist_var,</pre>
+                      <pre class="language-r">#' @param ... \code{list} additional options passed to bar plots of \code{jquery.sparkline};  see</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">898</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">553</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              g_var = g_var,</pre>
+                      <pre class="language-r">#' \href{https://omnipotent.net/jquery.sparkline/#common}{\code{jquery.sparkline docs}}</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">899</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">554</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              g_var_name = g_var_name,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">900</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">555</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              scales_raw = tolower(scales_type)</pre>
+                      <pre class="language-r">#' @return character variable containing the HTML code of the \code{sparkline} HTML widget</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">901</td>
+                    <td class="num">556</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">902</td>
+                    <td class="num">557</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">903</td>
+                    <td class="num">558</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        } else {</pre>
+                      <pre class="language-r">create_sparklines &lt;- function(arr, width = 150, ...) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">904</td>
+                    <td class="num">559</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          substitute(</pre>
+                      <pre class="language-r">  if (all(is.null(arr))) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">905</td>
+                    <td class="num">560</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            expr = ggplot(ANL[ANL[[g_var]] != "NA", ], aes_string(sample = dist_var, color = s_var)) +</pre>
+                      <pre class="language-r">    return("")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">906</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">561</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              facet_wrap(~g_var_name, ncol = 1, scales = scales_raw),</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">907</td>
+                    <td class="num">562</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            env = list(</pre>
+                      <pre class="language-r">  UseMethod("create_sparklines")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">908</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">563</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              dist_var = dist_var,</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">909</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">564</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              g_var = g_var,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">910</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">565</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              s_var = s_var,</pre>
+                      <pre class="language-r">#' Default method for \code{\link{create_sparklines}}</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">911</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">566</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              g_var_name = g_var_name,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">912</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">567</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              scales_raw = tolower(scales_type)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">913</td>
+                    <td class="num">568</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">914</td>
+                    <td class="num">569</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">915</td>
+                    <td class="num">570</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">#' @rdname create_sparklines</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">916</td>
+                    <td class="num">571</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">create_sparklines.default &lt;- function(arr, width = 150, ...) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">917</td>
+                    <td class="num">572</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        map_dist &lt;- stats::setNames(</pre>
+                      <pre class="language-r">  return(as.character(tags$code("unsupported variable type", class = "text-blue")))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">918</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">573</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          c("qnorm", "qlnorm", "qgamma", "qunif"),</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">919</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">574</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          c("normal", "lognormal", "gamma", "unif")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">920</td>
+                    <td class="num">575</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#' Generates the HTML code for the \code{sparkline} widget</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">921</td>
+                    <td class="num">576</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">922</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">577</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        plot_call &lt;- substitute(</pre>
+                      <pre class="language-r">#' @param bar_spacing \code{numeric} the spacing between the bars (in pixels)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">923</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">578</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          expr = plot_call +</pre>
+                      <pre class="language-r">#' @param bar_width \code{numeric} the width of the bars (in pixels)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">924</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">579</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            stat_qq(distribution = mapped_dist, dparams = params),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">925</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">580</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          env = list(plot_call = plot_call, mapped_dist = as.name(unname(map_dist[t_dist])))</pre>
+                      <pre class="language-r">#' @return \code{character} with HTML code for the \code{sparkline} widget</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">926</td>
+                    <td class="num">581</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">927</td>
+                    <td class="num">582</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="missed">
-                    <td class="num">928</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">583</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (length(t_dist) != 0 &amp;&amp; length(g_var) == 0 &amp;&amp; length(s_var) == 0) {</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">929</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">584</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          qenv &lt;- teal.code::eval_code(</pre>
+                      <pre class="language-r">#' @rdname create_sparklines</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">585</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">create_sparklines.Date &lt;- function(arr, width = 150, bar_spacing = 5, bar_width = 20, ...) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">930</td>
+                    <td class="num">586</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            qenv,</pre>
+                      <pre class="language-r">  arr_num &lt;- as.numeric(arr)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">931</td>
+                    <td class="num">587</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            substitute(</pre>
+                      <pre class="language-r">  arr_num &lt;- sort(arr_num, decreasing = FALSE, method = "radix")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">932</td>
+                    <td class="num">588</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              df_params &lt;- as.data.frame(append(params, list(name = t_dist))),</pre>
+                      <pre class="language-r">  binwidth &lt;- get_bin_width(arr_num, 1)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">933</td>
+                    <td class="num">589</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              env = list(t_dist = t_dist)</pre>
+                      <pre class="language-r">  bins &lt;- floor(diff(range(arr_num)) / binwidth) + 1</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">934</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">590</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">  if (all(is.na(bins))) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">935</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">591</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">    return(as.character(tags$code("only NA", class = "text-blue")))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">936</td>
+                    <td class="num">592</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          datas &lt;- quote(data.frame(x = 0.7, y = 1, tb = I(list(df_params = df_params))))</pre>
+                      <pre class="language-r">  } else if (bins == 1) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">937</td>
+                    <td class="num">593</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          label &lt;- quote(tb)</pre>
+                      <pre class="language-r">    return(as.character(tags$code("one date", class = "text-blue")))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">938</td>
+                    <td class="num">594</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">939</td>
+                    <td class="num">595</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          plot_call &lt;- substitute(</pre>
+                      <pre class="language-r">  counts &lt;- as.vector(unname(base::table(cut(arr_num, breaks = bins))))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">940</td>
+                    <td class="num">596</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            expr = plot_call +</pre>
+                      <pre class="language-r">  max_value &lt;- max(counts)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">941</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">              ggpp::geom_table_npc(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">942</td>
+                    <td class="num">598</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                data = data,</pre>
+                      <pre class="language-r">  start_bins &lt;- as.integer(seq(1, length(arr_num), length.out = bins))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">943</td>
+                    <td class="num">599</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                aes(npcx = x, npcy = y, label = label),</pre>
+                      <pre class="language-r">  labels_start &lt;- as.character(as.Date(arr_num[start_bins], origin = as.Date("1970-01-01")))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">944</td>
+                    <td class="num">600</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                hjust = 0,</pre>
+                      <pre class="language-r">  labels &lt;- paste("Start:", labels_start)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">601</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">945</td>
+                    <td class="num">602</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                vjust = 1,</pre>
+                      <pre class="language-r">  sparkline::spk_chr(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">946</td>
+                    <td class="num">603</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                size = 4</pre>
+                      <pre class="language-r">    unname(counts),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">947</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">604</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              ),</pre>
+                      <pre class="language-r">    type = "bar",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">948</td>
+                    <td class="num">605</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            env = list(</pre>
+                      <pre class="language-r">    chartRangeMin = 0,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">949</td>
+                    <td class="num">606</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              plot_call = plot_call,</pre>
+                      <pre class="language-r">    chartRangeMax = max_value,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">950</td>
+                    <td class="num">607</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              data = datas,</pre>
+                      <pre class="language-r">    width = width,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">951</td>
+                    <td class="num">608</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              label = label</pre>
+                      <pre class="language-r">    barWidth = bar_width,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">952</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">609</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">    barSpacing = bar_spacing,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">953</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">610</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">    tooltipFormatter = custom_sparkline_formatter(labels, counts)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">954</td>
+                    <td class="num">611</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">955</td>
+                    <td class="num">612</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">956</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        if (isTRUE(input$qq_line)) {</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">957</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">          plot_call &lt;- substitute(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">958</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">614</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            expr = plot_call +</pre>
+                      <pre class="language-r">#' Generates the HTML code for the \code{sparkline} widget</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">959</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">              stat_qq_line(distribution = mapped_dist, dparams = params),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">960</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">            env = list(plot_call = plot_call, mapped_dist = as.name(unname(map_dist[t_dist])))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">961</td>
+                    <td class="num">617</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">#' @param bar_spacing \code{numeric} the spacing between the bars (in pixels)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">962</td>
+                    <td class="num">618</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">#' @param bar_width \code{numeric} the width of the bars (in pixels)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">963</td>
+                    <td class="num">619</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">964</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">620</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        all_ggplot2_args &lt;- teal.widgets::resolve_ggplot2_args(</pre>
+                      <pre class="language-r">#' @return \code{character} with HTML code for the \code{sparkline} widget</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">965</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">621</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          user_plot = ggplot2_args[["QQplot"]],</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">966</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">          user_default = ggplot2_args$default,</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">967</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">          module_plot = teal.widgets::ggplot2_args(labs = list(x = "theoretical", y = "sample"))</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">968</td>
+                    <td class="num">624</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#' @rdname create_sparklines</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">969</td>
+                    <td class="num">625</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">create_sparklines.POSIXct &lt;- function(arr, width = 150, bar_spacing = 5, bar_width = 20, ...) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">970</td>
+                    <td class="num">626</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        parsed_ggplot2_args &lt;- teal.widgets::parse_ggplot2_args(</pre>
+                      <pre class="language-r">  arr_num &lt;- as.numeric(arr)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">971</td>
+                    <td class="num">627</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          all_ggplot2_args,</pre>
+                      <pre class="language-r">  arr_num &lt;- sort(arr_num, decreasing = FALSE, method = "radix")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">972</td>
+                    <td class="num">628</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ggtheme = ggtheme</pre>
+                      <pre class="language-r">  binwidth &lt;- get_bin_width(arr_num, 1)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">973</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">629</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">  bins &lt;- floor(diff(range(arr_num)) / binwidth) + 1</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">974</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">630</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  if (all(is.na(bins))) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">975</td>
+                    <td class="num">631</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        teal.code::eval_code(</pre>
+                      <pre class="language-r">    return(as.character(tags$code("only NA", class = "text-blue")))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">976</td>
+                    <td class="num">632</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          qenv,</pre>
+                      <pre class="language-r">  } else if (bins == 1) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">977</td>
+                    <td class="num">633</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          substitute(</pre>
+                      <pre class="language-r">    return(as.character(tags$code("one date-time", class = "text-blue")))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">978</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">634</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            expr = {</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">979</td>
+                    <td class="num">635</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              g &lt;- plot_call</pre>
+                      <pre class="language-r">  counts &lt;- as.vector(unname(base::table(cut(arr_num, breaks = bins))))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">980</td>
+                    <td class="num">636</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              print(g)</pre>
+                      <pre class="language-r">  max_value &lt;- max(counts)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">981</td>
+                    <td class="num">637</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">982</td>
+                    <td class="num">638</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            env = list(plot_call = Reduce(function(x, y) call("+", x, y), c(plot_call, parsed_ggplot2_args)))</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">983</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">  start_bins &lt;- as.integer(seq(1, length(arr_num), length.out = bins))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">984</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">639</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">  labels_start &lt;- as.character(format(as.POSIXct(arr_num[start_bins], origin = as.Date("1970-01-01")), "%Y-%m-%d"))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">985</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">640</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">  labels &lt;- paste("Start:", labels_start)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">986</td>
+                    <td class="num">641</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">987</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">642</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  sparkline::spk_chr(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">988</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">643</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # test qenv ----</pre>
+                      <pre class="language-r">    unname(counts),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">989</td>
+                    <td class="num">644</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    test_q &lt;- eventReactive(</pre>
+                      <pre class="language-r">    type = "bar",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">990</td>
+                    <td class="num">645</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ignoreNULL = FALSE,</pre>
+                      <pre class="language-r">    chartRangeMin = 0,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">991</td>
+                    <td class="num">646</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      eventExpr = {</pre>
+                      <pre class="language-r">    chartRangeMax = max_value,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">992</td>
+                    <td class="num">647</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        common_q()</pre>
+                      <pre class="language-r">    width = width,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">993</td>
+                    <td class="num">648</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        input$dist_param1</pre>
+                      <pre class="language-r">    barWidth = bar_width,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">994</td>
+                    <td class="num">649</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        input$dist_param2</pre>
+                      <pre class="language-r">    barSpacing = bar_spacing,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">995</td>
+                    <td class="num">650</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        input$dist_tests</pre>
+                      <pre class="language-r">    tooltipFormatter = custom_sparkline_formatter(labels, counts)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">996</td>
+                    <td class="num">651</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">997</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">652</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      valueExpr = {</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">998</td>
+                    <td class="num">653</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # Create a private stack for this function only.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">999</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">654</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ANL &lt;- common_q()[["ANL"]] # nolint: object_name.</pre>
+                      <pre class="language-r">#' Generates the HTML code for the \code{sparkline} widget</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1000</td>
+                    <td class="num">655</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">1001</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">656</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        dist_var &lt;- merge_vars()$dist_var</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1002</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">657</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        s_var &lt;- merge_vars()$s_var</pre>
+                      <pre class="language-r">#' @param bar_spacing \code{numeric} the spacing between the bars (in pixels)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1003</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">658</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        g_var &lt;- merge_vars()$g_var</pre>
+                      <pre class="language-r">#' @param bar_width \code{numeric} the width of the bars (in pixels)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1004</td>
+                    <td class="num">659</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">1005</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">660</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        dist_var_name &lt;- merge_vars()$dist_var_name</pre>
+                      <pre class="language-r">#' @return \code{character} with HTML code for the \code{sparkline} widget</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1006</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">661</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        s_var_name &lt;- merge_vars()$s_var_name</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1007</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">662</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        g_var_name &lt;- merge_vars()$g_var_name</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1008</td>
+                    <td class="num">663</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="missed">
-                    <td class="num">1009</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">664</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        dist_param1 &lt;- input$dist_param1</pre>
+                      <pre class="language-r">#' @rdname create_sparklines</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1010</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">665</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        dist_param2 &lt;- input$dist_param2</pre>
+                      <pre class="language-r">create_sparklines.POSIXlt &lt;- function(arr, width = 150, bar_spacing = 5, bar_width = 20, ...) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1011</td>
+                    <td class="num">666</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        dist_tests &lt;- input$dist_tests</pre>
+                      <pre class="language-r">  arr_num &lt;- as.numeric(arr)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1012</td>
+                    <td class="num">667</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        t_dist &lt;- input$t_dist</pre>
+                      <pre class="language-r">  arr_num &lt;- sort(arr_num, decreasing = FALSE, method = "radix")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1013</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">668</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  binwidth &lt;- get_bin_width(arr_num, 1)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1014</td>
+                    <td class="num">669</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        validate(need(dist_tests, "Please select a test"))</pre>
+                      <pre class="language-r">  bins &lt;- floor(diff(range(arr_num)) / binwidth) + 1</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1015</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">670</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  if (all(is.na(bins))) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1016</td>
+                    <td class="num">671</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        teal::validate_inputs(iv_dist)</pre>
+                      <pre class="language-r">    return(as.character(tags$code("only NA", class = "text-blue")))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1017</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">672</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  } else if (bins == 1) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1018</td>
+                    <td class="num">673</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (length(s_var) &gt; 0 || length(g_var) &gt; 0) {</pre>
+                      <pre class="language-r">    return(as.character(tags$code("one date-time", class = "text-blue")))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1019</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">674</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          counts &lt;- ANL %&gt;%</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1020</td>
+                    <td class="num">675</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            dplyr::group_by_at(dplyr::vars(dplyr::any_of(c(s_var, g_var)))) %&gt;%</pre>
+                      <pre class="language-r">  counts &lt;- as.vector(unname(base::table(cut(arr_num, breaks = bins))))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1021</td>
+                    <td class="num">676</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            dplyr::summarise(n = dplyr::n())</pre>
+                      <pre class="language-r">  max_value &lt;- max(counts)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1022</td>
+                    <td class="num">677</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1023</td>
+                    <td class="num">678</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          validate(need(all(counts$n &gt; 5), "Please select strata*group with at least 5 observation each."))</pre>
+                      <pre class="language-r">  start_bins &lt;- as.integer(seq(1, length(arr_num), length.out = bins))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1024</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">679</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">  labels_start &lt;- as.character(format(as.POSIXct(arr_num[start_bins], origin = as.Date("1970-01-01")), "%Y-%m-%d"))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1025</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">680</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  labels &lt;- paste("Start:", labels_start)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1026</td>
+                    <td class="num">681</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1027</td>
+                    <td class="num">682</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (dist_tests %in% c(</pre>
+                      <pre class="language-r">  sparkline::spk_chr(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1028</td>
+                    <td class="num">683</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "t-test (two-samples, not paired)",</pre>
+                      <pre class="language-r">    unname(counts),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1029</td>
+                    <td class="num">684</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "F-test",</pre>
+                      <pre class="language-r">    type = "bar",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1030</td>
+                    <td class="num">685</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "Kolmogorov-Smirnov (two-samples)"</pre>
+                      <pre class="language-r">    chartRangeMin = 0,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1031</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">686</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )) {</pre>
+                      <pre class="language-r">    chartRangeMax = max_value,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1032</td>
+                    <td class="num">687</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          if (length(g_var) == 0 &amp;&amp; length(s_var) &gt; 0) {</pre>
+                      <pre class="language-r">    width = width,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1033</td>
+                    <td class="num">688</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            validate(need(</pre>
+                      <pre class="language-r">    barWidth = bar_width,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1034</td>
+                    <td class="num">689</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              length(unique(ANL[[s_var]])) == 2,</pre>
+                      <pre class="language-r">    barSpacing = bar_spacing,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1035</td>
+                    <td class="num">690</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              "Please select stratify variable with 2 levels."</pre>
+                      <pre class="language-r">    tooltipFormatter = custom_sparkline_formatter(labels, counts)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1036</td>
+                    <td class="num">691</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ))</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1037</td>
+                    <td class="num">692</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">1038</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">693</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          if (length(g_var) &gt; 0 &amp;&amp; length(s_var) &gt; 0) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1039</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">694</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">1040</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">695</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              all(stats::na.omit(as.vector(</pre>
+                      <pre class="language-r">#' Generates the HTML code for the \code{sparkline} widget</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1041</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">696</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                tapply(ANL[[s_var]], list(ANL[[g_var]]), function(x) length(unique(x))) == 2</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1042</td>
+                    <td class="num">697</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              ))),</pre>
+                      <pre class="language-r">#' Coerces a character vector to factor and delegates to the \code{create_sparklines.factor}</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1043</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">698</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              "Please select stratify variable with 2 levels, per each group."</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1044</td>
+                    <td class="num">699</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1045</td>
+                    <td class="num">700</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          }</pre>
+                      <pre class="language-r">#' @return \code{character} with HTML code for the \code{sparkline} widget</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1046</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">1047</td>
+                    <td class="num">702</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="missed">
-                    <td class="num">1048</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">703</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        map_dist &lt;- stats::setNames(</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1049</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">704</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          c("pnorm", "plnorm", "pgamma", "punif"),</pre>
+                      <pre class="language-r">#' @rdname create_sparklines</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">705</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">create_sparklines.character &lt;- function(arr, ...) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1050</td>
+                    <td class="num">706</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          c("normal", "lognormal", "gamma", "unif")</pre>
+                      <pre class="language-r">  return(create_sparklines(as.factor(arr)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1051</td>
+                    <td class="num">707</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">1052</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">708</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        sks_args &lt;- list(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1053</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">709</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          test = quote(stats::ks.test),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1054</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">710</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          args = bquote(append(list(.[[.(dist_var)]], .(map_dist[t_dist])), params)),</pre>
+                      <pre class="language-r">#' Generates the HTML code for the \code{sparkline} widget</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1055</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">711</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          groups = c(g_var, s_var)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1056</td>
+                    <td class="num">712</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#' Coerces logical vector to factor and delegates to the \code{create_sparklines.factor}</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1057</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">713</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ssw_args &lt;- list(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1058</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">714</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          test = quote(stats::shapiro.test),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1059</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">715</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          args = bquote(list(.[[.(dist_var)]])),</pre>
+                      <pre class="language-r">#' @return \code{character} with HTML code for the \code{sparkline} widget</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1060</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">716</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          groups = c(g_var, s_var)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1061</td>
+                    <td class="num">717</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="missed">
-                    <td class="num">1062</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">718</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        mfil_args &lt;- list(</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1063</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">719</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          test = quote(stats::fligner.test),</pre>
+                      <pre class="language-r">#' @rdname create_sparklines</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1064</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">720</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          args = bquote(list(.[[.(dist_var)]], .[[.(s_var)]])),</pre>
+                      <pre class="language-r">create_sparklines.logical &lt;- function(arr, ...) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1065</td>
+                    <td class="num">721</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          groups = c(g_var)</pre>
+                      <pre class="language-r">  return(create_sparklines(as.factor(arr)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1066</td>
+                    <td class="num">722</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">1067</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">723</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        sad_args &lt;- list(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1068</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">724</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          test = quote(goftest::ad.test),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1069</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">725</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          args = bquote(append(list(.[[.(dist_var)]], .(map_dist[t_dist])), params)),</pre>
+                      <pre class="language-r">#' Generates the \code{sparkline} HTML code</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1070</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">726</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          groups = c(g_var, s_var)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1071</td>
+                    <td class="num">727</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#' @param bar_spacing \code{numeric} spacing between the bars (in pixels)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1072</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">728</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        scvm_args &lt;- list(</pre>
+                      <pre class="language-r">#' @param bar_width \code{numeric} width of the bars (in pixels)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1073</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">729</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          test = quote(goftest::cvm.test),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1074</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">730</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          args = bquote(append(list(.[[.(dist_var)]], .(map_dist[t_dist])), params)),</pre>
+                      <pre class="language-r">#' @return \code{character} with HTML code for the \code{sparkline} widget</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1075</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">731</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          groups = c(g_var, s_var)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1076</td>
+                    <td class="num">732</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="missed">
-                    <td class="num">1077</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">733</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        manov_args &lt;- list(</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1078</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">734</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          test = quote(stats::aov),</pre>
+                      <pre class="language-r">#' @rdname create_sparklines</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1079</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">735</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          args = bquote(list(stats::formula(.(dist_var_name) ~ .(s_var_name)), .)),</pre>
+                      <pre class="language-r">create_sparklines.factor &lt;- function(arr, width = 150, bar_spacing = 5, bar_width = 20, ...) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1080</td>
+                    <td class="num">736</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          groups = c(g_var)</pre>
+                      <pre class="language-r">  decreasing_order &lt;- TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1081</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="missed">
-                    <td class="num">1082</td>
+                    <td class="num">738</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        mt_args &lt;- list(</pre>
+                      <pre class="language-r">  counts &lt;- table(arr)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1083</td>
+                    <td class="num">739</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          test = quote(stats::t.test),</pre>
+                      <pre class="language-r">  if (length(counts) &gt;= 100) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1084</td>
+                    <td class="num">740</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          args = bquote(unname(split(.[[.(dist_var)]], .[[.(s_var)]], drop = TRUE))),</pre>
+                      <pre class="language-r">    return(as.character(tags$code("&gt; 99 levels", class = "text-blue")))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1085</td>
+                    <td class="num">741</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          groups = c(g_var)</pre>
+                      <pre class="language-r">  } else if (length(counts) == 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1086</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">742</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">    return(as.character(tags$code("no levels", class = "text-blue")))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1087</td>
+                    <td class="num">743</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        mv_args &lt;- list(</pre>
+                      <pre class="language-r">  } else if (length(counts) == 1) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1088</td>
+                    <td class="num">744</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          test = quote(stats::var.test),</pre>
+                      <pre class="language-r">    return(as.character(tags$code("one level", class = "text-blue")))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1089</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">745</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          args = bquote(unname(split(.[[.(dist_var)]], .[[.(s_var)]], drop = TRUE))),</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1090</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">746</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          groups = c(g_var)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1091</td>
+                    <td class="num">747</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">  # Summarize the occurences of different levels</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1092</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">748</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        mks_args &lt;- list(</pre>
+                      <pre class="language-r">  # and get the maximum and minimum number of occurences</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1093</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">749</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          test = quote(stats::ks.test),</pre>
+                      <pre class="language-r">  # This is needed for the sparkline to correctly display the bar plots</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">750</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  # Otherwise they are cropped</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1094</td>
+                    <td class="num">751</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          args = bquote(unname(split(.[[.(dist_var)]], .[[.(s_var)]], drop = TRUE))),</pre>
+                      <pre class="language-r">  counts &lt;- sort(counts, decreasing = decreasing_order, method = "radix")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1095</td>
+                    <td class="num">752</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          groups = c(g_var)</pre>
+                      <pre class="language-r">  max_value &lt;- if (decreasing_order) counts[1] else counts[length[counts]]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1096</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">753</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">  max_value &lt;- unname(max_value)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1097</td>
+                    <td class="num">754</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1098</td>
+                    <td class="num">755</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        tests_base &lt;- switch(dist_tests,</pre>
+                      <pre class="language-r">  sparkline::spk_chr(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1099</td>
+                    <td class="num">756</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "Kolmogorov-Smirnov (one-sample)" = sks_args,</pre>
+                      <pre class="language-r">    unname(counts),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1100</td>
+                    <td class="num">757</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "Shapiro-Wilk" = ssw_args,</pre>
+                      <pre class="language-r">    type = "bar",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1101</td>
+                    <td class="num">758</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "Fligner-Killeen" = mfil_args,</pre>
+                      <pre class="language-r">    chartRangeMin = 0,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1102</td>
+                    <td class="num">759</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "one-way ANOVA" = manov_args,</pre>
+                      <pre class="language-r">    chartRangeMax = max_value,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1103</td>
+                    <td class="num">760</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "t-test (two-samples, not paired)" = mt_args,</pre>
+                      <pre class="language-r">    width = width,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1104</td>
+                    <td class="num">761</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "F-test" = mv_args,</pre>
+                      <pre class="language-r">    barWidth = bar_width,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1105</td>
+                    <td class="num">762</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "Kolmogorov-Smirnov (two-samples)" = mks_args,</pre>
+                      <pre class="language-r">    barSpacing = bar_spacing,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1106</td>
+                    <td class="num">763</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "Anderson-Darling (one-sample)" = sad_args,</pre>
+                      <pre class="language-r">    tooltipFormatter = custom_sparkline_formatter(names(counts), as.vector(counts))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1107</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">764</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "Cramer-von Mises (one-sample)" = scvm_args</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1108</td>
+                    <td class="num">765</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1109</td>
+                    <td class="num">766</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1110</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">767</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        env &lt;- list(</pre>
+                      <pre class="language-r">#' Generates the \code{sparkline} HTML code</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1111</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">768</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          t_test = t_dist,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1112</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">769</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          dist_var = dist_var,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1113</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">770</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          g_var = g_var,</pre>
+                      <pre class="language-r">#' @return \code{character} with HTML code for the \code{sparkline} widget</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1114</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">771</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          s_var = s_var,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1115</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">772</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          args = tests_base$args,</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1116</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">773</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          groups = tests_base$groups,</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1117</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">774</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          test = tests_base$test,</pre>
+                      <pre class="language-r">#' @rdname create_sparklines</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1118</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">775</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          dist_var_name = dist_var_name,</pre>
+                      <pre class="language-r">create_sparklines.numeric &lt;- function(arr, width = 150, ...) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1119</td>
+                    <td class="num">776</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          g_var_name = g_var_name,</pre>
+                      <pre class="language-r">  if (any(is.infinite(arr))) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1120</td>
+                    <td class="num">777</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          s_var_name = s_var_name</pre>
+                      <pre class="language-r">    return(as.character(tags$code("infinite values", class = "text-blue")))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1121</td>
+                    <td class="num">778</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1122</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">779</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  if (length(arr) &gt; 100000) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1123</td>
+                    <td class="num">780</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        qenv &lt;- common_q()</pre>
+                      <pre class="language-r">    return(as.character(tags$code("Too many rows (&gt;100000)", class = "text-blue")))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1124</td>
+                    <td class="num">781</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">782</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1125</td>
+                    <td class="num">783</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (length(s_var) == 0 &amp;&amp; length(g_var) == 0) {</pre>
+                      <pre class="language-r">  arr &lt;- arr[!is.na(arr)]</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1126</td>
+                    <td class="num">784</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          qenv &lt;- teal.code::eval_code(</pre>
+                      <pre class="language-r">  res &lt;- sparkline::spk_chr(unname(arr), type = "box", width = width, ...)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1127</td>
+                    <td class="num">785</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            qenv,</pre>
+                      <pre class="language-r">  return(res)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1128</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">786</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            substitute(</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1129</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">787</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              expr = {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1130</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">788</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                test_stats &lt;- ANL %&gt;%</pre>
+                      <pre class="language-r">#' Summarizes variable</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1131</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">789</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  dplyr::select(dist_var) %&gt;%</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1132</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">790</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  with(., broom::glance(do.call(test, args))) %&gt;%</pre>
+                      <pre class="language-r">#' Creates html summary with statistics relevant to data type. For numeric values it returns central</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1133</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">791</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  dplyr::mutate_if(is.numeric, round, 3)</pre>
+                      <pre class="language-r">#' tendency measures, for factor returns level counts, for Date  date range, for other just</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1134</td>
+                    <td class="num">792</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              },</pre>
+                      <pre class="language-r">#' number of levels.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1135</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">793</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              env = env</pre>
+                      <pre class="language-r">#' @param x vector of any type</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1136</td>
+                    <td class="num">794</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">#' @param numeric_as_factor \code{logical} should the numeric variable be treated as a factor</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1137</td>
+                    <td class="num">795</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">#' @param dt_rows \code{numeric} current/latest `DT` page length</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1138</td>
+                    <td class="num">796</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        } else {</pre>
+                      <pre class="language-r">#' @param outlier_definition If 0 no outliers are removed, otherwise</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1139</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">797</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          qenv &lt;- teal.code::eval_code(</pre>
+                      <pre class="language-r">#'   outliers (those more than outlier_definition*IQR below/above Q1/Q3 be removed)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1140</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">798</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            qenv,</pre>
+                      <pre class="language-r">#' @return text with simple statistics.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1141</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">799</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            substitute(</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1142</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">800</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              expr = {</pre>
+                      <pre class="language-r">var_summary_table &lt;- function(x, numeric_as_factor, dt_rows, outlier_definition) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1143</td>
+                    <td class="num">801</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                test_stats &lt;- ANL %&gt;%</pre>
+                      <pre class="language-r">  if (is.null(dt_rows)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1144</td>
+                    <td class="num">802</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  dplyr::select(dist_var, s_var, g_var) %&gt;%</pre>
+                      <pre class="language-r">    dt_rows &lt;- 10</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1145</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">803</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  dplyr::group_by_at(dplyr::vars(dplyr::any_of(groups))) %&gt;%</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1146</td>
+                    <td class="num">804</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  dplyr::do(tests = broom::glance(do.call(test, args))) %&gt;%</pre>
+                      <pre class="language-r">  if (is.numeric(x) &amp;&amp; !numeric_as_factor) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1147</td>
+                    <td class="num">805</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  tidyr::unnest(tests) %&gt;%</pre>
+                      <pre class="language-r">    req(!any(is.infinite(x)))</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">806</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1148</td>
+                    <td class="num">807</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  dplyr::mutate_if(is.numeric, round, 3)</pre>
+                      <pre class="language-r">    x &lt;- remove_outliers_from(x, outlier_definition)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1149</td>
+                    <td class="num">808</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">1150</td>
+                    <td class="num">809</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              env = env</pre>
+                      <pre class="language-r">    qvals &lt;- round(stats::quantile(x, na.rm = TRUE, probs = c(0.25, 0.5, 0.75), type = 2), 2)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1151</td>
+                    <td class="num">810</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">    # classical central tendency measures</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1152</td>
+                    <td class="num">811</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1153</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">812</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">    summary &lt;-</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1154</td>
+                    <td class="num">813</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        qenv %&gt;%</pre>
+                      <pre class="language-r">      data.frame(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1155</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">814</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          # used to display table when running show-r-code code</pre>
+                      <pre class="language-r">        Statistic = c("min", "Q1", "median", "mean", "Q3", "max", "sd", "n"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1156</td>
+                    <td class="num">815</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          teal.code::eval_code(quote(test_stats))</pre>
+                      <pre class="language-r">        Value = c(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1157</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">816</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">          round(min(x, na.rm = TRUE), 2),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1158</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">817</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">          qvals[1],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1159</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">818</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          qvals[2],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1160</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">819</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # outputs ----</pre>
+                      <pre class="language-r">          round(mean(x, na.rm = TRUE), 2),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1161</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">820</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ## building main qenv</pre>
+                      <pre class="language-r">          qvals[3],</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1162</td>
+                    <td class="num">821</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    output_q &lt;- reactive({</pre>
+                      <pre class="language-r">          round(max(x, na.rm = TRUE), 2),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1163</td>
+                    <td class="num">822</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      tab &lt;- input$tabs</pre>
+                      <pre class="language-r">          round(stats::sd(x, na.rm = TRUE), 2),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1164</td>
+                    <td class="num">823</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      req(tab) # tab is NULL upon app launch, hence will crash without this statement</pre>
+                      <pre class="language-r">          length(x[!is.na(x)])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1165</td>
+                    <td class="num">824</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">1166</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">825</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      qenv_final &lt;- common_q()</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1167</td>
+                    <td class="num">826</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # wrapped in if since could lead into validate error - we do want to continue</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1168</td>
+                    <td class="num">827</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      test_r_qenv_out &lt;- try(test_q(), silent = TRUE)</pre>
+                      <pre class="language-r">    DT::datatable(summary, rownames = FALSE, options = list(dom = "&lt;t&gt;", pageLength = dt_rows))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1169</td>
+                    <td class="num">828</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (!inherits(test_r_qenv_out, c("try-error", "error"))) {</pre>
+                      <pre class="language-r">  } else if (is.factor(x) || is.character(x) || (is.numeric(x) &amp;&amp; numeric_as_factor) || is.logical(x)) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">829</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    # make sure factor is ordered numeric</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1170</td>
+                    <td class="num">830</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        qenv_final &lt;- teal.code::join(qenv_final, test_q())</pre>
+                      <pre class="language-r">    if (is.numeric(x)) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">831</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      x &lt;- factor(x, levels = sort(unique(x)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1171</td>
+                    <td class="num">832</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1172</td>
+                    <td class="num">833</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1173</td>
+                    <td class="num">834</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      qenv_final &lt;- if (tab == "Histogram") {</pre>
+                      <pre class="language-r">    level_counts &lt;- table(x)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1174</td>
+                    <td class="num">835</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        req(dist_q())</pre>
+                      <pre class="language-r">    max_levels_signif &lt;- nchar(level_counts)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1175</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">836</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        teal.code::join(qenv_final, dist_q())</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1176</td>
+                    <td class="num">837</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else if (tab == "QQplot") {</pre>
+                      <pre class="language-r">    if (!all(is.na(x))) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1177</td>
+                    <td class="num">838</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        req(qq_q())</pre>
+                      <pre class="language-r">      levels &lt;- names(level_counts)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1178</td>
+                    <td class="num">839</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        teal.code::join(qenv_final, qq_q())</pre>
+                      <pre class="language-r">      counts &lt;- sprintf(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1179</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">840</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">        "%s [%.2f%%]",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1180</td>
+                    <td class="num">841</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      qenv_final</pre>
+                      <pre class="language-r">        format(level_counts, width = max_levels_signif), prop.table(level_counts) * 100</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1181</td>
+                    <td class="num">842</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1182</td>
+                    <td class="num">843</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">1183</td>
+                    <td class="num">844</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dist_r &lt;- reactive(dist_q()[["g"]])</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">1184</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      levels &lt;- character(0)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1185</td>
+                    <td class="num">845</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    qq_r &lt;- reactive(qq_q()[["g"]])</pre>
+                      <pre class="language-r">      counts &lt;- numeric(0)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1186</td>
+                    <td class="num">846</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">1187</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">847</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    output$summary_table &lt;- DT::renderDataTable(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1188</td>
+                    <td class="num">848</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      expr = if (iv_r()$is_valid()) common_q()[["summary_table"]] else NULL,</pre>
+                      <pre class="language-r">    summary &lt;- data.frame(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1189</td>
+                    <td class="num">849</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      options = list(</pre>
+                      <pre class="language-r">      Level = levels,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1190</td>
+                    <td class="num">850</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        autoWidth = TRUE,</pre>
+                      <pre class="language-r">      Count = counts,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1191</td>
+                    <td class="num">851</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        columnDefs = list(list(width = "200px", targets = "_all"))</pre>
+                      <pre class="language-r">      stringsAsFactors = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1192</td>
+                    <td class="num">852</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">1193</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">853</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      rownames = FALSE</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1194</td>
+                    <td class="num">854</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">    # sort the dataset in decreasing order of counts (needed as character variables default to alphabetical)</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">855</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    summary &lt;- summary[order(summary$Count, decreasing = TRUE), ]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1195</td>
+                    <td class="num">856</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1196</td>
+                    <td class="num">857</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tests_r &lt;- reactive({</pre>
+                      <pre class="language-r">    dom_opts &lt;- if (nrow(summary) &lt;= 10) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1197</td>
+                    <td class="num">858</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      req(iv_r()$is_valid())</pre>
+                      <pre class="language-r">      "&lt;t&gt;"</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1198</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">859</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal::validate_inputs(iv_r_dist())</pre>
+                      <pre class="language-r">    } else {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1199</td>
+                    <td class="num">860</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      test_q()[["test_stats"]]</pre>
+                      <pre class="language-r">      "&lt;lf&lt;t&gt;ip&gt;"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1200</td>
+                    <td class="num">861</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1201</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">862</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    DT::datatable(summary, rownames = FALSE, options = list(dom = dom_opts, pageLength = dt_rows))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1202</td>
+                    <td class="num">863</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    pws1 &lt;- teal.widgets::plot_with_settings_srv(</pre>
+                      <pre class="language-r">  } else if (inherits(x, "Date") || inherits(x, "POSIXct") || inherits(x, "POSIXlt")) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1203</td>
+                    <td class="num">864</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      id = "hist_plot",</pre>
+                      <pre class="language-r">    summary &lt;-</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1204</td>
+                    <td class="num">865</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      plot_r = dist_r,</pre>
+                      <pre class="language-r">      data.frame(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1205</td>
+                    <td class="num">866</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      height = plot_height,</pre>
+                      <pre class="language-r">        Statistic = c("min", "median", "max"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1206</td>
+                    <td class="num">867</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      width = plot_width,</pre>
+                      <pre class="language-r">        Value = c(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1207</td>
+                    <td class="num">868</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      brushing = FALSE</pre>
+                      <pre class="language-r">          min(x, na.rm = TRUE),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1208</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">869</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">          stats::median(x, na.rm = TRUE),</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">870</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          max(x, na.rm = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1209</td>
+                    <td class="num">871</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">1210</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">872</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    pws2 &lt;- teal.widgets::plot_with_settings_srv(</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1211</td>
+                    <td class="num">873</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      id = "qq_plot",</pre>
+                      <pre class="language-r">    DT::datatable(summary, rownames = FALSE, options = list(dom = "&lt;t&gt;", pageLength = dt_rows))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1212</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">874</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      plot_r = qq_r,</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1213</td>
+                    <td class="num">875</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      height = plot_height,</pre>
+                      <pre class="language-r">    NULL</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1214</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">876</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      width = plot_width,</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1215</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">877</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      brushing = FALSE</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1216</td>
+                    <td class="num">878</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1217</td>
+                    <td class="num">879</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1218</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">880</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    output$t_stats &lt;- DT::renderDataTable(</pre>
+                      <pre class="language-r">#' Plot variable</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1219</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">881</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      expr = tests_r(),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1220</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">882</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      options = list(scrollX = TRUE),</pre>
+                      <pre class="language-r">#' Creates summary plot with statistics relevant to data type.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1221</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">883</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      rownames = FALSE</pre>
+                      <pre class="language-r">#' @inheritParams shared_params</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1222</td>
+                    <td class="num">884</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#' @param var vector of any type to be plotted. For numeric variables it produces histogram with</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1223</td>
+                    <td class="num">885</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' density line, for factors it creates frequency plot</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1224</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">886</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    teal.widgets::verbatim_popup_srv(</pre>
+                      <pre class="language-r">#' @param var_lab text describing selected variable to be displayed on the plot</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1225</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">887</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      id = "warning",</pre>
+                      <pre class="language-r">#' @param wrap_character (`numeric`) number of characters at which to wrap text values of `var`</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1226</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">888</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      verbatim_content = reactive(teal.code::get_warnings(output_q())),</pre>
+                      <pre class="language-r">#' @param numeric_as_factor (`logical`) should the numeric variable be treated as a factor</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1227</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">889</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      title = "Warning",</pre>
+                      <pre class="language-r">#' @param display_density (`logical`) should density estimation be displayed for numeric values</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1228</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">890</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      disabled = reactive(is.null(teal.code::get_warnings(output_q())))</pre>
+                      <pre class="language-r">#' @param remove_NA_hist (`logical`) should (`NA`) values be removed for histogram of factor like variables</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1229</td>
+                    <td class="num">891</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#' @param outlier_definition if 0 no outliers are removed, otherwise</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1230</td>
+                    <td class="num">892</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   outliers (those more than outlier_definition*IQR below/above Q1/Q3 be removed)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1231</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">893</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    teal.widgets::verbatim_popup_srv(</pre>
+                      <pre class="language-r">#' @param records_for_factor (`numeric`) if the number of factor levels is &gt;= than this value then</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1232</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">894</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      id = "rcode",</pre>
+                      <pre class="language-r">#'   a graph of the factors isn't shown, only a list of values</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1233</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">895</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      verbatim_content = reactive(teal.code::get_code(output_q())),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1234</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">896</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      title = "R Code for distribution"</pre>
+                      <pre class="language-r">#' @return plot</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1235</td>
+                    <td class="num">897</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">1236</td>
+                    <td class="num">898</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">plot_var_summary &lt;- function(var,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1237</td>
+                    <td class="num">899</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ### REPORTER</pre>
+                      <pre class="language-r">                             var_lab,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1238</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">900</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (with_reporter) {</pre>
+                      <pre class="language-r">                             wrap_character = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1239</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">901</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      card_fun &lt;- function(comment, label) {</pre>
+                      <pre class="language-r">                             numeric_as_factor,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1240</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">902</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        card &lt;- teal::report_card_template(</pre>
+                      <pre class="language-r">                             display_density = is.numeric(var),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1241</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">903</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          title = "Distribution Plot",</pre>
+                      <pre class="language-r">                             remove_NA_hist = FALSE, # nolint: object_name.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1242</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">904</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          label = label,</pre>
+                      <pre class="language-r">                             outlier_definition,</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">905</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                             records_for_factor,</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">906</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                             ggplot2_args) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1243</td>
+                    <td class="num">907</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          with_filter = with_filter,</pre>
+                      <pre class="language-r">  checkmate::assert_character(var_lab)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1244</td>
+                    <td class="num">908</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          filter_panel_api = filter_panel_api</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(wrap_character, null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1245</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">909</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">  checkmate::assert_flag(numeric_as_factor)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1246</td>
+                    <td class="num">910</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        card$append_text("Plot", "header3")</pre>
+                      <pre class="language-r">  checkmate::assert_flag(display_density)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1247</td>
+                    <td class="num">911</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (input$tabs == "Histogram") {</pre>
+                      <pre class="language-r">  checkmate::assert_logical(remove_NA_hist, null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1248</td>
+                    <td class="num">912</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          card$append_plot(dist_r(), dim = pws1$dim())</pre>
+                      <pre class="language-r">  checkmate::assert_number(outlier_definition, lower = 0, finite = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1249</td>
+                    <td class="num">913</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        } else if (input$tabs == "QQplot") {</pre>
+                      <pre class="language-r">  checkmate::assert_integerish(records_for_factor, lower = 0, len = 1, any.missing = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1250</td>
+                    <td class="num">914</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          card$append_plot(qq_r(), dim = pws2$dim())</pre>
+                      <pre class="language-r">  checkmate::assert_class(ggplot2_args, "ggplot2_args")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1251</td>
+                    <td class="num">915</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">1252</td>
+                    <td class="num">916</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        card$append_text("Statistics table", "header3")</pre>
+                      <pre class="language-r">  grid::grid.newpage()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1253</td>
+                    <td class="num">917</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1254</td>
+                    <td class="num">918</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        card$append_table(common_q()[["summary_table"]])</pre>
+                      <pre class="language-r">  plot_main &lt;- if (is.factor(var) || is.character(var) || is.logical(var)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1255</td>
+                    <td class="num">919</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        tests_error &lt;- tryCatch(expr = tests_r(), error = function(e) "error")</pre>
+                      <pre class="language-r">    groups &lt;- unique(as.character(var))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1256</td>
+                    <td class="num">920</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (inherits(tests_error, "data.frame")) {</pre>
+                      <pre class="language-r">    len_groups &lt;- length(groups)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1257</td>
+                    <td class="num">921</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          card$append_text("Tests table", "header3")</pre>
+                      <pre class="language-r">    if (len_groups &gt;= records_for_factor) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1258</td>
+                    <td class="num">922</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          card$append_table(tests_r())</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">1259</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">1260</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      grid::textGrob(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1261</td>
+                    <td class="num">923</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (!comment == "") {</pre>
+                      <pre class="language-r">        sprintf(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1262</td>
+                    <td class="num">924</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          card$append_text("Comment", "header3")</pre>
+                      <pre class="language-r">          "%s unique values\n%s:\n %s\n ...\n %s",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1263</td>
+                    <td class="num">925</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          card$append_text(comment)</pre>
+                      <pre class="language-r">          len_groups,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1264</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">926</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">          var_lab,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1265</td>
+                    <td class="num">927</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        card$append_src(teal.code::get_code(output_q()))</pre>
+                      <pre class="language-r">          paste(utils::head(groups), collapse = ",\n "),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1266</td>
+                    <td class="num">928</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        card</pre>
+                      <pre class="language-r">          paste(utils::tail(groups), collapse = ",\n ")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1267</td>
+                    <td class="num">929</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">1268</td>
+                    <td class="num">930</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun)</pre>
+                      <pre class="language-r">        x = grid::unit(1, "line"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1269</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">931</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">        y = grid::unit(1, "npc") - grid::unit(1, "line"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1270</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">932</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ###</pre>
+                      <pre class="language-r">        just = c("left", "top")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1271</td>
+                    <td class="num">933</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1272</td>
+                    <td class="num">934</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">    } else {</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/tm_g_scatterplotmatrix.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">935</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Create a scatterplot matrix</pre>
+                      <pre class="language-r">      if (!is.null(wrap_character)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">2</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">936</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        var &lt;- stringr::str_wrap(var, width = wrap_character)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">937</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The available datasets to choose from for each dataset selector is the same and</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">938</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' determined by the argument `variables`.</pre>
+                      <pre class="language-r">      var &lt;- if (isTRUE(remove_NA_hist)) as.vector(stats::na.omit(var)) else var</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">5</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">939</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @md</pre>
+                      <pre class="language-r">      ggplot(data.frame(var), aes(x = forcats::fct_infreq(as.factor(var)))) +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">6</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">940</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        geom_bar(stat = "count", aes(fill = ifelse(is.na(var), "withcolor", "")), show.legend = FALSE) +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">7</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">941</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams teal::module</pre>
+                      <pre class="language-r">        scale_fill_manual(values = c("gray50", "tan"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">942</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams tm_g_scatterplot</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">9</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">943</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams shared_params</pre>
+                      <pre class="language-r">  } else if (is.numeric(var)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">10</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">944</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    validate(need(any(!is.na(var)), "No data left to visualize."))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">945</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param variables (`data_extract_spec` or `list` of multiple `data_extract_spec`)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">946</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  Plotting variables from an incoming dataset with filtering and selecting. In case of</pre>
+                      <pre class="language-r">    # Filter out NA</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">13</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">947</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  `data_extract_spec` use `select_spec(..., ordered = TRUE)` if plot elements should be</pre>
+                      <pre class="language-r">    var &lt;- var[which(!is.na(var))]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">948</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  rendered according to selection order.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">15</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">949</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    validate(need(!any(is.infinite(var)), "Cannot display graph when data includes infinite values"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">950</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @note For more examples, please see the vignette "Using scatterplot matrix" via</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">17</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">951</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   \code{vignette("using-scatterplot-matrix", package = "teal.modules.general")}.</pre>
+                      <pre class="language-r">    if (numeric_as_factor) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">18</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">952</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      var &lt;- factor(var)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">19</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">953</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">      ggplot(NULL, aes(x = var)) +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">20</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">954</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # general data example</pre>
+                      <pre class="language-r">        geom_histogram(stat = "count")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">955</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' data &lt;- teal_data()</pre>
+                      <pre class="language-r">    } else {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">956</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' data &lt;- within(data, {</pre>
+                      <pre class="language-r">      # remove outliers</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">23</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">957</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   countries &lt;- data.frame(</pre>
+                      <pre class="language-r">      if (outlier_definition != 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">24</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">958</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     id = c("DE", "FR", "IT", "ES", "PT", "GR", "NL", "BE", "LU", "AT"),</pre>
+                      <pre class="language-r">        number_records &lt;- length(var)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">25</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">959</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     government = factor(</pre>
+                      <pre class="language-r">        var &lt;- remove_outliers_from(var, outlier_definition)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">26</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">960</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       c(2, 2, 2, 1, 2, 2, 1, 1, 1, 2),</pre>
+                      <pre class="language-r">        number_outliers &lt;- number_records - length(var)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">27</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">961</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       labels = c("Monarchy", "Republic")</pre>
+                      <pre class="language-r">        outlier_text &lt;- paste0(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">28</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">962</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     ),</pre>
+                      <pre class="language-r">          number_outliers, " outliers (",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">29</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">963</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     language_family = factor(</pre>
+                      <pre class="language-r">          round(number_outliers / number_records * 100, 2),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">30</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">964</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       c(1, 3, 3, 3, 3, 2, 1, 1, 3, 1),</pre>
+                      <pre class="language-r">          "% of non-missing records) not shown"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
+                    <td class="num">965</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       labels = c("Germanic", "Hellenic", "Romance")</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">32</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">966</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     ),</pre>
+                      <pre class="language-r">        validate(need(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">33</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">967</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     population = c(83, 67, 60, 47, 10, 11, 17, 11, 0.6, 9),</pre>
+                      <pre class="language-r">          length(var) &gt; 1,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">34</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">968</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     area = c(357, 551, 301, 505, 92, 132, 41, 30, 2.6, 83),</pre>
+                      <pre class="language-r">          "At least two data points must remain after removing outliers for this graph to be displayed"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</td>
+                    <td class="num">969</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     gdp = c(3.4, 2.7, 2.1, 1.4, 0.3, 0.2, 0.7, 0.5, 0.1, 0.4),</pre>
+                      <pre class="language-r">        ))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">36</td>
+                    <td class="num">970</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     debt = c(2.1, 2.3, 2.4, 2.6, 2.3, 2.4, 2.3, 2.4, 2.3, 2.4)</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</td>
+                    <td class="num">971</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">      ## histogram</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">38</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">972</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   sales &lt;- data.frame(</pre>
+                      <pre class="language-r">      binwidth &lt;- get_bin_width(var)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">39</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">973</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     id = 1:50,</pre>
+                      <pre class="language-r">      p &lt;- ggplot(data = data.frame(var = var), aes(x = var, y = after_stat(count))) +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">40</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">974</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     country_id = sample(</pre>
+                      <pre class="language-r">        geom_histogram(binwidth = binwidth) +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">41</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">975</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       c("DE", "FR", "IT", "ES", "PT", "GR", "NL", "BE", "LU", "AT"),</pre>
+                      <pre class="language-r">        scale_y_continuous(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">42</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">976</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       size = 50,</pre>
+                      <pre class="language-r">          sec.axis = sec_axis(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">43</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">977</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       replace = TRUE</pre>
+                      <pre class="language-r">            trans = ~ . / nrow(data.frame(var = var)),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">44</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">978</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     ),</pre>
+                      <pre class="language-r">            labels = scales::percent,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">45</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">979</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     year = sort(sample(2010:2020, 50, replace = TRUE)),</pre>
+                      <pre class="language-r">            name = "proportion (in %)"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">46</td>
+                    <td class="num">980</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     venue = sample(c("small", "medium", "large", "online"), 50, replace = TRUE),</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">47</td>
+                    <td class="num">981</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     cancelled = sample(c(TRUE, FALSE), 50, replace = TRUE),</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">48</td>
+                    <td class="num">982</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     quantity = rnorm(50, 100, 20),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">49</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">983</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     costs = rnorm(50, 80, 20),</pre>
+                      <pre class="language-r">      if (display_density) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">50</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">984</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     profit = rnorm(50, 20, 10)</pre>
+                      <pre class="language-r">        p &lt;- p + geom_density(aes(y = after_stat(count * binwidth)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">51</td>
+                    <td class="num">985</td>
                     <td class="coverage"></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">986</td>
                     <td class="coverage"></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="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">987</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' datanames(data) &lt;- c("countries", "sales")</pre>
+                      <pre class="language-r">      if (outlier_definition != 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">54</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">988</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' join_keys(data) &lt;- join_keys(</pre>
+                      <pre class="language-r">        p &lt;- p + annotate(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">55</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">989</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   join_key("countries", "countries", "id"),</pre>
+                      <pre class="language-r">          geom = "text",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">56</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">990</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   join_key("sales", "sales", "id"),</pre>
+                      <pre class="language-r">          label = outlier_text,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">57</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">991</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   join_key("countries", "sales", c("id" = "country_id"))</pre>
+                      <pre class="language-r">          x = Inf, y = Inf,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">58</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">992</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">          hjust = 1.02, vjust = 1.2,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">59</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">993</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          color = "black",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">60</td>
+                    <td class="num">994</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' app &lt;- init(</pre>
+                      <pre class="language-r">          # explicitly modify geom text size according</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">61</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">995</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = data,</pre>
+                      <pre class="language-r">          size = ggplot2_args[["theme"]][["text"]][["size"]] / 3.5</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">62</td>
+                    <td class="num">996</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">63</td>
+                    <td class="num">997</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     tm_g_scatterplotmatrix(</pre>
+                      <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">998</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       label = "Scatterplot matrix",</pre>
+                      <pre class="language-r">      p</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">65</td>
+                    <td class="num">999</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       variables = list(</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">1000</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         data_extract_spec(</pre>
+                      <pre class="language-r">  } else if (inherits(var, "Date") || inherits(var, "POSIXct") || inherits(var, "POSIXlt")) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">67</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1001</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           dataname = "countries",</pre>
+                      <pre class="language-r">    var_num &lt;- as.numeric(var)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">68</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1002</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           select = select_spec(</pre>
+                      <pre class="language-r">    binwidth &lt;- get_bin_width(var_num, 1)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">69</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1003</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'             label = "Select variables:",</pre>
+                      <pre class="language-r">    p &lt;- ggplot(data = data.frame(var = var), aes(x = var, y = after_stat(count))) +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">70</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1004</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'             choices = variable_choices(data[["countries"]]),</pre>
+                      <pre class="language-r">      geom_histogram(binwidth = binwidth)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">71</td>
+                    <td class="num">1005</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'             selected = c("area", "gdp", "debt"),</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">72</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1006</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'             multiple = TRUE,</pre>
+                      <pre class="language-r">    grid::textGrob(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">73</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1007</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'             ordered = TRUE,</pre>
+                      <pre class="language-r">      paste(strwrap(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">74</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1008</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'             fixed = FALSE</pre>
+                      <pre class="language-r">        utils::capture.output(utils::str(var)),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">75</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1009</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           )</pre>
+                      <pre class="language-r">        width = .9 * grid::convertWidth(grid::unit(1, "npc"), "char", TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">76</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1010</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">77</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1011</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         data_extract_spec(</pre>
+                      <pre class="language-r">      x = grid::unit(1, "line"), y = grid::unit(1, "npc") - grid::unit(1, "line"), just = c("left", "top")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">78</td>
+                    <td class="num">1012</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           dataname = "sales",</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">79</td>
+                    <td class="num">1013</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           filter = filter_spec(</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">80</td>
+                    <td class="num">1014</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'             label = "Select variable:",</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">1015</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'             vars = "country_id",</pre>
+                      <pre class="language-r">  dev_ggplot2_args &lt;- teal.widgets::ggplot2_args(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">82</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1016</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'             choices = value_choices(data[["sales"]], "country_id"),</pre>
+                      <pre class="language-r">    labs = list(x = var_lab)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">83</td>
+                    <td class="num">1017</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'             selected = c("DE", "FR", "IT", "ES", "PT", "GR", "NL", "BE", "LU", "AT"),</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">84</td>
+                    <td class="num">1018</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'             multiple = TRUE</pre>
+                      <pre class="language-r">  ###</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">85</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1019</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           ),</pre>
+                      <pre class="language-r">  all_ggplot2_args &lt;- teal.widgets::resolve_ggplot2_args(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">86</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1020</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           select = select_spec(</pre>
+                      <pre class="language-r">    ggplot2_args,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">87</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1021</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'             label = "Select variables:",</pre>
+                      <pre class="language-r">    module_plot = dev_ggplot2_args</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">88</td>
+                    <td class="num">1022</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'             choices = variable_choices(data[["sales"]], c("quantity", "costs", "profit")),</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">89</td>
+                    <td class="num">1023</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'             selected = c("quantity", "costs", "profit"),</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">1024</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'             multiple = TRUE,</pre>
+                      <pre class="language-r">  if (is.ggplot(plot_main)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">91</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1025</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'             ordered = TRUE,</pre>
+                      <pre class="language-r">    if (is.numeric(var) &amp;&amp; !numeric_as_factor) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">92</td>
+                    <td class="num">1026</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'             fixed = FALSE</pre>
+                      <pre class="language-r">      # numeric not as factor</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">93</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1027</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           )</pre>
+                      <pre class="language-r">      plot_main &lt;- plot_main +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">94</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1028</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         )</pre>
+                      <pre class="language-r">        theme_light() +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">95</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1029</td>
+                    <td class="coverage">!</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">96</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1030</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     )</pre>
+                      <pre class="language-r">          labs = do.call("labs", all_ggplot2_args$labs),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">97</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1031</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">          theme = do.call("theme", all_ggplot2_args$theme)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">98</td>
+                    <td class="num">1032</td>
                     <td class="coverage"></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">1033</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' if (interactive()) {</pre>
+                      <pre class="language-r">    } else {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">100</td>
+                    <td class="num">1034</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   shinyApp(app$ui, app$server)</pre>
+                      <pre class="language-r">      # factor low number of levels OR numeric as factor OR Date</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">1035</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      plot_main &lt;- plot_main +</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">1036</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        theme_light() +</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">1037</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        list(</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">1038</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          labs = do.call("labs", all_ggplot2_args$labs),</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">1039</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          theme = do.call("theme", all_ggplot2_args$theme)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">101</td>
+                    <td class="num">1040</td>
                     <td class="coverage"></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">1041</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">1042</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    plot_main &lt;- ggplotGrob(plot_main)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">103</td>
+                    <td class="num">1043</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # CDISC data example</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">104</td>
+                    <td class="num">1044</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' data &lt;- teal_data()</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">1045</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  grid::grid.draw(plot_main)</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">1046</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  plot_main</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">105</td>
+                    <td class="num">1047</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' data &lt;- within(data, {</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">106</td>
+                    <td class="num">1048</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ADSL &lt;- rADSL</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">107</td>
+                    <td class="num">1049</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ADRS &lt;- rADRS</pre>
+                      <pre class="language-r">is_num_var_short &lt;- function(.unique_records_for_factor, input, data_for_analysis) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">1050</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  length(unique(data_for_analysis()$data)) &lt; .unique_records_for_factor &amp;&amp; !is.null(input$numeric_as_factor)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">108</td>
+                    <td class="num">1051</td>
                     <td class="coverage"></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">1052</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' datanames(data) &lt;- c("ADSL", "ADRS")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">110</td>
+                    <td class="num">1053</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' join_keys(data) &lt;- default_cdisc_join_keys[datanames(data)]</pre>
+                      <pre class="language-r">#' Validates the variable browser inputs</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">111</td>
+                    <td class="num">1054</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">112</td>
+                    <td class="num">1055</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' app &lt;- init(</pre>
+                      <pre class="language-r">#' @param input (`session$input`) the shiny session input</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">113</td>
+                    <td class="num">1056</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = data,</pre>
+                      <pre class="language-r">#' @param plot_var (`list`) list of a data frame and an array of variable names</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">114</td>
+                    <td class="num">1057</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   modules = modules(</pre>
+                      <pre class="language-r">#' @param data (`tdata`) the datasets passed to the module</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">115</td>
+                    <td class="num">1058</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     tm_g_scatterplotmatrix(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">116</td>
+                    <td class="num">1059</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       label = "Scatterplot matrix",</pre>
+                      <pre class="language-r">#' @returns `logical` TRUE if validations pass; a Shiny validation error otherwise</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">117</td>
+                    <td class="num">1060</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       variables = list(</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">118</td>
+                    <td class="num">1061</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         data_extract_spec(</pre>
+                      <pre class="language-r">validate_input &lt;- function(input, plot_var, data) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">119</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1062</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           dataname = "ADSL",</pre>
+                      <pre class="language-r">  reactive({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">120</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1063</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           select = select_spec(</pre>
+                      <pre class="language-r">    dataset_name &lt;- req(input$tabset_panel)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">121</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1064</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'             label = "Select variables:",</pre>
+                      <pre class="language-r">    varname &lt;- plot_var$variable[[dataset_name]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">122</td>
+                    <td class="num">1065</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'             choices = variable_choices(data[["ADSL"]]),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">123</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1066</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'             selected = c("AGE", "RACE", "SEX"),</pre>
+                      <pre class="language-r">    validate(need(dataset_name, "No data selected"))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">124</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1067</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'             multiple = TRUE,</pre>
+                      <pre class="language-r">    validate(need(varname, "No variable selected"))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">125</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1068</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'             ordered = TRUE,</pre>
+                      <pre class="language-r">    df &lt;- data()[[dataset_name]]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">126</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1069</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'             fixed = FALSE</pre>
+                      <pre class="language-r">    teal::validate_has_data(df, 1)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">127</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1070</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           )</pre>
+                      <pre class="language-r">    teal::validate_has_variable(varname = varname, data = df, "Variable not available")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">128</td>
+                    <td class="num">1071</td>
                     <td class="coverage"></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="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1072</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         data_extract_spec(</pre>
+                      <pre class="language-r">    TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">130</td>
+                    <td class="num">1073</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           dataname = "ADRS",</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">131</td>
+                    <td class="num">1074</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           filter = filter_spec(</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">132</td>
+                    <td class="num">1075</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'             label = "Select endpoints:",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">133</td>
+                    <td class="num">1076</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'             vars = c("PARAMCD", "AVISIT"),</pre>
+                      <pre class="language-r">get_plotted_data &lt;- function(input, plot_var, data) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">134</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1077</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'             choices = value_choices(data[["ADRS"]], c("PARAMCD", "AVISIT"), c("PARAM", "AVISIT")),</pre>
+                      <pre class="language-r">  dataset_name &lt;- input$tabset_panel</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">135</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1078</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'             selected = "INVET - END OF INDUCTION",</pre>
+                      <pre class="language-r">  varname &lt;- plot_var$variable[[dataset_name]]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">136</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1079</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'             multiple = TRUE</pre>
+                      <pre class="language-r">  df &lt;- data()[[dataset_name]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">137</td>
+                    <td class="num">1080</td>
                     <td class="coverage"></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="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1081</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           select = select_spec(</pre>
+                      <pre class="language-r">  var_description &lt;- teal.data::col_labels(df)[[varname]]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">139</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1082</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'             label = "Select variables:",</pre>
+                      <pre class="language-r">  list(data = df[[varname]], var_description = var_description)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">140</td>
+                    <td class="num">1083</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'             choices = variable_choices(data[["ADRS"]]),</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">141</td>
+                    <td class="num">1084</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'             selected = c("AGE", "AVAL", "ADY"),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">142</td>
+                    <td class="num">1085</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'             multiple = TRUE,</pre>
+                      <pre class="language-r">#' Renders the left-hand side `tabset` panel of the module</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">143</td>
+                    <td class="num">1086</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'             ordered = TRUE,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">144</td>
+                    <td class="num">1087</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'             fixed = FALSE</pre>
+                      <pre class="language-r">#' @param datanames (`character`) the name of the dataset</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">145</td>
+                    <td class="num">1088</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           )</pre>
+                      <pre class="language-r">#' @param parent_dataname (`character`) the name of a parent `dataname` to filter out variables from</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">146</td>
+                    <td class="num">1089</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         )</pre>
+                      <pre class="language-r">#' @param data (`tdata`) the object containing all datasets</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">147</td>
+                    <td class="num">1090</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       )</pre>
+                      <pre class="language-r">#' @param input (`session$input`) the shiny session input</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">148</td>
+                    <td class="num">1091</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     )</pre>
+                      <pre class="language-r">#' @param output (`session$output`) the shiny session output</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">149</td>
+                    <td class="num">1092</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">#' @param columns_names (`environment`) the environment containing bindings for each dataset</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">150</td>
+                    <td class="num">1093</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#' @param plot_var (`list`) the list containing the currently selected dataset (tab) and its column names</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">151</td>
+                    <td class="num">1094</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' if (interactive()) {</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">152</td>
+                    <td class="num">1095</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   shinyApp(app$ui, app$server)</pre>
+                      <pre class="language-r">render_tabset_panel_content &lt;- function(datanames, parent_dataname, output, data, input, columns_names, plot_var) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">1096</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  lapply(datanames, render_single_tab,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">1097</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">1098</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    output = output,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">1099</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    data = data,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">1100</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    parent_dataname = parent_dataname,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">1101</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    columns_names = columns_names,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">1102</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    plot_var = plot_var</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">153</td>
+                    <td class="num">1103</td>
                     <td class="coverage"></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">1104</td>
                     <td class="coverage"></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">1105</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">156</td>
+                    <td class="num">1106</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' Renders a single tab in the left-hand side tabset panel</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">157</td>
+                    <td class="num">1107</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">tm_g_scatterplotmatrix &lt;- function(label = "Scatterplot Matrix",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">158</td>
+                    <td class="num">1108</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   variables,</pre>
+                      <pre class="language-r">#' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">159</td>
+                    <td class="num">1109</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   plot_height = c(600, 200, 2000),</pre>
+                      <pre class="language-r">#' Renders a single tab in the left-hand side tabset panel. The rendered tab contains</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">160</td>
+                    <td class="num">1110</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   plot_width = NULL,</pre>
+                      <pre class="language-r">#' information about one dataset out of many presented in the module.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">161</td>
+                    <td class="num">1111</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   pre_output = NULL,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">162</td>
+                    <td class="num">1112</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   post_output = NULL) {</pre>
+                      <pre class="language-r">#' @param dataset_name (`character`) the name of the dataset contained in the rendered tab</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">163</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1113</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  logger::log_info("Initializing tm_g_scatterplotmatrix")</pre>
+                      <pre class="language-r">#' @param parent_dataname (`character`) the name of a parent `dataname` to filter out variables from</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">164</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1114</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!requireNamespace("lattice", quietly = TRUE)) {</pre>
+                      <pre class="language-r">#' @inheritParams render_tabset_panel_content</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">165</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1115</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stop("Cannot load lattice - please install the package or restart your session.")</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">166</td>
+                    <td class="num">1116</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">render_single_tab &lt;- function(dataset_name, parent_dataname, output, data, input, columns_names, plot_var) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">167</td>
+                    <td class="num">1117</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (inherits(variables, "data_extract_spec")) variables &lt;- list(variables)</pre>
+                      <pre class="language-r">  render_tab_header(dataset_name, output, data)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">168</td>
+                    <td class="num">1118</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">169</td>
+                    <td class="num">1119</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(label)</pre>
+                      <pre class="language-r">  render_tab_table(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">170</td>
+                    <td class="num">1120</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(variables, types = "data_extract_spec")</pre>
+                      <pre class="language-r">    dataset_name = dataset_name,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">171</td>
+                    <td class="num">1121</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(plot_height, len = 3, any.missing = FALSE, finite = TRUE)</pre>
+                      <pre class="language-r">    parent_dataname = parent_dataname,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">172</td>
+                    <td class="num">1122</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(plot_height[1], lower = plot_height[2], upper = plot_height[3], .var.name = "plot_height")</pre>
+                      <pre class="language-r">    output = output,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">173</td>
+                    <td class="num">1123</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(plot_width, len = 3, any.missing = FALSE, null.ok = TRUE, finite = TRUE)</pre>
+                      <pre class="language-r">    data = data,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">174</td>
+                    <td class="num">1124</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(</pre>
+                      <pre class="language-r">    input = input,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">175</td>
+                    <td class="num">1125</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    plot_width[1],</pre>
+                      <pre class="language-r">    columns_names = columns_names,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">176</td>
+                    <td class="num">1126</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lower = plot_width[2], upper = plot_width[3], null.ok = TRUE, .var.name = "plot_width"</pre>
+                      <pre class="language-r">    plot_var = plot_var</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">177</td>
+                    <td class="num">1127</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">178</td>
+                    <td class="num">1128</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">179</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  args &lt;- as.list(environment())</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">180</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  module(</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">181</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">182</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    server = srv_g_scatterplotmatrix,</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">183</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    ui = ui_g_scatterplotmatrix,</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">184</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    ui_args = args,</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">185</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    server_args = list(variables = variables, plot_height = plot_height, plot_width = plot_width),</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">186</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1129</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    datanames = teal.transform::get_extract_datanames(variables)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">187</td>
+                    <td class="num">1130</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' Renders the text headlining a single tab in the left-hand side tabset panel</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">188</td>
+                    <td class="num">1131</td>
                     <td class="coverage"></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">1132</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 of the tab</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">190</td>
+                    <td class="num">1133</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">ui_g_scatterplotmatrix &lt;- function(id, ...) {</pre>
+                      <pre class="language-r">#' @inheritParams render_tabset_panel_content</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">191</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1134</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  args &lt;- list(...)</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">192</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1135</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  is_single_dataset_value &lt;- teal.transform::is_single_dataset(args$variables)</pre>
+                      <pre class="language-r">render_tab_header &lt;- function(dataset_name, output, data) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">193</td>
+                    <td class="num">1136</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ns &lt;- NS(id)</pre>
+                      <pre class="language-r">  dataset_ui_id &lt;- paste0("dataset_summary_", dataset_name)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">194</td>
+                    <td class="num">1137</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  teal.widgets::standard_layout(</pre>
+                      <pre class="language-r">  output[[dataset_ui_id]] &lt;- renderText({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">195</td>
+                    <td class="num">1138</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    output = teal.widgets::white_small_well(</pre>
+                      <pre class="language-r">    df &lt;- data()[[dataset_name]]</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">196</td>
+                    <td class="num">1139</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      textOutput(ns("message")),</pre>
+                      <pre class="language-r">    join_keys &lt;- join_keys(data())</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">197</td>
+                    <td class="num">1140</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      br(),</pre>
+                      <pre class="language-r">    if (!is.null(join_keys)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">198</td>
+                    <td class="num">1141</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.widgets::plot_with_settings_ui(id = ns("myplot"))</pre>
+                      <pre class="language-r">      key &lt;- join_keys(data())[dataset_name, dataset_name]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">199</td>
+                    <td class="num">1142</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">200</td>
+                    <td class="num">1143</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    encoding = div(</pre>
+                      <pre class="language-r">      key &lt;- NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">201</td>
+                    <td class="num">1144</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ### Reporter</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">202</td>
+                    <td class="num">1145</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.reporter::simple_reporter_ui(ns("simple_reporter")),</pre>
+                      <pre class="language-r">    sprintf(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">203</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1146</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ###</pre>
+                      <pre class="language-r">      "Dataset with %s unique key rows and %s variables",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">204</td>
+                    <td class="num">1147</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      tags$label("Encodings", class = "text-primary"),</pre>
+                      <pre class="language-r">      nrow(unique(`if`(length(key) &gt; 0, df[, key, drop = FALSE], df))),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">205</td>
+                    <td class="num">1148</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.transform::datanames_input(args$variables),</pre>
+                      <pre class="language-r">      ncol(df)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">206</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1149</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.transform::data_extract_ui(</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">207</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1150</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        id = ns("variables"),</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">208</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1151</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        label = "Variables",</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">209</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1152</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        data_extract_spec = args$variables,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">210</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1153</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        is_single_dataset = is_single_dataset_value</pre>
+                      <pre class="language-r">#' Renders the table for a single dataset in the left-hand side tabset panel</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">211</td>
+                    <td class="num">1154</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">212</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1155</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      hr(),</pre>
+                      <pre class="language-r">#' @description</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">213</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1156</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.widgets::panel_group(</pre>
+                      <pre class="language-r">#' The table contains column names, column labels,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">214</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1157</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        teal.widgets::panel_item(</pre>
+                      <pre class="language-r">#' small summary about NA values and `sparkline` (if appropriate).</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">215</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1158</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          title = "Plot settings",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">216</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1159</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          sliderInput(</pre>
+                      <pre class="language-r">#' @param dataset_name (`character`) the name of the dataset</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">217</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1160</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ns("alpha"), "Opacity:",</pre>
+                      <pre class="language-r">#' @param parent_dataname (`character`) the name of a parent `dataname` to filter out variables from</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">218</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1161</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            min = 0, max = 1,</pre>
+                      <pre class="language-r">#' @inheritParams render_tabset_panel_content</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">219</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1162</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            step = .05, value = .5, ticks = FALSE</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">220</td>
+                    <td class="num">1163</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ),</pre>
+                      <pre class="language-r">render_tab_table &lt;- function(dataset_name, parent_dataname, output, data, input, columns_names, plot_var) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">221</td>
+                    <td class="num">1164</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          sliderInput(</pre>
+                      <pre class="language-r">  table_ui_id &lt;- paste0("variable_browser_", dataset_name)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">222</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1165</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ns("cex"), "Points size:",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">223</td>
+                    <td class="num">1166</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            min = 0.2, max = 3,</pre>
+                      <pre class="language-r">  output[[table_ui_id]] &lt;- DT::renderDataTable({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">224</td>
+                    <td class="num">1167</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            step = .05, value = .65, ticks = FALSE</pre>
+                      <pre class="language-r">    df &lt;- data()[[dataset_name]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">225</td>
+                    <td class="num">1168</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">226</td>
+                    <td class="num">1169</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          checkboxInput(ns("cor"), "Add Correlation", value = FALSE),</pre>
+                      <pre class="language-r">    get_vars_df &lt;- function(input, dataset_name, parent_name, data) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">227</td>
+                    <td class="num">1170</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          radioButtons(</pre>
+                      <pre class="language-r">      data_cols &lt;- colnames(df)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">228</td>
+                    <td class="num">1171</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ns("cor_method"), "Select Correlation Method",</pre>
+                      <pre class="language-r">      if (isTRUE(input$show_parent_vars)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">229</td>
+                    <td class="num">1172</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            choiceNames = c("Pearson", "Kendall", "Spearman"),</pre>
+                      <pre class="language-r">        data_cols</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">230</td>
+                    <td class="num">1173</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            choiceValues = c("pearson", "kendall", "spearman"),</pre>
+                      <pre class="language-r">      } else if (dataset_name != parent_name &amp;&amp; parent_name %in% names(data)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">231</td>
+                    <td class="num">1174</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            inline = TRUE</pre>
+                      <pre class="language-r">        setdiff(data_cols, colnames(data()[[parent_name]]))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">232</td>
+                    <td class="num">1175</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">233</td>
+                    <td class="num">1176</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          checkboxInput(ns("cor_na_omit"), "Omit Missing Values", value = TRUE)</pre>
+                      <pre class="language-r">        data_cols</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">234</td>
+                    <td class="num">1177</td>
                     <td class="coverage"></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">1178</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">236</td>
+                    <td class="num">1179</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ),</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">237</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    forms = tagList(</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">238</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      teal.widgets::verbatim_popup_ui(ns("warning"), "Show Warnings"),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">239</td>
+                    <td class="num">1180</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">240</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    ),</pre>
+                      <pre class="language-r">    if (length(parent_dataname) &gt; 0) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">241</td>
+                    <td class="num">1181</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    pre_output = args$pre_output,</pre>
+                      <pre class="language-r">      df_vars &lt;- get_vars_df(input, dataset_name, parent_dataname, data)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">242</td>
+                    <td class="num">1182</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    post_output = args$post_output</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">      df &lt;- df[df_vars]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">244</td>
+                    <td class="num">1183</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">245</td>
+                    <td class="num">1184</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <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">srv_g_scatterplotmatrix &lt;- function(id, data, reporter, filter_panel_api, variables, plot_height, plot_width) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">247</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  with_reporter &lt;- !missing(reporter) &amp;&amp; inherits(reporter, "Reporter")</pre>
-                    </td>
-                  </tr>
                   <tr class="missed">
-                    <td class="num">248</td>
+                    <td class="num">1185</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  with_filter &lt;- !missing(filter_panel_api) &amp;&amp; inherits(filter_panel_api, "FilterPanelAPI")</pre>
+                      <pre class="language-r">    if (is.null(df) || ncol(df) == 0) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">249</td>
+                    <td class="num">1186</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(data, "reactive")</pre>
+                      <pre class="language-r">      columns_names[[dataset_name]] &lt;- character(0)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">250</td>
+                    <td class="num">1187</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">      df_output &lt;- data.frame(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">251</td>
+                    <td class="num">1188</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">        Type = character(0),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">252</td>
+                    <td class="num">1189</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    selector_list &lt;- teal.transform::data_extract_multiple_srv(</pre>
+                      <pre class="language-r">        Variable = character(0),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">253</td>
+                    <td class="num">1190</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      data_extract = list(variables = variables),</pre>
+                      <pre class="language-r">        Label = character(0),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">254</td>
+                    <td class="num">1191</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      datasets = data,</pre>
+                      <pre class="language-r">        Missings = character(0),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">255</td>
+                    <td class="num">1192</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      select_validation_rule = list(</pre>
+                      <pre class="language-r">        Sparklines = character(0),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">256</td>
+                    <td class="num">1193</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        variables = ~ if (length(.) &lt;= 1) "Please select at least 2 columns."</pre>
+                      <pre class="language-r">        stringsAsFactors = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">257</td>
+                    <td class="num">1194</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">258</td>
+                    <td class="num">1195</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">259</td>
+                    <td class="num">1196</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      # extract data variable labels</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">260</td>
+                    <td class="num">1197</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    iv_r &lt;- reactive({</pre>
+                      <pre class="language-r">      labels &lt;- teal.data::col_labels(df)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">261</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1198</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv &lt;- shinyvalidate::InputValidator$new()</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">262</td>
+                    <td class="num">1199</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.transform::compose_and_enable_validators(iv, selector_list)</pre>
+                      <pre class="language-r">      columns_names[[dataset_name]] &lt;- names(labels)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">263</td>
+                    <td class="num">1200</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">264</td>
+                    <td class="num">1201</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      # calculate number of missing values</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">265</td>
+                    <td class="num">1202</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    anl_merged_input &lt;- teal.transform::merge_expression_srv(</pre>
+                      <pre class="language-r">      missings &lt;- vapply(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">266</td>
+                    <td class="num">1203</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      datasets = data,</pre>
+                      <pre class="language-r">        df,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">267</td>
+                    <td class="num">1204</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      selector_list = selector_list</pre>
+                      <pre class="language-r">        var_missings_info,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">1205</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        FUN.VALUE = character(1),</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">1206</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        USE.NAMES = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">268</td>
+                    <td class="num">1207</td>
                     <td class="coverage"></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">1208</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">270</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1209</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    anl_merged_q &lt;- reactive({</pre>
+                      <pre class="language-r">      # get icons proper for the data types</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">271</td>
+                    <td class="num">1210</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      req(anl_merged_input())</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">272</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      data() %&gt;%</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">273</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        teal.code::eval_code(as.expression(anl_merged_input()$expr))</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">274</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">      icons &lt;- vapply(df, function(x) class(x)[1L], character(1L))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">275</td>
+                    <td class="num">1211</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">276</td>
+                    <td class="num">1212</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    merged &lt;- list(</pre>
+                      <pre class="language-r">      join_keys &lt;- join_keys(data())</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">277</td>
+                    <td class="num">1213</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      anl_input_r = anl_merged_input,</pre>
+                      <pre class="language-r">      if (!is.null(join_keys)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">278</td>
+                    <td class="num">1214</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      anl_q_r = anl_merged_q</pre>
+                      <pre class="language-r">        icons[intersect(join_keys[dataset_name, dataset_name], colnames(df))] &lt;- "primary_key"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">279</td>
+                    <td class="num">1215</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">1216</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      icons &lt;- variable_type_icons(icons)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">280</td>
+                    <td class="num">1217</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">281</td>
+                    <td class="num">1218</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # plot</pre>
+                      <pre class="language-r">      # generate sparklines</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">282</td>
+                    <td class="num">1219</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    output_q &lt;- reactive({</pre>
+                      <pre class="language-r">      sparklines_html &lt;- vapply(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">283</td>
+                    <td class="num">1220</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal::validate_inputs(iv_r())</pre>
+                      <pre class="language-r">        df,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">284</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1221</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        create_sparklines,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">285</td>
+                    <td class="num">1222</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      qenv &lt;- merged$anl_q_r()</pre>
+                      <pre class="language-r">        FUN.VALUE = character(1),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">286</td>
+                    <td class="num">1223</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ANL &lt;- qenv[["ANL"]] # nolint: object_name.</pre>
+                      <pre class="language-r">        USE.NAMES = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">287</td>
+                    <td class="num">1224</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">288</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1225</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      cols_names &lt;- merged$anl_input_r()$columns_source$variables</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">289</td>
+                    <td class="num">1226</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      alpha &lt;- input$alpha</pre>
+                      <pre class="language-r">      df_output &lt;- data.frame(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">290</td>
+                    <td class="num">1227</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      cex &lt;- input$cex</pre>
+                      <pre class="language-r">        Type = icons,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">291</td>
+                    <td class="num">1228</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      add_cor &lt;- input$cor</pre>
+                      <pre class="language-r">        Variable = names(labels),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">292</td>
+                    <td class="num">1229</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      cor_method &lt;- input$cor_method</pre>
+                      <pre class="language-r">        Label = labels,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">293</td>
+                    <td class="num">1230</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      cor_na_omit &lt;- input$cor_na_omit</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">        Missings = missings,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">295</td>
+                    <td class="num">1231</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      cor_na_action &lt;- if (isTruthy(cor_na_omit)) {</pre>
+                      <pre class="language-r">        Sparklines = sparklines_html,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">296</td>
+                    <td class="num">1232</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "na.omit"</pre>
+                      <pre class="language-r">        stringsAsFactors = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">297</td>
+                    <td class="num">1233</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">298</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        "na.fail"</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">299</td>
+                    <td class="num">1234</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">300</td>
+                    <td class="num">1235</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">301</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1236</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal::validate_has_data(ANL, 10)</pre>
+                      <pre class="language-r">    # Select row 1 as default / fallback</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">302</td>
+                    <td class="num">1237</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal::validate_has_data(ANL[, cols_names, drop = FALSE], 10, complete = TRUE, allow_inf = FALSE)</pre>
+                      <pre class="language-r">    selected_ix &lt;- 1</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">303</td>
+                    <td class="num">1238</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    # Define starting page index (base-0 index of the first item on page</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">304</td>
+                    <td class="num">1239</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # get labels and proper variable names</pre>
+                      <pre class="language-r">    #  note: in many cases it's not the item itself</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">305</td>
+                    <td class="num">1240</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      varnames &lt;- varname_w_label(cols_names, ANL, wrap_width = 20)</pre>
+                      <pre class="language-r">    selected_page_ix &lt;- 0</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">306</td>
+                    <td class="num">1241</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">1242</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # check character columns. If any, then those are converted to factors</pre>
+                      <pre class="language-r">    # Retrieve current selected variable if any</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">308</td>
+                    <td class="num">1243</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      check_char &lt;- vapply(ANL[, cols_names], is.character, logical(1))</pre>
+                      <pre class="language-r">    isolated_variable &lt;- shiny::isolate(plot_var$variable[[dataset_name]])</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">309</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1244</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (any(check_char)) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">310</td>
+                    <td class="num">1245</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        qenv &lt;- teal.code::eval_code(</pre>
+                      <pre class="language-r">    if (!is.null(isolated_variable)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">311</td>
+                    <td class="num">1246</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          qenv,</pre>
+                      <pre class="language-r">      index &lt;- which(columns_names[[dataset_name]] == isolated_variable)[1]</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">312</td>
+                    <td class="num">1247</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          substitute(</pre>
+                      <pre class="language-r">      if (!is.null(index) &amp;&amp; !is.na(index) &amp;&amp; length(index) &gt; 0) selected_ix &lt;- index</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">1248</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">1249</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">1250</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    # Retrieve the index of the first item of the current page</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">1251</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    #  it works with varying number of entries on the page (10, 25, ...)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">313</td>
+                    <td class="num">1252</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            expr = ANL &lt;- ANL[, cols_names] %&gt;% # nolint: object_name.</pre>
+                      <pre class="language-r">    table_id_sel &lt;- paste0("variable_browser_", dataset_name, "_state")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">314</td>
+                    <td class="num">1253</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              dplyr::mutate_if(is.character, as.factor) %&gt;%</pre>
+                      <pre class="language-r">    dt_state &lt;- shiny::isolate(input[[table_id_sel]])</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">315</td>
+                    <td class="num">1254</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              droplevels(),</pre>
+                      <pre class="language-r">    if (selected_ix != 1 &amp;&amp; !is.null(dt_state)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">316</td>
+                    <td class="num">1255</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            env = list(cols_names = cols_names)</pre>
+                      <pre class="language-r">      selected_page_ix &lt;- floor(selected_ix / dt_state$length) * dt_state$length</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">317</td>
+                    <td class="num">1256</td>
                     <td class="coverage"></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">1257</td>
                     <td class="coverage"></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="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1258</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">    DT::datatable(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">320</td>
+                    <td class="num">1259</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        qenv &lt;- teal.code::eval_code(</pre>
+                      <pre class="language-r">      df_output,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">321</td>
+                    <td class="num">1260</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          qenv,</pre>
+                      <pre class="language-r">      escape = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">322</td>
+                    <td class="num">1261</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          substitute(</pre>
+                      <pre class="language-r">      rownames = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">323</td>
+                    <td class="num">1262</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            expr = ANL &lt;- ANL[, cols_names] %&gt;% # nolint: object_name.</pre>
+                      <pre class="language-r">      selection = list(mode = "single", target = "row", selected = selected_ix),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">324</td>
+                    <td class="num">1263</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              droplevels(),</pre>
+                      <pre class="language-r">      options = list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">325</td>
+                    <td class="num">1264</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            env = list(cols_names = cols_names)</pre>
+                      <pre class="language-r">        fnDrawCallback = htmlwidgets::JS("function() { HTMLWidgets.staticRender(); }"),</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">1265</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        pageLength = input[[paste0(table_ui_id, "_rows")]],</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">1266</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        displayStart = selected_page_ix</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">326</td>
+                    <td class="num">1267</td>
                     <td class="coverage"></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">1268</td>
                     <td class="coverage"></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">1269</td>
                     <td class="coverage"></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">1270</td>
                     <td class="coverage"></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">1271</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">331</td>
+                    <td class="num">1272</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # create plot</pre>
+                      <pre class="language-r">#' Creates observers updating the currently selected column</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">332</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1273</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (add_cor) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">333</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1274</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        shinyjs::show("cor_method")</pre>
+                      <pre class="language-r">#' @description</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">334</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1275</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        shinyjs::show("cor_use")</pre>
+                      <pre class="language-r">#' The created observers update the column currently selected in the left-hand side</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">335</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1276</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        shinyjs::show("cor_na_omit")</pre>
+                      <pre class="language-r">#' tabset panel.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">336</td>
+                    <td class="num">1277</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">337</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1278</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        qenv &lt;- teal.code::eval_code(</pre>
+                      <pre class="language-r">#' @note</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">338</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1279</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          qenv,</pre>
+                      <pre class="language-r">#' Creates an observer for each dataset (each tab in the tabset panel).</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">339</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1280</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          substitute(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">340</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1281</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            expr = {</pre>
+                      <pre class="language-r">#' @inheritParams render_tabset_panel_content</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">341</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1282</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              g &lt;- lattice::splom(</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">342</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1283</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                ANL,</pre>
+                      <pre class="language-r">establish_updating_selection &lt;- function(datanames, input, plot_var, columns_names) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">343</td>
+                    <td class="num">1284</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                varnames = varnames_value,</pre>
+                      <pre class="language-r">  lapply(datanames, function(dataset_name) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">344</td>
+                    <td class="num">1285</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                panel = function(x, y, ...) {</pre>
+                      <pre class="language-r">    table_ui_id &lt;- paste0("variable_browser_", dataset_name)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">345</td>
+                    <td class="num">1286</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  lattice::panel.splom(x = x, y = y, ...)</pre>
+                      <pre class="language-r">    table_id_sel &lt;- paste0(table_ui_id, "_rows_selected")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">346</td>
+                    <td class="num">1287</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  cpl &lt;- lattice::current.panel.limits()</pre>
+                      <pre class="language-r">    observeEvent(input[[table_id_sel]], {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">347</td>
+                    <td class="num">1288</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  lattice::panel.text(</pre>
+                      <pre class="language-r">      plot_var$data &lt;- dataset_name</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">348</td>
+                    <td class="num">1289</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    mean(cpl$xlim),</pre>
+                      <pre class="language-r">      plot_var$variable[[dataset_name]] &lt;- columns_names[[dataset_name]][input[[table_id_sel]]]</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">349</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1290</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    mean(cpl$ylim),</pre>
+                      <pre class="language-r">    })</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">1291</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  })</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">1292</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">}</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">1293</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">1294</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">get_bin_width &lt;- function(x_vec, scaling_factor = 2) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">350</td>
+                    <td class="num">1295</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    get_scatterplotmatrix_stats(</pre>
+                      <pre class="language-r">  x_vec &lt;- x_vec[!is.na(x_vec)]</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">351</td>
+                    <td class="num">1296</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                      x,</pre>
+                      <pre class="language-r">  qntls &lt;- stats::quantile(x_vec, probs = c(0.1, 0.25, 0.75, 0.9), type = 2)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">352</td>
+                    <td class="num">1297</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                      y,</pre>
+                      <pre class="language-r">  iqr &lt;- qntls[3] - qntls[2]</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">353</td>
+                    <td class="num">1298</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                      .f = stats::cor.test,</pre>
+                      <pre class="language-r">  binwidth &lt;- max(scaling_factor * iqr / length(x_vec) ^ (1 / 3), sqrt(qntls[4] - qntls[1])) # styler: off</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">354</td>
+                    <td class="num">1299</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                      .f_args = list(method = cor_method, na.action = cor_na_action)</pre>
+                      <pre class="language-r">  binwidth &lt;- ifelse(binwidth == 0, 1, binwidth)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">355</td>
+                    <td class="num">1300</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    ),</pre>
+                      <pre class="language-r">  # to ensure at least two bins when variable span is very small</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">356</td>
+                    <td class="num">1301</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    alpha = 0.6,</pre>
+                      <pre class="language-r">  x_span &lt;- diff(range(x_vec))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">357</td>
+                    <td class="num">1302</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    fontsize = 18,</pre>
+                      <pre class="language-r">  if (isTRUE(x_span / binwidth &gt;= 2)) binwidth else x_span / 2</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">358</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1303</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    fontface = "bold"</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">359</td>
+                    <td class="num">1304</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">360</td>
+                    <td class="num">1305</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                },</pre>
+                      <pre class="language-r">custom_sparkline_formatter &lt;- function(labels, counts) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">361</td>
+                    <td class="num">1306</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                pch = 16,</pre>
+                      <pre class="language-r">  htmlwidgets::JS(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">362</td>
+                    <td class="num">1307</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                alpha = alpha_value,</pre>
+                      <pre class="language-r">    sprintf(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">363</td>
+                    <td class="num">1308</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                cex = cex_value</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">364</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">              )</pre>
+                      <pre class="language-r">      "function(sparkline, options, field) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">365</td>
+                    <td class="num">1309</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              print(g)</pre>
+                      <pre class="language-r">        return 'ID: ' + %s[field[0].offset] + '&lt;br&gt;' + 'Count: ' + %s[field[0].offset];</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">366</td>
+                    <td class="num">1310</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">367</td>
+                    <td class="num">1311</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            env = list(</pre>
+                      <pre class="language-r">      jsonlite::toJSON(labels),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">368</td>
+                    <td class="num">1312</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              varnames_value = varnames,</pre>
+                      <pre class="language-r">      jsonlite::toJSON(counts)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">369</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1313</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              cor_method = cor_method,</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">370</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1314</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              cor_na_action = cor_na_action,</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">371</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1315</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              alpha_value = alpha,</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">372</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1316</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              cex_value = cex</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">373</td>
+                    <td class="num">1317</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">#' Removes the outlier observation from an array</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">374</td>
+                    <td class="num">1318</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">375</td>
+                    <td class="num">1319</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#' @param var (`numeric`) a numeric vector</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">376</td>
+                    <td class="num">1320</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">#' @param outlier_definition (`numeric`) if `0` then no outliers are removed, otherwise</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">377</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1321</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        shinyjs::hide("cor_method")</pre>
+                      <pre class="language-r">#'   outliers (those more than `outlier_definition*IQR below/above Q1/Q3`) are removed</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">378</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1322</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        shinyjs::hide("cor_use")</pre>
+                      <pre class="language-r">#' @returns (`numeric`) vector without the outlier values</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">379</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1323</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        shinyjs::hide("cor_na_omit")</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">380</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1324</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        qenv &lt;- teal.code::eval_code(</pre>
+                      <pre class="language-r">remove_outliers_from &lt;- function(var, outlier_definition) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">381</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">1325</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          qenv,</pre>
+                      <pre class="language-r">  if (outlier_definition == 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">382</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">1326</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          substitute(</pre>
+                      <pre class="language-r">    return(var)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">383</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1327</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            expr = {</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">384</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">1328</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              g &lt;- lattice::splom(ANL, varnames = varnames_value, pch = 16, alpha = alpha_value, cex = cex_value)</pre>
+                      <pre class="language-r">  q1_q3 &lt;- stats::quantile(var, probs = c(0.25, 0.75), type = 2, na.rm = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">385</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">1329</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              g</pre>
+                      <pre class="language-r">  iqr &lt;- q1_q3[2] - q1_q3[1]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">386</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">1330</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            },</pre>
+                      <pre class="language-r">  var[var &gt;= q1_q3[1] - outlier_definition * iqr &amp; var &lt;= q1_q3[2] + outlier_definition * iqr]</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">387</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1331</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            env = list(varnames_value = varnames, alpha_value = alpha, cex_value = cex)</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/tm_missing_data.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">388</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">#' Missing data module</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">389</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">390</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#' Present analysis of missing observations and patients.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">391</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">      qenv</pre>
+                      <pre class="language-r">#' specifically designed for use with `data.frames`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">392</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="never">
-                    <td class="num">393</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @inheritParams teal::module</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">394</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">    plot_r &lt;- reactive(output_q()[["g"]])</pre>
+                      <pre class="language-r">#' @inheritParams shared_params</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">395</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @param parent_dataname (`character(1)`) If this `dataname` exists in then "the by subject"graph is displayed.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">396</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Insert the plot into a plot_with_settings module</pre>
+                      <pre class="language-r">#'   For `CDISC` data. In non `CDISC` data this can be ignored. Defaults to `"ADSL"`.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">397</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">    pws &lt;- teal.widgets::plot_with_settings_srv(</pre>
+                      <pre class="language-r">#' @param ggtheme optional, (`character`) `ggplot2` theme to be used by default. Defaults to `"classic"`.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">398</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">      id = "myplot",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">399</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">      plot_r = plot_r,</pre>
+                      <pre class="language-r">#' @templateVar ggnames "Summary Obs", "Summary Patients", "Combinations Main", "Combinations Hist", "By Subject"</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">400</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">      height = plot_height,</pre>
+                      <pre class="language-r">#' @template ggplot2_args_multi</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">401</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">      width = plot_width</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">402</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">403</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.widgets)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">404</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # show a message if conversion to factors took place</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">405</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">    output$message &lt;- renderText({</pre>
+                      <pre class="language-r">#' # module specification used in apps below</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">406</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">      shiny::req(iv_r()$is_valid())</pre>
+                      <pre class="language-r">#' tm_missing_data_module &lt;- tm_missing_data(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">407</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">      req(selector_list()$variables())</pre>
+                      <pre class="language-r">#'   ggplot2_args = list(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">408</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">      ANL &lt;- merged$anl_q_r()[["ANL"]] # nolint: object_name.</pre>
+                      <pre class="language-r">#'     "Combinations Hist" = ggplot2_args(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">409</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">      cols_names &lt;- unique(unname(do.call(c, merged$anl_input_r()$columns_source)))</pre>
+                      <pre class="language-r">#'       labs = list(subtitle = "Plot produced by Missing Data Module", caption = NULL)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">410</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">      check_char &lt;- vapply(ANL[, cols_names], is.character, logical(1))</pre>
+                      <pre class="language-r">#'     ),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">411</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">      if (any(check_char)) {</pre>
+                      <pre class="language-r">#'     "Combinations Main" = ggplot2_args(labs = list(title = NULL))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">412</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">        is_single &lt;- sum(check_char) == 1</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">413</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">        paste(</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">414</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">          "Character",</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">28</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ifelse(is_single, "variable", "variables"),</pre>
+                      <pre class="language-r">#' # general example data</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">416</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">          paste0("(", paste(cols_names[check_char], collapse = ", "), ")"),</pre>
+                      <pre class="language-r">#' data &lt;- teal_data()</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">417</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">          ifelse(is_single, "was", "were"),</pre>
+                      <pre class="language-r">#' data &lt;- within(data, {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">418</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">          "converted to",</pre>
+                      <pre class="language-r">#'   library(nestcolor)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">419</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">          ifelse(is_single, "factor.", "factors.")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">420</td>
+                    <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#'   add_nas &lt;- function(x) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">421</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">#'     x[sample(seq_along(x), floor(length(x) * runif(1, .05, .17)))] &lt;- NA</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">422</td>
+                    <td class="num">35</td>
                     <td class="coverage"></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">423</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">424</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">425</td>
+                    <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   iris &lt;- iris</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">426</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">    teal.widgets::verbatim_popup_srv(</pre>
+                      <pre class="language-r">#'   mtcars &lt;- mtcars</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">427</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 = "warning",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">428</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">      verbatim_content = reactive(teal.code::get_warnings(output_q())),</pre>
+                      <pre class="language-r">#'   iris[] &lt;- lapply(iris, add_nas)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">429</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">      title = "Warning",</pre>
+                      <pre class="language-r">#'   mtcars[] &lt;- lapply(mtcars, add_nas)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">430</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">      disabled = reactive(is.null(teal.code::get_warnings(output_q())))</pre>
+                      <pre class="language-r">#'   mtcars[["cyl"]] &lt;- as.factor(mtcars[["cyl"]])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">431</td>
+                    <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#'   mtcars[["gear"]] &lt;- as.factor(mtcars[["gear"]])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">432</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">433</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">    teal.widgets::verbatim_popup_srv(</pre>
+                      <pre class="language-r">#' datanames(data) &lt;- c("iris", "mtcars")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">434</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 = "rcode",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">435</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">      verbatim_content = reactive(teal.code::get_code(output_q())),</pre>
+                      <pre class="language-r">#' app &lt;- init(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">436</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">      title = "Show R Code for Scatterplotmatrix"</pre>
+                      <pre class="language-r">#'   data = data,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">437</td>
+                    <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#'   modules = modules(tm_missing_data_module)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">438</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">439</td>
+                    <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ### REPORTER</pre>
+                      <pre class="language-r">#' if (interactive()) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">440</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">    if (with_reporter) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">441</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      card_fun &lt;- function(comment, label) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">442</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        card &lt;- teal::report_card_template(</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">443</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          title = "Scatter Plot Matrix",</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">444</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">445</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          with_filter = with_filter,</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">446</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          filter_panel_api = filter_panel_api</pre>
+                      <pre class="language-r">#'   shinyApp(app$ui, app$server)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">447</td>
+                    <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">448</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        card$append_text("Plot", "header3")</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">449</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        card$append_plot(plot_r(), dim = pws$dim())</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">450</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        if (!comment == "") {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">451</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          card$append_text("Comment", "header3")</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">452</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          card$append_text(comment)</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">453</td>
+                    <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">454</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        card$append_src(teal.code::get_code(output_q()))</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">455</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">456</td>
+                    <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">457</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun)</pre>
+                      <pre class="language-r">#' # CDISC example data</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">458</td>
+                    <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#' data &lt;- teal_data()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">459</td>
+                    <td class="num">58</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ###</pre>
+                      <pre class="language-r">#' data &lt;- within(data, {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">460</td>
+                    <td class="num">59</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
+                      <pre class="language-r">#'   library(nestcolor)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">461</td>
+                    <td class="num">60</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'   ADSL &lt;- rADSL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">462</td>
+                    <td class="num">61</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   ADRS &lt;- rADRS</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">463</td>
+                    <td class="num">62</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Get stats for x-y pairs in scatterplot matrix</pre>
+                      <pre class="language-r">#' })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">464</td>
+                    <td class="num">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description uses stats::cor.test per default for all numerical input variables and converts results</pre>
+                      <pre class="language-r">#' datanames(data) &lt;- c("ADSL", "ADRS")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">465</td>
+                    <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  to character vector. Could be extended if different stats for different variable</pre>
+                      <pre class="language-r">#' join_keys(data) &lt;- default_cdisc_join_keys[datanames(data)]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">466</td>
+                    <td class="num">65</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  types are needed. Meant to be called from \code{lattice::panel.text}.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">467</td>
+                    <td class="num">66</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x \code{numeric}</pre>
+                      <pre class="language-r">#' app &lt;- init(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">468</td>
+                    <td class="num">67</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param y \code{numeric}</pre>
+                      <pre class="language-r">#'   data = data,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">469</td>
+                    <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param .f \code{function}, function that accepts x and y as formula input \code{~ x + y}.</pre>
+                      <pre class="language-r">#'   modules = modules(tm_missing_data_module)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">470</td>
+                    <td class="num">69</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Default \code{stats::cor.test}</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">471</td>
+                    <td class="num">70</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param .f_args \code{list} of arguments to be passed to \code{.f}</pre>
+                      <pre class="language-r">#' if (interactive()) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">472</td>
+                    <td class="num">71</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param round_stat \code{integer}</pre>
+                      <pre class="language-r">#'   shinyApp(app$ui, app$server)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">473</td>
+                    <td class="num">72</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param round_pval \code{integer}</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">474</td>
+                    <td class="num">73</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @details presently we need to use a formula input for \code{stats::cor.test} because</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">475</td>
+                    <td class="num">74</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' \code{na.fail} only gets evaluated when a formula is passed (see below).</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">476</td>
+                    <td class="num">75</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' \preformatted{</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">477</td>
+                    <td class="num">76</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' x = c(1,3,5,7,NA)</pre>
+                      <pre class="language-r">tm_missing_data &lt;- function(label = "Missing data",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">478</td>
+                    <td class="num">77</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' y = c(3,6,7,8,1)</pre>
+                      <pre class="language-r">                            plot_height = c(600, 400, 5000),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">479</td>
+                    <td class="num">78</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' stats::cor.test(x, y, na.action = "na.fail")</pre>
+                      <pre class="language-r">                            plot_width = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">480</td>
+                    <td class="num">79</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' stats::cor.test(~ x + y,  na.action = "na.fail")</pre>
+                      <pre class="language-r">                            parent_dataname = "ADSL",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">481</td>
+                    <td class="num">80</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">                            ggtheme = c("classic", "gray", "bw", "linedraw", "light", "dark", "minimal", "void"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">482</td>
+                    <td class="num">81</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return \code{character} with stats. For \code{stats::cor.test} correlation coefficient and p-value.</pre>
+                      <pre class="language-r">                            ggplot2_args = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">483</td>
+                    <td class="num">82</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">                              "Combinations Hist" = teal.widgets::ggplot2_args(labs = list(caption = NULL)),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">484</td>
+                    <td class="num">83</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">                              "Combinations Main" = teal.widgets::ggplot2_args(labs = list(title = NULL))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">485</td>
+                    <td class="num">84</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' set.seed(1)</pre>
+                      <pre class="language-r">                            ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">486</td>
+                    <td class="num">85</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' x &lt;- runif(25, 0, 1)</pre>
+                      <pre class="language-r">                            pre_output = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">487</td>
+                    <td class="num">86</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' y &lt;- runif(25, 0, 1)</pre>
+                      <pre class="language-r">                            post_output = NULL) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">488</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">87</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' x[c(3, 10, 18)] &lt;- NA</pre>
+                      <pre class="language-r">  if (!requireNamespace("gridExtra", quietly = TRUE)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">489</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">#'</pre>
+                      <pre class="language-r">    stop("Cannot load gridExtra - please install the package or restart your session.")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">490</td>
+                    <td class="num">89</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' get_scatterplotmatrix_stats(x, y, .f = stats::cor.test, .f_args = list(method = "pearson"))</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">491</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">#' get_scatterplotmatrix_stats(x, y, .f = stats::cor.test, .f_args = list(</pre>
+                      <pre class="language-r">  if (!requireNamespace("rlang", quietly = TRUE)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">492</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">#'   method = "pearson",</pre>
+                      <pre class="language-r">    stop("Cannot load rlang - please install the package or restart your session.")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">493</td>
+                    <td class="num">92</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   na.action = na.fail</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">494</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">#' ))</pre>
+                      <pre class="language-r">  logger::log_info("Initializing tm_missing_data")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">495</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">get_scatterplotmatrix_stats &lt;- function(x, y,</pre>
+                      <pre class="language-r">  if (inherits(ggplot2_args, "ggplot2_args")) ggplot2_args &lt;- list(default = ggplot2_args)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">496</td>
+                    <td class="num">95</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                        .f = stats::cor.test,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">497</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">                                        .f_args = list(),</pre>
+                      <pre class="language-r">  checkmate::assert_string(label)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">498</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">                                        round_stat = 2,</pre>
+                      <pre class="language-r">  checkmate::assert_character(parent_dataname, min.len = 0, max.len = 1)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">499</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">                                        round_pval = 4) {</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(plot_height, len = 3, any.missing = FALSE, finite = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">500</td>
-                    <td class="coverage">6<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 (is.numeric(x) &amp;&amp; is.numeric(y)) {</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(plot_height[1], lower = plot_height[2], upper = plot_height[3], .var.name = "plot_height")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">501</td>
-                    <td class="coverage">3<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">    stat &lt;- tryCatch(do.call(.f, c(list(~ x + y), .f_args)), error = function(e) NA)</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(plot_width, len = 3, any.missing = FALSE, null.ok = TRUE, finite = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">502</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">  checkmate::assert_numeric(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">503</td>
-                    <td class="coverage">3<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 (anyNA(stat)) {</pre>
+                      <pre class="language-r">    plot_width[1],</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">504</td>
-                    <td class="coverage">1<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">      return("NA")</pre>
+                      <pre class="language-r">    lower = plot_width[2], upper = plot_width[3], null.ok = TRUE, .var.name = "plot_width"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">505</td>
-                    <td class="coverage">2<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">    } else if (all(c("estimate", "p.value") %in% names(stat))) {</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">506</td>
-                    <td class="coverage">2<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">      return(paste(</pre>
+                      <pre class="language-r">  ggtheme &lt;- match.arg(ggtheme)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">507</td>
-                    <td class="coverage">2<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">        c(</pre>
+                      <pre class="language-r">  plot_choices &lt;- c("Summary Obs", "Summary Patients", "Combinations Main", "Combinations Hist", "By Subject")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">508</td>
-                    <td class="coverage">2<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">          paste0(names(stat$estimate), ":", round(stat$estimate, round_stat)),</pre>
+                      <pre class="language-r">  checkmate::assert_list(ggplot2_args, types = "ggplot2_args")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">509</td>
-                    <td class="coverage">2<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">          paste0("P:", round(stat$p.value, round_pval))</pre>
+                      <pre class="language-r">  checkmate::assert_subset(names(ggplot2_args), c("default", plot_choices))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">510</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="covered">
-                    <td class="num">511</td>
-                    <td class="coverage">2<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">        collapse = "\n"</pre>
+                      <pre class="language-r">  module(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">512</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">      ))</pre>
+                      <pre class="language-r">    label,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">513</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">    } else {</pre>
+                      <pre class="language-r">    server = srv_page_missing_data,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">514</td>
+                    <td class="num">113</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      stop("function not supported")</pre>
+                      <pre class="language-r">    server_args = list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">515</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">    }</pre>
+                      <pre class="language-r">      parent_dataname = parent_dataname, plot_height = plot_height,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">115</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      plot_width = plot_width, ggplot2_args = ggplot2_args, ggtheme = ggtheme</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">516</td>
+                    <td class="num">116</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">517</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">117</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if ("method" %in% names(.f_args)) {</pre>
+                      <pre class="language-r">    ui = ui_page_missing_data,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">518</td>
-                    <td class="coverage">3<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">      if (.f_args$method == "pearson") {</pre>
+                      <pre class="language-r">    datanames = "all",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">519</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">119</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        return("cor:-")</pre>
+                      <pre class="language-r">    ui_args = list(pre_output = pre_output, post_output = post_output)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">520</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="covered">
-                    <td class="num">521</td>
-                    <td class="coverage">2<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">      if (.f_args$method == "kendall") {</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">522</td>
-                    <td class="coverage">1<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">        return("tau:-")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">523</td>
+                    <td class="num">123</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">ui_page_missing_data &lt;- function(id, pre_output = NULL, post_output = NULL) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">524</td>
-                    <td class="coverage">1<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">      if (.f_args$method == "spearman") {</pre>
+                      <pre class="language-r">  ns &lt;- NS(id)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">525</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">        return("rho:-")</pre>
+                      <pre class="language-r">  shiny::tagList(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">526</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                  <tr class="missed">
+                    <td class="num">126</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    include_css_files("custom"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">527</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">127</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">    teal.widgets::standard_layout(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">528</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">      output = teal.widgets::white_small_well(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">529</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">  }</pre>
+                      <pre class="language-r">        div(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">530</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">          class = "flex",</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/tm_g_bivariate.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">131</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Univariate and bivariate visualizations</pre>
+                      <pre class="language-r">          column(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">2</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">#' @md</pre>
+                      <pre class="language-r">            width = 12,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">3</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">133</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">            uiOutput(ns("dataset_tabs"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">134</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams teal::module</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">135</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams shared_params</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">136</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x (`data_extract_spec` or `list` of multiple `data_extract_spec`)</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">137</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   Variable names selected to plot along the x-axis by default. Variable can be numeric, factor or character.</pre>
+                      <pre class="language-r">      encoding = div(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">8</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">#'   No empty selections are allowed!</pre>
+                      <pre class="language-r">        uiOutput(ns("dataset_encodings"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">139</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param y (`data_extract_spec` or `list` of multiple `data_extract_spec`)</pre>
+                      <pre class="language-r">      ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">10</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">140</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   Variable names selected to plot along the y-axis by default. Variable can be numeric, factor or character.</pre>
+                      <pre class="language-r">      uiOutput(ns("dataset_reporter")),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">11</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">141</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param use_density optional, (`logical`) value for whether density (`TRUE`) is plotted or</pre>
+                      <pre class="language-r">      pre_output = pre_output,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">12</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">142</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   frequency (`FALSE`). Defaults to frequency (`FALSE`).</pre>
+                      <pre class="language-r">      post_output = post_output</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">143</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param row_facet optional, (`data_extract_spec` or `list` of multiple `data_extract_spec`)</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">144</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   Variables for row facetting.</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">145</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param col_facet optional, (`data_extract_spec` or `list` of multiple `data_extract_spec`)</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">146</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   Variables for col facetting.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">147</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param facet optional, (`logical`) to specify whether the facet encodings `ui` elements are toggled</pre>
+                      <pre class="language-r">srv_page_missing_data &lt;- function(id, data, reporter, filter_panel_api, parent_dataname,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">148</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   on and shown to the user by default. Defaults to `TRUE` if either `row_facet` or `column_facet`</pre>
+                      <pre class="language-r">                                  plot_height, plot_width, ggplot2_args, ggtheme) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">19</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">149</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   are supplied.</pre>
+                      <pre class="language-r">  moduleServer(id, function(input, output, session) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">20</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">150</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param color_settings (`logical`) Whether coloring, filling and size should be applied</pre>
+                      <pre class="language-r">    datanames &lt;- isolate(teal.data::datanames(data()))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">21</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">151</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' and `UI` tool offered to the user.</pre>
+                      <pre class="language-r">    datanames &lt;- Filter(function(name) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">22</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">#' @param color optional, (`data_extract_spec` or `list` of multiple `data_extract_spec`)</pre>
+                      <pre class="language-r">      is.data.frame(isolate(data())[[name]])</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">23</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">#'   Variables selected for the outline color inside the coloring settings.</pre>
+                      <pre class="language-r">    }, datanames)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">24</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">154</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   It will be applied when `color_settings` is set to `TRUE`.</pre>
+                      <pre class="language-r">    if_subject_plot &lt;- length(parent_dataname) &gt; 0 &amp;&amp; parent_dataname %in% datanames</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">25</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">#' @param fill optional, (`data_extract_spec` or `list` of multiple `data_extract_spec`)</pre>
+                      <pre class="language-r">    ns &lt;- session$ns</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">156</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   Variables selected for the fill color inside the coloring settings.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">27</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">#'   It will be applied when `color_settings` is set to `TRUE`.</pre>
+                      <pre class="language-r">    output$dataset_tabs &lt;- renderUI({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">28</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">#' @param size optional, (`data_extract_spec` or `list` of multiple `data_extract_spec`)</pre>
+                      <pre class="language-r">      do.call(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">29</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">159</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   Variables selected for the size of `geom_point` plots inside the coloring settings.</pre>
+                      <pre class="language-r">        tabsetPanel,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">30</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">160</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   It will be applied when `color_settings` is set to `TRUE`.</pre>
+                      <pre class="language-r">        c(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">31</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">161</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param free_x_scales optional, (`logical`) Whether X scaling shall be changeable.</pre>
+                      <pre class="language-r">          id = ns("dataname_tab"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">32</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">162</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   Does not allow scaling to be changed by default (`FALSE`).</pre>
+                      <pre class="language-r">          lapply(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">33</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">163</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param free_y_scales optional, (`logical`) Whether Y scaling shall be changeable.</pre>
+                      <pre class="language-r">            datanames,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">34</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">164</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   Does not allow scaling to be changed by default (`FALSE`).</pre>
+                      <pre class="language-r">            function(x) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">35</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">165</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param swap_axes optional, (`logical`) Whether to swap X and Y axes. Defaults to `FALSE`.</pre>
+                      <pre class="language-r">              tabPanel(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">36</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">166</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                title = x,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">37</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">167</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @details</pre>
+                      <pre class="language-r">                column(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">38</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">168</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This is a general module to visualize 1 &amp; 2 dimensional data.</pre>
+                      <pre class="language-r">                  width = 12,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">39</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">169</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">40</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">#' @note</pre>
+                      <pre class="language-r">                    class = "mt-4",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">41</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">#' For more examples, please see the vignette "Using bivariate plot" via</pre>
+                      <pre class="language-r">                    ui_missing_data(id = ns(x), by_subject_plot = if_subject_plot)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">172</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `vignette("using-bivariate-plot", package = "teal.modules.general")`.</pre>
+                      <pre class="language-r">                  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <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">44</td>
+                    <td class="num">174</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">45</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">46</td>
+                    <td class="num">176</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">47</td>
+                    <td class="num">177</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # general data exapmle</pre>
+                      <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">#' library(teal.widgets)</pre>
+                      <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">#'</pre>
+                      <pre class="language-r">    })</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">#' data &lt;- teal_data()</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">51</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">181</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' data &lt;- within(data, {</pre>
+                      <pre class="language-r">    output$dataset_encodings &lt;- renderUI({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">52</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">182</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   library(nestcolor)</pre>
+                      <pre class="language-r">      tagList(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">53</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">183</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   CO2 &lt;- data.frame(CO2)</pre>
+                      <pre class="language-r">        lapply(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">54</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">#' })</pre>
+                      <pre class="language-r">          datanames,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">55</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">#' datanames(data) &lt;- c("CO2")</pre>
+                      <pre class="language-r">          function(x) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">56</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">#' join_keys(data) &lt;- default_cdisc_join_keys[datanames(data)]</pre>
+                      <pre class="language-r">            conditionalPanel(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">57</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">#'</pre>
+                      <pre class="language-r">              is_tab_active_js(ns("dataname_tab"), x),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">58</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">#' app &lt;- init(</pre>
+                      <pre class="language-r">              encoding_missing_data(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">59</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">#'   data = data,</pre>
+                      <pre class="language-r">                id = ns(x),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">60</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">#'   modules = modules(</pre>
+                      <pre class="language-r">                summary_per_patient = if_subject_plot,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">61</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">191</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     tm_g_bivariate(</pre>
+                      <pre class="language-r">                ggtheme = ggtheme,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">62</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">#'       x = data_extract_spec(</pre>
+                      <pre class="language-r">                datanames = datanames</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">63</td>
+                    <td class="num">193</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         dataname = "CO2",</pre>
+                      <pre class="language-r">              )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">64</td>
+                    <td class="num">194</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         select = select_spec(</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">65</td>
+                    <td class="num">195</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           label = "Select variable:",</pre>
+                      <pre class="language-r">          }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">66</td>
+                    <td class="num">196</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           choices = variable_choices(data[["CO2"]]),</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">67</td>
+                    <td class="num">197</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           selected = "conc",</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">68</td>
+                    <td class="num">198</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           fixed = FALSE</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">69</td>
+                    <td class="num">199</td>
                     <td class="coverage"></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="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">200</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       ),</pre>
+                      <pre class="language-r">    output$dataset_reporter &lt;- renderUI({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">71</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">#'       y = data_extract_spec(</pre>
+                      <pre class="language-r">      lapply(datanames, function(x) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">72</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">#'         dataname = "CO2",</pre>
+                      <pre class="language-r">        dataname_ns &lt;- NS(ns(x))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">73</td>
+                    <td class="num">203</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         select = select_spec(</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">204</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           label = "Select variable:",</pre>
+                      <pre class="language-r">        conditionalPanel(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">75</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">#'           choices = variable_choices(data[["CO2"]]),</pre>
+                      <pre class="language-r">          is_tab_active_js(ns("dataname_tab"), x),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">76</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">#'           selected = "uptake",</pre>
+                      <pre class="language-r">          tagList(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">77</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">207</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           multiple = FALSE,</pre>
+                      <pre class="language-r">            teal.widgets::verbatim_popup_ui(dataname_ns("warning"), "Show Warnings"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">78</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">#'           fixed = FALSE</pre>
+                      <pre class="language-r">            teal.widgets::verbatim_popup_ui(dataname_ns("rcode"), "Show R code")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">79</td>
+                    <td class="num">209</td>
                     <td class="coverage"></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">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">81</td>
+                    <td class="num">211</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       row_facet = data_extract_spec(</pre>
+                      <pre class="language-r">      })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">82</td>
+                    <td class="num">212</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         dataname = "CO2",</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">83</td>
+                    <td class="num">213</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         select = select_spec(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">84</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">214</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           label = "Select variable:",</pre>
+                      <pre class="language-r">    lapply(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">85</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">#'           choices = variable_choices(data[["CO2"]]),</pre>
+                      <pre class="language-r">      datanames,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">86</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">#'           selected = "Type",</pre>
+                      <pre class="language-r">      function(x) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">87</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">#'           fixed = FALSE</pre>
+                      <pre class="language-r">        srv_missing_data(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">88</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">#'         )</pre>
+                      <pre class="language-r">          id = x,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">89</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">#'       ),</pre>
+                      <pre class="language-r">          data = data,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">90</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">#'       col_facet = data_extract_spec(</pre>
+                      <pre class="language-r">          reporter = reporter,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">91</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">#'         dataname = "CO2",</pre>
+                      <pre class="language-r">          filter_panel_api = filter_panel_api,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">92</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">#'         select = select_spec(</pre>
+                      <pre class="language-r">          dataname = x,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">93</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">#'           label = "Select variable:",</pre>
+                      <pre class="language-r">          parent_dataname = parent_dataname,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">94</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">224</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           choices = variable_choices(data[["CO2"]]),</pre>
+                      <pre class="language-r">          plot_height = plot_height,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">95</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">#'           selected = "Treatment",</pre>
+                      <pre class="language-r">          plot_width = plot_width,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">96</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">#'           fixed = FALSE</pre>
+                      <pre class="language-r">          ggplot2_args = ggplot2_args</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">97</td>
+                    <td class="num">227</td>
                     <td class="coverage"></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">228</td>
                     <td class="coverage"></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">229</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       ggplot2_args = ggplot2_args(</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">100</td>
+                    <td class="num">230</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         labs = list(subtitle = "Plot generated by Bivariate Module")</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">101</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">102</td>
+                    <td class="num">232</td>
                     <td class="coverage"></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">233</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">ui_missing_data &lt;- function(id, by_subject_plot = FALSE) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">104</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">#' )</pre>
+                      <pre class="language-r">  ns &lt;- NS(id)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">105</td>
+                    <td class="num">235</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">106</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">#'   shinyApp(app$ui, app$server)</pre>
+                      <pre class="language-r">  tab_list &lt;- list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">107</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">#' }</pre>
+                      <pre class="language-r">    tabPanel(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">108</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">#'</pre>
+                      <pre class="language-r">      "Summary",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">109</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">239</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      teal.widgets::plot_with_settings_ui(id = ns("summary_plot")),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">110</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">#' # CDISC data example</pre>
+                      <pre class="language-r">      helpText(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">111</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">#' library(teal.widgets)</pre>
+                      <pre class="language-r">        p(paste(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">112</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">#'</pre>
+                      <pre class="language-r">          'The "Summary" graph shows the number of missing values per variable (both absolute and percentage),',</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">113</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">#' data &lt;- teal_data()</pre>
+                      <pre class="language-r">          "sorted by magnitude."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">114</td>
+                    <td class="num">244</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' data &lt;- within(data, {</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">245</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   library(nestcolor)</pre>
+                      <pre class="language-r">        p(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">116</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">#'   ADSL &lt;- rADSL</pre>
+                      <pre class="language-r">          'The "summary per patients" graph is showing how many subjects have at least one missing observation',</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">117</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">247</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' })</pre>
+                      <pre class="language-r">          "for each variable. It will be most useful for panel datasets."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">118</td>
+                    <td class="num">248</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' datanames(data) &lt;- c("ADSL")</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">119</td>
+                    <td class="num">249</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' join_keys(data) &lt;- default_cdisc_join_keys[datanames(data)]</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">120</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="never">
-                    <td class="num">121</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">#' app &lt;- init(</pre>
+                      <pre class="language-r">    tabPanel(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">122</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">#'   data = data,</pre>
+                      <pre class="language-r">      "Combinations",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">123</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">#'   modules = modules(</pre>
+                      <pre class="language-r">      teal.widgets::plot_with_settings_ui(id = ns("combination_plot")),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">124</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">#'     tm_g_bivariate(</pre>
+                      <pre class="language-r">      helpText(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">125</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">#'       x = data_extract_spec(</pre>
+                      <pre class="language-r">        p(paste(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">126</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">256</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         dataname = "ADSL",</pre>
+                      <pre class="language-r">          'The "Combinations" graph is used to explore the relationship between the missing data within',</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">127</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">#'         select = select_spec(</pre>
+                      <pre class="language-r">          "different columns of the dataset.",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">128</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">#'           label = "Select variable:",</pre>
+                      <pre class="language-r">          "It shows the different patterns of missingness in the rows of the data.",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">129</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">#'           choices = variable_choices(data[["ADSL"]]),</pre>
+                      <pre class="language-r">          'For example, suppose that 70 rows of the data have exactly columns "A" and "B" missing.',</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">130</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">#'           selected = "AGE",</pre>
+                      <pre class="language-r">          "In this case there would be a bar of height 70 in the top graph and",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">131</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">#'           fixed = FALSE</pre>
+                      <pre class="language-r">          'the column below this in the second graph would have rows "A" and "B" cells shaded red.'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">132</td>
+                    <td class="num">262</td>
                     <td class="coverage"></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="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">        p(paste(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">134</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">#'       y = data_extract_spec(</pre>
+                      <pre class="language-r">          "Due to the large number of missing data patterns possible, only those with a large set of observations",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">135</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">#'         dataname = "ADSL",</pre>
+                      <pre class="language-r">          'are shown in the graph and the "Combination cut-off" slider can be used to adjust the number shown.'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">136</td>
+                    <td class="num">266</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         select = select_spec(</pre>
+                      <pre class="language-r">        ))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">137</td>
+                    <td class="num">267</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           label = "Select variable:",</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">138</td>
+                    <td class="num">268</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           choices = variable_choices(data[["ADSL"]]),</pre>
+                      <pre class="language-r">    ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">139</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">#'           selected = "SEX",</pre>
+                      <pre class="language-r">    tabPanel(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">140</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">270</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           multiple = FALSE,</pre>
+                      <pre class="language-r">      "By Variable Levels",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">141</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">#'           fixed = FALSE</pre>
+                      <pre class="language-r">      teal.widgets::get_dt_rows(ns("levels_table"), ns("levels_table_rows")),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">142</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">      DT::dataTableOutput(ns("levels_table"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">143</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">144</td>
+                    <td class="num">274</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       row_facet = data_extract_spec(</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">145</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">#'         dataname = "ADSL",</pre>
+                      <pre class="language-r">  if (isTRUE(by_subject_plot)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">146</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">#'         select = select_spec(</pre>
+                      <pre class="language-r">    tab_list &lt;- append(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">147</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">277</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           label = "Select variable:",</pre>
+                      <pre class="language-r">      tab_list,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">148</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">278</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           choices = variable_choices(data[["ADSL"]]),</pre>
+                      <pre class="language-r">      list(tabPanel(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">149</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'           selected = "ARM",</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">150</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">#'           fixed = FALSE</pre>
+                      <pre class="language-r">        "Grouped by Subject",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">151</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">#'         )</pre>
+                      <pre class="language-r">        teal.widgets::plot_with_settings_ui(id = ns("by_subject_plot")),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">152</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">#'       ),</pre>
+                      <pre class="language-r">        helpText(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">153</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">#'       col_facet = data_extract_spec(</pre>
+                      <pre class="language-r">          p(paste(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">154</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">#'         dataname = "ADSL",</pre>
+                      <pre class="language-r">            "This graph shows the missingness with respect to subjects rather than individual rows of the",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">155</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">#'         select = select_spec(</pre>
+                      <pre class="language-r">            "dataset. Each row represents one dataset variable and each column a single subject. Only subjects",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">156</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">285</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           label = "Select variable:",</pre>
+                      <pre class="language-r">            "with at least one record in this dataset are shown. For a given subject, if they have any missing",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">157</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">286</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           choices = variable_choices(data[["ADSL"]]),</pre>
+                      <pre class="language-r">            "values of a specific variable then the appropriate cell in the graph is marked as missing."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">158</td>
+                    <td class="num">287</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           selected = "COUNTRY",</pre>
+                      <pre class="language-r">          ))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">159</td>
+                    <td class="num">288</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           fixed = FALSE</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">160</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">161</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">162</td>
+                    <td class="num">291</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       ggplot2_args = ggplot2_args(</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">163</td>
+                    <td class="num">292</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         labs = list(subtitle = "Plot generated by Bivariate Module")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">164</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">  do.call(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">165</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">    tabsetPanel,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">166</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">#'   )</pre>
+                      <pre class="language-r">    c(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">167</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">#' )</pre>
+                      <pre class="language-r">      id = ns("summary_type"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">168</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">#' if (interactive()) {</pre>
+                      <pre class="language-r">      tab_list</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">169</td>
+                    <td class="num">298</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">170</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">171</td>
+                    <td class="num">300</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">tm_g_bivariate &lt;- function(label = "Bivariate Plots",</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">172</td>
+                    <td class="num">301</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           x,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">173</td>
+                    <td class="num">302</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           y,</pre>
+                      <pre class="language-r">encoding_missing_data &lt;- function(id, summary_per_patient = FALSE, ggtheme, datanames) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">174</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">                           row_facet = NULL,</pre>
+                      <pre class="language-r">  ns &lt;- NS(id)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">175</td>
+                    <td class="num">304</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           col_facet = NULL,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">176</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">                           facet = !is.null(row_facet) || !is.null(col_facet),</pre>
+                      <pre class="language-r">  tagList(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">177</td>
+                    <td class="num">306</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           color = NULL,</pre>
+                      <pre class="language-r">    ### Reporter</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">178</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">                           fill = NULL,</pre>
+                      <pre class="language-r">    teal.reporter::simple_reporter_ui(ns("simple_reporter")),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">179</td>
+                    <td class="num">308</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           size = NULL,</pre>
+                      <pre class="language-r">    ###</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">180</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">                           use_density = FALSE,</pre>
+                      <pre class="language-r">    tags$label("Encodings", class = "text-primary"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">181</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">                           color_settings = FALSE,</pre>
+                      <pre class="language-r">    helpText(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">182</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">                           free_x_scales = FALSE,</pre>
+                      <pre class="language-r">      paste0("Dataset", `if`(length(datanames) &gt; 1, "s", ""), ":"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">183</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">                           free_y_scales = FALSE,</pre>
+                      <pre class="language-r">      tags$code(paste(datanames, collapse = ", "))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">184</td>
+                    <td class="num">313</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           plot_height = c(600, 200, 2000),</pre>
+                      <pre class="language-r">    ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">185</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">                           plot_width = NULL,</pre>
+                      <pre class="language-r">    uiOutput(ns("variables")),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">186</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">                           rotate_xaxis_labels = FALSE,</pre>
+                      <pre class="language-r">    actionButton(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">187</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">316</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           swap_axes = FALSE,</pre>
+                      <pre class="language-r">      ns("filter_na"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">188</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">317</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           ggtheme = c("gray", "bw", "linedraw", "light", "dark", "minimal", "classic", "void"),</pre>
+                      <pre class="language-r">      span("Select only vars with missings", class = "whitespace-normal"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">189</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">318</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           ggplot2_args = teal.widgets::ggplot2_args(),</pre>
+                      <pre class="language-r">      width = "100%",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">190</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">319</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           pre_output = NULL,</pre>
+                      <pre class="language-r">      class = "mb-4"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">191</td>
+                    <td class="num">320</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           post_output = NULL) {</pre>
+                      <pre class="language-r">    ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">192</td>
+                    <td class="num">321</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  logger::log_info("Initializing tm_g_bivariate")</pre>
+                      <pre class="language-r">    conditionalPanel(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">193</td>
+                    <td class="num">322</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (inherits(x, "data_extract_spec")) x &lt;- list(x)</pre>
+                      <pre class="language-r">      is_tab_active_js(ns("summary_type"), "Summary"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">194</td>
+                    <td class="num">323</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (inherits(y, "data_extract_spec")) y &lt;- list(y)</pre>
+                      <pre class="language-r">      checkboxInput(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">195</td>
+                    <td class="num">324</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (inherits(row_facet, "data_extract_spec")) row_facet &lt;- list(row_facet)</pre>
+                      <pre class="language-r">        ns("any_na"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">196</td>
+                    <td class="num">325</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (inherits(col_facet, "data_extract_spec")) col_facet &lt;- list(col_facet)</pre>
+                      <pre class="language-r">        div(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">197</td>
+                    <td class="num">326</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (inherits(color, "data_extract_spec")) color &lt;- list(color)</pre>
+                      <pre class="language-r">          class = "teal-tooltip",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">198</td>
+                    <td class="num">327</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (inherits(fill, "data_extract_spec")) fill &lt;- list(fill)</pre>
+                      <pre class="language-r">          tagList(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">199</td>
+                    <td class="num">328</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (inherits(size, "data_extract_spec")) size &lt;- list(size)</pre>
+                      <pre class="language-r">            "Add **anyna** variable",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">200</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">329</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">            icon("circle-info"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">201</td>
+                    <td class="num">330</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(x, types = "data_extract_spec")</pre>
+                      <pre class="language-r">            span(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">202</td>
+                    <td class="num">331</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!all(vapply(x, function(x) !x$select$multiple, logical(1)))) {</pre>
+                      <pre class="language-r">              class = "tooltiptext",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">203</td>
+                    <td class="num">332</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stop("'x' should not allow multiple selection")</pre>
+                      <pre class="language-r">              "Describes the number of observations with at least one missing value in any variable."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">204</td>
+                    <td class="num">333</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">205</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">334</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(y, types = "data_extract_spec")</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">206</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">335</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!all(vapply(y, function(x) !x$select$multiple, logical(1)))) {</pre>
+                      <pre class="language-r">        ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">207</td>
+                    <td class="num">336</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stop("'y' should not allow multiple selection")</pre>
+                      <pre class="language-r">        value = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">208</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="missed">
-                    <td class="num">209</td>
+                    <td class="num">338</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(row_facet, types = "data_extract_spec", null.ok = TRUE)</pre>
+                      <pre class="language-r">      if (summary_per_patient) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">210</td>
+                    <td class="num">339</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!all(vapply(row_facet, function(x) !x$select$multiple, logical(1)))) {</pre>
+                      <pre class="language-r">        checkboxInput(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">211</td>
+                    <td class="num">340</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stop("'row_facet' should not allow multiple selection")</pre>
+                      <pre class="language-r">          ns("if_patients_plot"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">212</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">          div(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">213</td>
+                    <td class="num">342</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(col_facet, types = "data_extract_spec", null.ok = TRUE)</pre>
+                      <pre class="language-r">            class = "teal-tooltip",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">214</td>
+                    <td class="num">343</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!all(vapply(col_facet, function(x) !x$select$multiple, logical(1)))) {</pre>
+                      <pre class="language-r">            tagList(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">215</td>
+                    <td class="num">344</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stop("'col_facet' should not allow multiple selection")</pre>
+                      <pre class="language-r">              "Add summary per patients",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">216</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">345</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">              icon("circle-info"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">217</td>
+                    <td class="num">346</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(color, types = "data_extract_spec", null.ok = TRUE)</pre>
+                      <pre class="language-r">              span(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">218</td>
+                    <td class="num">347</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!all(vapply(color, function(x) !x$select$multiple, logical(1)))) {</pre>
+                      <pre class="language-r">                class = "tooltiptext",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">219</td>
+                    <td class="num">348</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stop("'color' should not allow multiple selection")</pre>
+                      <pre class="language-r">                paste(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">220</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">349</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">                  "Displays the number of missing values per observation,",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">221</td>
+                    <td class="num">350</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(fill, types = "data_extract_spec", null.ok = TRUE)</pre>
+                      <pre class="language-r">                  "where the x-axis is sorted by observation appearance in the table."</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">222</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">351</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!all(vapply(fill, function(x) !x$select$multiple, logical(1)))) {</pre>
+                      <pre class="language-r">                )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">223</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">352</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stop("'fill' should not allow multiple selection")</pre>
+                      <pre class="language-r">              )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">224</td>
+                    <td class="num">353</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">225</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">354</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(size, types = "data_extract_spec", null.ok = TRUE)</pre>
+                      <pre class="language-r">          ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">226</td>
+                    <td class="num">355</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!all(vapply(size, function(x) !x$select$multiple, logical(1)))) {</pre>
+                      <pre class="language-r">          value = FALSE</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">227</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">356</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stop("'size' should not allow multiple selection")</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">228</td>
+                    <td class="num">357</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">229</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="missed">
-                    <td class="num">230</td>
+                    <td class="num">359</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ggtheme &lt;- match.arg(ggtheme)</pre>
+                      <pre class="language-r">    conditionalPanel(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">231</td>
+                    <td class="num">360</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(label)</pre>
+                      <pre class="language-r">      is_tab_active_js(ns("summary_type"), "Combinations"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">232</td>
+                    <td class="num">361</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(use_density)</pre>
+                      <pre class="language-r">      uiOutput(ns("cutoff"))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">233</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">362</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(color_settings)</pre>
+                      <pre class="language-r">    ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">234</td>
+                    <td class="num">363</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(free_x_scales)</pre>
+                      <pre class="language-r">    conditionalPanel(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">235</td>
+                    <td class="num">364</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(free_y_scales)</pre>
+                      <pre class="language-r">      is_tab_active_js(ns("summary_type"), "By Variable Levels"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">236</td>
+                    <td class="num">365</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(rotate_xaxis_labels)</pre>
+                      <pre class="language-r">      tagList(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">237</td>
+                    <td class="num">366</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(swap_axes)</pre>
+                      <pre class="language-r">        uiOutput(ns("group_by_var_ui")),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">238</td>
+                    <td class="num">367</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(plot_height, len = 3, any.missing = FALSE, finite = TRUE)</pre>
+                      <pre class="language-r">        uiOutput(ns("group_by_vals_ui")),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">239</td>
+                    <td class="num">368</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(plot_height[1], lower = plot_height[2], upper = plot_height[3], .var.name = "plot_height")</pre>
+                      <pre class="language-r">        radioButtons(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">240</td>
+                    <td class="num">369</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(plot_width, len = 3, any.missing = FALSE, null.ok = TRUE, finite = TRUE)</pre>
+                      <pre class="language-r">          ns("count_type"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">241</td>
+                    <td class="num">370</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(</pre>
+                      <pre class="language-r">          label = "Display missing as",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">242</td>
+                    <td class="num">371</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    plot_width[1],</pre>
+                      <pre class="language-r">          choices = c("counts", "proportions"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">243</td>
+                    <td class="num">372</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lower = plot_width[2], upper = plot_width[3], null.ok = TRUE, .var.name = "plot_width"</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">          selected = "counts",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">245</td>
+                    <td class="num">373</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(ggplot2_args, "ggplot2_args")</pre>
+                      <pre class="language-r">          inline = TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">246</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="missed">
-                    <td class="num">247</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">375</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (color_settings) {</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">248</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">376</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (is.null(color)) {</pre>
+                      <pre class="language-r">    ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">249</td>
+                    <td class="num">377</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      color &lt;- x</pre>
+                      <pre class="language-r">    teal.widgets::panel_item(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">250</td>
+                    <td class="num">378</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      color[[1]]$select &lt;- teal.transform::select_spec(choices = color[[1]]$select$choices, selected = NULL)</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">      title = "Plot settings",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">252</td>
+                    <td class="num">379</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (is.null(fill)) {</pre>
+                      <pre class="language-r">      selectInput(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">253</td>
+                    <td class="num">380</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      fill &lt;- x</pre>
+                      <pre class="language-r">        inputId = ns("ggtheme"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">254</td>
+                    <td class="num">381</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      fill[[1]]$select &lt;- teal.transform::select_spec(choices = fill[[1]]$select$choices, selected = NULL)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">255</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">        label = "Theme (by ggplot):",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">256</td>
+                    <td class="num">382</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (is.null(size)) {</pre>
+                      <pre class="language-r">        choices = ggplot_themes,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">257</td>
+                    <td class="num">383</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      size &lt;- x</pre>
+                      <pre class="language-r">        selected = ggtheme,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">258</td>
+                    <td class="num">384</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      size[[1]]$select &lt;- teal.transform::select_spec(choices = size[[1]]$select$choices, selected = NULL)</pre>
+                      <pre class="language-r">        multiple = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">259</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">260</td>
+                    <td class="num">386</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">261</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">387</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (!is.null(c(color, fill, size))) {</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">262</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">388</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      stop("'color_settings' argument needs to be set to TRUE if 'color', 'fill', and/or 'size' is/are supplied.")</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">263</td>
+                    <td class="num">389</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">264</td>
+                    <td class="num">390</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">srv_missing_data &lt;- function(id, data, reporter, filter_panel_api, dataname, parent_dataname,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">265</td>
+                    <td class="num">391</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                             plot_height, plot_width, ggplot2_args) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">266</td>
+                    <td class="num">392</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  args &lt;- as.list(environment())</pre>
+                      <pre class="language-r">  with_reporter &lt;- !missing(reporter) &amp;&amp; inherits(reporter, "Reporter")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">267</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"></pre>
+                      <pre class="language-r">  with_filter &lt;- !missing(filter_panel_api) &amp;&amp; inherits(filter_panel_api, "FilterPanelAPI")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">268</td>
+                    <td class="num">394</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  data_extract_list &lt;- list(</pre>
+                      <pre class="language-r">  checkmate::assert_class(data, "reactive")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">269</td>
+                    <td class="num">395</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x = x,</pre>
+                      <pre class="language-r">  checkmate::assert_class(isolate(data()), "teal_data")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">270</td>
+                    <td class="num">396</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    y = y,</pre>
+                      <pre class="language-r">  moduleServer(id, function(input, output, session) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">271</td>
+                    <td class="num">397</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    row_facet = row_facet,</pre>
+                      <pre class="language-r">    prev_group_by_var &lt;- reactiveVal("")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">272</td>
+                    <td class="num">398</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    col_facet = col_facet,</pre>
+                      <pre class="language-r">    data_r &lt;- reactive(data()[[dataname]])</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">273</td>
+                    <td class="num">399</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    color_settings = color_settings,</pre>
+                      <pre class="language-r">    data_keys &lt;- reactive(unlist(teal.data::join_keys(data())[[dataname]]))</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">400</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">274</td>
+                    <td class="num">401</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    color = color,</pre>
+                      <pre class="language-r">    iv_r &lt;- reactive({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">275</td>
+                    <td class="num">402</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    fill = fill,</pre>
+                      <pre class="language-r">      iv &lt;- shinyvalidate::InputValidator$new()</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">276</td>
+                    <td class="num">403</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    size = size</pre>
+                      <pre class="language-r">      iv$add_rule(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">277</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">404</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">        "variables_select",</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">405</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        shinyvalidate::sv_required("At least one reference variable needs to be selected.")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">278</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="missed">
-                    <td class="num">279</td>
+                    <td class="num">407</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  module(</pre>
+                      <pre class="language-r">      iv$add_rule(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">280</td>
+                    <td class="num">408</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    label = label,</pre>
+                      <pre class="language-r">        "variables_select",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">281</td>
+                    <td class="num">409</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    server = srv_g_bivariate,</pre>
+                      <pre class="language-r">        ~ if (length(setdiff((.), data_keys())) &lt; 1) "Please also select non-key columns."</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="missed">
-                    <td class="num">282</td>
+                    <td class="num">411</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ui = ui_g_bivariate,</pre>
+                      <pre class="language-r">      iv_summary_table &lt;- shinyvalidate::InputValidator$new()</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">283</td>
+                    <td class="num">412</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ui_args = args,</pre>
+                      <pre class="language-r">      iv_summary_table$condition(~ isTRUE(input$summary_type == "By Variable Levels"))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">284</td>
+                    <td class="num">413</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    server_args = c(</pre>
+                      <pre class="language-r">      iv_summary_table$add_rule("count_type", shinyvalidate::sv_required("Please select type of counts"))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">285</td>
+                    <td class="num">414</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      data_extract_list,</pre>
+                      <pre class="language-r">      iv_summary_table$add_rule(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">286</td>
+                    <td class="num">415</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      list(plot_height = plot_height, plot_width = plot_width, ggplot2_args = ggplot2_args)</pre>
+                      <pre class="language-r">        "group_by_vals",</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">416</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        shinyvalidate::sv_required("Please select both group-by variable and values")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">287</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="missed">
-                    <td class="num">288</td>
+                    <td class="num">418</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    datanames = teal.transform::get_extract_datanames(data_extract_list)</pre>
+                      <pre class="language-r">      iv_summary_table$add_rule(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">289</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">  )</pre>
+                      <pre class="language-r">        "group_by_var",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">290</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">}</pre>
+                      <pre class="language-r">        ~ if (length(.) &gt; 0 &amp;&amp; length(input$variables_select) == 1 &amp;&amp; (.) == input$variables_select) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">421</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          "If only one reference variable is selected it must not be the grouping variable."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">291</td>
+                    <td class="num">422</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">292</td>
+                    <td class="num">423</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">ui_g_bivariate &lt;- function(id, ...) {</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">293</td>
+                    <td class="num">424</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  args &lt;- list(...)</pre>
+                      <pre class="language-r">      iv_summary_table$add_rule(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">294</td>
+                    <td class="num">425</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  is_single_dataset_value &lt;- teal.transform::is_single_dataset(</pre>
+                      <pre class="language-r">        "variables_select",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">295</td>
+                    <td class="num">426</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    args$x, args$y, args$row_facet, args$col_facet, args$color, args$fill, args$size</pre>
+                      <pre class="language-r">        ~ if (length(input$group_by_var) &gt; 0 &amp;&amp; length(.) == 1 &amp;&amp; (.) == input$group_by_var) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">296</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">  )</pre>
+                      <pre class="language-r">          "If only one reference variable is selected it must not be the grouping variable."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">297</td>
+                    <td class="num">428</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">298</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">429</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">299</td>
+                    <td class="num">430</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  teal.widgets::standard_layout(</pre>
+                      <pre class="language-r">      iv$add_validator(iv_summary_table)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">300</td>
+                    <td class="num">431</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    output = teal.widgets::white_small_well(</pre>
+                      <pre class="language-r">      iv$enable()</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">301</td>
+                    <td class="num">432</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      tags$div(teal.widgets::plot_with_settings_ui(id = ns("myplot")))</pre>
+                      <pre class="language-r">      iv</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">302</td>
+                    <td class="num">433</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">303</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">    encoding = div(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">304</td>
+                    <td class="num">435</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ### Reporter</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">305</td>
+                    <td class="num">436</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.reporter::simple_reporter_ui(ns("simple_reporter")),</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">306</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      ###</pre>
+                      <pre class="language-r">    data_parent_keys &lt;- reactive({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">307</td>
+                    <td class="num">437</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      tags$label("Encodings", class = "text-primary"),</pre>
+                      <pre class="language-r">      if (length(parent_dataname) &gt; 0 &amp;&amp; parent_dataname %in% names(data)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">308</td>
+                    <td class="num">438</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.transform::datanames_input(args[c("x", "y", "row_facet", "col_facet", "color", "fill", "size")]),</pre>
+                      <pre class="language-r">        keys &lt;- teal.data::join_keys(data)[[dataname]]</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">309</td>
+                    <td class="num">439</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.transform::data_extract_ui(</pre>
+                      <pre class="language-r">        if (parent_dataname %in% names(keys)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">310</td>
+                    <td class="num">440</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        id = ns("x"),</pre>
+                      <pre class="language-r">          keys[[parent_dataname]]</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">311</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">441</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        label = "X variable",</pre>
+                      <pre class="language-r">        } else {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">312</td>
+                    <td class="num">442</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        data_extract_spec = args$x,</pre>
+                      <pre class="language-r">          keys[[dataname]]</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">313</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">        is_single_dataset = is_single_dataset_value</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">314</td>
+                    <td class="num">444</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">315</td>
+                    <td class="num">445</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.transform::data_extract_ui(</pre>
+                      <pre class="language-r">        NULL</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">316</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">446</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        id = ns("y"),</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">317</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">447</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        label = "Y variable",</pre>
+                      <pre class="language-r">    })</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">448</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">318</td>
+                    <td class="num">449</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        data_extract_spec = args$y,</pre>
+                      <pre class="language-r">    common_code_q &lt;- reactive({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">319</td>
+                    <td class="num">450</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        is_single_dataset = is_single_dataset_value</pre>
+                      <pre class="language-r">      teal::validate_inputs(iv_r())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">320</td>
+                    <td class="num">451</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">321</td>
+                    <td class="num">452</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      conditionalPanel(</pre>
+                      <pre class="language-r">      group_var &lt;- input$group_by_var</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">322</td>
+                    <td class="num">453</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        condition =</pre>
+                      <pre class="language-r">      anl &lt;- data_r()</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">323</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">454</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "$(\"button[data-id*='-x-dataset'][data-id$='-select']\").text() == '- Nothing selected - ' ||</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">324</td>
+                    <td class="num">455</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          $(\"button[data-id*='-y-dataset'][data-id$='-select']\").text() == '- Nothing selected - ' ",</pre>
+                      <pre class="language-r">      qenv &lt;- if (!is.null(selected_vars()) &amp;&amp; length(selected_vars()) != ncol(anl)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">325</td>
+                    <td class="num">456</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        shinyWidgets::radioGroupButtons(</pre>
+                      <pre class="language-r">        teal.code::eval_code(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">326</td>
+                    <td class="num">457</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          inputId = ns("use_density"),</pre>
+                      <pre class="language-r">          data(),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">327</td>
+                    <td class="num">458</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          label = NULL,</pre>
+                      <pre class="language-r">          substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">328</td>
+                    <td class="num">459</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          choices = c("frequency", "density"),</pre>
+                      <pre class="language-r">            expr = ANL &lt;- anl_name[, selected_vars, drop = FALSE], # nolint: object_name.</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">329</td>
+                    <td class="num">460</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          selected = ifelse(args$use_density, "density", "frequency"),</pre>
+                      <pre class="language-r">            env = list(anl_name = as.name(dataname), selected_vars = selected_vars())</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">330</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">          justified = TRUE</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">331</td>
+                    <td class="num">462</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">463</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">333</td>
+                    <td class="num">464</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (!is.null(args$row_facet) || !is.null(args$col_facet)) {</pre>
+                      <pre class="language-r">        teal.code::eval_code(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">334</td>
+                    <td class="num">465</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        div(</pre>
+                      <pre class="language-r">          data(),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">335</td>
+                    <td class="num">466</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          class = "data-extract-box",</pre>
+                      <pre class="language-r">          substitute(expr = ANL &lt;- anl_name, env = list(anl_name = as.name(dataname))) # nolint: object_name.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">336</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">467</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          tags$label("Facetting"),</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">337</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">468</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          shinyWidgets::switchInput(inputId = ns("facetting"), value = args$facet, size = "mini"),</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">338</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">469</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          conditionalPanel(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">339</td>
+                    <td class="num">470</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            condition = paste0("input['", ns("facetting"), "']"),</pre>
+                      <pre class="language-r">      if (input$summary_type == "By Variable Levels" &amp;&amp; !is.null(group_var) &amp;&amp; !(group_var %in% selected_vars())) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">340</td>
+                    <td class="num">471</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            div(</pre>
+                      <pre class="language-r">        qenv &lt;- teal.code::eval_code(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">341</td>
+                    <td class="num">472</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              if (!is.null(args$row_facet)) {</pre>
+                      <pre class="language-r">          qenv,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">342</td>
+                    <td class="num">473</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                teal.transform::data_extract_ui(</pre>
+                      <pre class="language-r">          substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">343</td>
+                    <td class="num">474</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  id = ns("row_facet"),</pre>
+                      <pre class="language-r">            expr = ANL[[group_var]] &lt;- anl_name[[group_var]], # nolint: object_name.</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">344</td>
+                    <td class="num">475</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  label = "Row facetting variable",</pre>
+                      <pre class="language-r">            env = list(group_var = group_var, anl_name = as.name(dataname))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">345</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">476</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  data_extract_spec = args$row_facet,</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">477</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  is_single_dataset = is_single_dataset_value</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">347</td>
+                    <td class="num">478</td>
                     <td class="coverage"></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">479</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">349</td>
+                    <td class="num">480</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              if (!is.null(args$col_facet)) {</pre>
+                      <pre class="language-r">      new_col_name &lt;- "**anyna**"</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">350</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">481</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                teal.transform::data_extract_ui(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">351</td>
+                    <td class="num">482</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  id = ns("col_facet"),</pre>
+                      <pre class="language-r">      qenv &lt;- teal.code::eval_code(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">352</td>
+                    <td class="num">483</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  label = "Column facetting variable",</pre>
+                      <pre class="language-r">        qenv,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">353</td>
+                    <td class="num">484</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  data_extract_spec = args$col_facet,</pre>
+                      <pre class="language-r">        substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">354</td>
+                    <td class="num">485</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  is_single_dataset = is_single_dataset_value</pre>
+                      <pre class="language-r">          expr =</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">355</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">486</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                )</pre>
+                      <pre class="language-r">            create_cols_labels &lt;- function(cols, just_label = FALSE) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">356</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">              column_labels &lt;- column_labels_value</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">357</td>
+                    <td class="num">488</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              checkboxInput(ns("free_x_scales"), "free x scales", value = args$free_x_scales),</pre>
+                      <pre class="language-r">              column_labels[is.na(column_labels) | length(column_labels) == 0] &lt;- ""</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">358</td>
+                    <td class="num">489</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              checkboxInput(ns("free_y_scales"), "free y scales", value = args$free_y_scales)</pre>
+                      <pre class="language-r">              if (just_label) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">359</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">            )</pre>
+                      <pre class="language-r">                labels &lt;- column_labels[cols]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">360</td>
+                    <td class="num">491</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">361</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">492</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">                labels &lt;- ifelse(cols == new_col_name | cols == "", cols, paste0(column_labels[cols], " [", cols, "]"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">362</td>
+                    <td class="num">493</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">363</td>
+                    <td class="num">494</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (args$color_settings) {</pre>
+                      <pre class="language-r">              return(labels)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">364</td>
+                    <td class="num">495</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # Put a grey border around the coloring settings</pre>
+                      <pre class="language-r">            },</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">365</td>
+                    <td class="num">496</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        div(</pre>
+                      <pre class="language-r">          env = list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">366</td>
+                    <td class="num">497</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          class = "data-extract-box",</pre>
+                      <pre class="language-r">            new_col_name = new_col_name,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">367</td>
+                    <td class="num">498</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          tags$label("Color settings"),</pre>
+                      <pre class="language-r">            column_labels_value = c(teal.data::col_labels(data_r())[selected_vars()],</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">368</td>
+                    <td class="num">499</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          shinyWidgets::switchInput(inputId = ns("coloring"), value = TRUE, size = "mini"),</pre>
+                      <pre class="language-r">              new_col_name = new_col_name</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">369</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">500</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          conditionalPanel(</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">370</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">501</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            condition = paste0("input['", ns("coloring"), "']"),</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">371</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">502</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">372</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">503</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              teal.transform::data_extract_ui(</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">373</td>
+                    <td class="num">504</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                id = ns("color"),</pre>
+                      <pre class="language-r">      qenv</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">374</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">505</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                label = "Outline color by variable",</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">375</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">506</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                data_extract_spec = args$color,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">376</td>
+                    <td class="num">507</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                is_single_dataset = is_single_dataset_value</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">377</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">              ),</pre>
+                      <pre class="language-r">    selected_vars &lt;- reactive({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">378</td>
+                    <td class="num">508</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              teal.transform::data_extract_ui(</pre>
+                      <pre class="language-r">      req(input$variables_select)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">379</td>
+                    <td class="num">509</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                id = ns("fill"),</pre>
+                      <pre class="language-r">      keys &lt;- data_keys()</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">380</td>
+                    <td class="num">510</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                label = "Fill color by variable",</pre>
+                      <pre class="language-r">      vars &lt;- unique(c(keys, input$variables_select))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">381</td>
+                    <td class="num">511</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                data_extract_spec = args$fill,</pre>
+                      <pre class="language-r">      vars</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">382</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">512</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                is_single_dataset = is_single_dataset_value</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">383</td>
+                    <td class="num">513</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">384</td>
+                    <td class="num">514</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              div(</pre>
+                      <pre class="language-r">    vars_summary &lt;- reactive({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">385</td>
+                    <td class="num">515</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                id = ns("size_settings"),</pre>
+                      <pre class="language-r">      na_count &lt;- data_r() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">386</td>
+                    <td class="num">516</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                teal.transform::data_extract_ui(</pre>
+                      <pre class="language-r">        sapply(function(x) mean(is.na(x)), USE.NAMES = TRUE) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">387</td>
+                    <td class="num">517</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  id = ns("size"),</pre>
+                      <pre class="language-r">        sort(decreasing = TRUE)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">518</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">388</td>
+                    <td class="num">519</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  label = "Size of points by variable (only if x and y are numeric)",</pre>
+                      <pre class="language-r">      tibble::tibble(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">389</td>
+                    <td class="num">520</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  data_extract_spec = args$size,</pre>
+                      <pre class="language-r">        key = names(na_count),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">390</td>
+                    <td class="num">521</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  is_single_dataset = is_single_dataset_value</pre>
+                      <pre class="language-r">        value = unname(na_count),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">391</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">522</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                )</pre>
+                      <pre class="language-r">        label = cut(na_count, breaks = seq(from = 0, to = 1, by = 0.1), include.lowest = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">392</td>
+                    <td class="num">523</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              )</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">393</td>
+                    <td class="num">524</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">394</td>
+                    <td class="num">525</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">395</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">526</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">    output$variables &lt;- renderUI({</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">527</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      choices &lt;- split(x = vars_summary()$key, f = vars_summary()$label, drop = TRUE) %&gt;% rev()</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">528</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      selected &lt;- choices &lt;- unname(unlist(choices))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">396</td>
+                    <td class="num">529</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">397</td>
+                    <td class="num">530</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.widgets::panel_group(</pre>
+                      <pre class="language-r">      teal.widgets::optionalSelectInput(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">398</td>
+                    <td class="num">531</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        teal.widgets::panel_item(</pre>
+                      <pre class="language-r">        session$ns("variables_select"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">399</td>
+                    <td class="num">532</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          title = "Plot settings",</pre>
+                      <pre class="language-r">        label = "Select variables",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">400</td>
+                    <td class="num">533</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          checkboxInput(ns("rotate_xaxis_labels"), "Rotate X axis labels", value = args$rotate_xaxis_labels),</pre>
+                      <pre class="language-r">        label_help = HTML(paste0("Dataset: ", tags$code(dataname))),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">401</td>
+                    <td class="num">534</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          checkboxInput(ns("swap_axes"), "Swap axes", value = args$swap_axes),</pre>
+                      <pre class="language-r">        choices = teal.transform::variable_choices(data_r(), choices),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">402</td>
+                    <td class="num">535</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          selectInput(</pre>
+                      <pre class="language-r">        selected = selected,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">403</td>
+                    <td class="num">536</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            inputId = ns("ggtheme"),</pre>
+                      <pre class="language-r">        multiple = TRUE</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">537</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">538</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    })</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">539</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">404</td>
+                    <td class="num">540</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            label = "Theme (by ggplot):",</pre>
+                      <pre class="language-r">    observeEvent(input$filter_na, {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">405</td>
+                    <td class="num">541</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            choices = ggplot_themes,</pre>
+                      <pre class="language-r">      choices &lt;- vars_summary() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">406</td>
+                    <td class="num">542</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            selected = args$ggtheme,</pre>
+                      <pre class="language-r">        dplyr::select(!!as.name("key")) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">407</td>
+                    <td class="num">543</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            multiple = FALSE</pre>
+                      <pre class="language-r">        getElement(name = 1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">408</td>
+                    <td class="num">544</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">409</td>
+                    <td class="num">545</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          sliderInput(</pre>
+                      <pre class="language-r">      selected &lt;- vars_summary() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">410</td>
+                    <td class="num">546</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ns("alpha"), "Opacity Scatterplot:",</pre>
+                      <pre class="language-r">        dplyr::filter(!!as.name("value") &gt; 0) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">411</td>
+                    <td class="num">547</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            min = 0, max = 1,</pre>
+                      <pre class="language-r">        dplyr::select(!!as.name("key")) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">412</td>
+                    <td class="num">548</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            step = .05, value = .5, ticks = FALSE</pre>
+                      <pre class="language-r">        getElement(name = 1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">413</td>
+                    <td class="num">549</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">414</td>
+                    <td class="num">550</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          sliderInput(</pre>
+                      <pre class="language-r">      teal.widgets::updateOptionalSelectInput(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">415</td>
+                    <td class="num">551</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ns("fixed_size"), "Scatterplot point size:",</pre>
+                      <pre class="language-r">        session = session,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">416</td>
+                    <td class="num">552</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            min = 1, max = 8,</pre>
+                      <pre class="language-r">        inputId = "variables_select",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">417</td>
+                    <td class="num">553</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            step = 1, value = 2, ticks = FALSE</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">418</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          ),</pre>
+                      <pre class="language-r">        choices = teal.transform::variable_choices(data_r()),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">419</td>
+                    <td class="num">554</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          checkboxInput(ns("add_lines"), "Add lines"),</pre>
+                      <pre class="language-r">        selected = selected</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">420</td>
+                    <td class="num">555</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">421</td>
+                    <td class="num">556</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">422</td>
+                    <td class="num">557</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">423</td>
+                    <td class="num">558</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    forms = tagList(</pre>
+                      <pre class="language-r">    output$group_by_var_ui &lt;- renderUI({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">424</td>
+                    <td class="num">559</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.widgets::verbatim_popup_ui(ns("warning"), button_label = "Show Warnings"),</pre>
+                      <pre class="language-r">      all_choices &lt;- teal.transform::variable_choices(data_r())</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">425</td>
+                    <td class="num">560</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">426</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    ),</pre>
+                      <pre class="language-r">      cat_choices &lt;- all_choices[!sapply(data_r(), function(x) is.numeric(x) || inherits(x, "POSIXct"))]</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">427</td>
+                    <td class="num">561</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    pre_output = args$pre_output,</pre>
+                      <pre class="language-r">      validate(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">428</td>
+                    <td class="num">562</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    post_output = args$post_output</pre>
+                      <pre class="language-r">        need(cat_choices, "Dataset does not have any non-numeric or non-datetime variables to use to group data with")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">429</td>
+                    <td class="num">563</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">430</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">}</pre>
+                      <pre class="language-r">      teal.widgets::optionalSelectInput(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">431</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"></pre>
+                      <pre class="language-r">        session$ns("group_by_var"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">432</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"></pre>
+                      <pre class="language-r">        label = "Group by variable",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">433</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">srv_g_bivariate &lt;- function(id,</pre>
+                      <pre class="language-r">        choices = cat_choices,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">434</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">                            data,</pre>
+                      <pre class="language-r">        selected = `if`(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">435</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">                            reporter,</pre>
+                      <pre class="language-r">          is.null(isolate(input$group_by_var)),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">436</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">570</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            filter_panel_api,</pre>
+                      <pre class="language-r">          cat_choices[1],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">437</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">571</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            x,</pre>
+                      <pre class="language-r">          isolate(input$group_by_var)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">438</td>
+                    <td class="num">572</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            y,</pre>
+                      <pre class="language-r">        ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">439</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">573</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            row_facet,</pre>
+                      <pre class="language-r">        multiple = FALSE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">440</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">574</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            col_facet,</pre>
+                      <pre class="language-r">        label_help = paste0("Dataset: ", dataname)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">441</td>
+                    <td class="num">575</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            color_settings = FALSE,</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">442</td>
+                    <td class="num">576</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            color,</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">443</td>
+                    <td class="num">577</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            fill,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">444</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">578</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            size,</pre>
+                      <pre class="language-r">    output$group_by_vals_ui &lt;- renderUI({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">445</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">579</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            plot_height,</pre>
+                      <pre class="language-r">      req(input$group_by_var)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">446</td>
+                    <td class="num">580</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            plot_width,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">447</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">581</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            ggplot2_args) {</pre>
+                      <pre class="language-r">      choices &lt;- teal.transform::value_choices(data_r(), input$group_by_var, input$group_by_var)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">448</td>
+                    <td class="num">582</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  with_reporter &lt;- !missing(reporter) &amp;&amp; inherits(reporter, "Reporter")</pre>
+                      <pre class="language-r">      prev_choices &lt;- isolate(input$group_by_vals)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">449</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">583</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  with_filter &lt;- !missing(filter_panel_api) &amp;&amp; inherits(filter_panel_api, "FilterPanelAPI")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">450</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">584</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(data, "reactive")</pre>
+                      <pre class="language-r">      # determine selected value based on filtered data</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">585</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      # display those previously selected values that are still available</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">451</td>
+                    <td class="num">586</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">      selected &lt;- if (!is.null(prev_choices) &amp;&amp; any(prev_choices %in% choices)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">452</td>
+                    <td class="num">587</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">        prev_choices[match(choices[choices %in% prev_choices], prev_choices)]</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">453</td>
+                    <td class="num">588</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    data_extract &lt;- list(</pre>
+                      <pre class="language-r">      } else if (!is.null(prev_choices) &amp;&amp;</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">454</td>
+                    <td class="num">589</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      x = x, y = y, row_facet = row_facet, col_facet = col_facet,</pre>
+                      <pre class="language-r">        !any(prev_choices %in% choices) &amp;&amp;</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">455</td>
+                    <td class="num">590</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      color = color, fill = fill, size = size</pre>
+                      <pre class="language-r">        isolate(prev_group_by_var()) == input$group_by_var) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">456</td>
+                    <td class="num">591</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">        # if not any previously selected value is available and the grouping variable is the same,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">457</td>
+                    <td class="num">592</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        # then display NULL</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">458</td>
+                    <td class="num">593</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    rule_var &lt;- function(other) {</pre>
+                      <pre class="language-r">        NULL</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">459</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">594</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      function(value) {</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">460</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">595</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        othervalue &lt;- selector_list()[[other]]()$select</pre>
+                      <pre class="language-r">        # if new grouping variable (i.e. not any previously selected value is available),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">461</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">596</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (length(value) == 0L &amp;&amp; length(othervalue) == 0L) {</pre>
+                      <pre class="language-r">        # then display all choices</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">462</td>
+                    <td class="num">597</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "Please select at least one of x-variable or y-variable"</pre>
+                      <pre class="language-r">        choices</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">463</td>
+                    <td class="num">598</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">464</td>
+                    <td class="num">599</td>
                     <td class="coverage"></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="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">600</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">      prev_group_by_var(input$group_by_var) # set current group_by_var</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">466</td>
+                    <td class="num">601</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    rule_diff &lt;- function(other) {</pre>
+                      <pre class="language-r">      validate(need(length(choices) &lt; 100, "Please select group-by variable with fewer than 100 unique values"))</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <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">467</td>
+                    <td class="num">603</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      function(value) {</pre>
+                      <pre class="language-r">      teal.widgets::optionalSelectInput(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">468</td>
+                    <td class="num">604</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        othervalue &lt;- selector_list()[[other]]()[["select"]]</pre>
+                      <pre class="language-r">        session$ns("group_by_vals"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">469</td>
+                    <td class="num">605</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (!is.null(othervalue)) {</pre>
+                      <pre class="language-r">        label = "Filter levels",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">470</td>
+                    <td class="num">606</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          if (identical(value, othervalue)) {</pre>
+                      <pre class="language-r">        choices = choices,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">471</td>
+                    <td class="num">607</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            "Row and column facetting variables must be different."</pre>
+                      <pre class="language-r">        selected = selected,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">472</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">608</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="never">
-                    <td class="num">473</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">609</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">        label_help = paste0("Dataset: ", dataname)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">474</td>
+                    <td class="num">610</td>
                     <td class="coverage"></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">611</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">476</td>
+                    <td class="num">612</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">477</td>
+                    <td class="num">613</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    selector_list &lt;- teal.transform::data_extract_multiple_srv(</pre>
+                      <pre class="language-r">    summary_plot_q &lt;- reactive({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">478</td>
+                    <td class="num">614</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      data_extract = data_extract,</pre>
+                      <pre class="language-r">      req(input$summary_type == "Summary") # needed to trigger show r code update on tab change</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">479</td>
+                    <td class="num">615</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      datasets = data,</pre>
+                      <pre class="language-r">      teal::validate_has_data(data_r(), 1)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">480</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">      select_validation_rule = list(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">481</td>
+                    <td class="num">617</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        x = rule_var("y"),</pre>
+                      <pre class="language-r">      qenv &lt;- common_code_q()</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">482</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">        y = rule_var("x"),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">483</td>
+                    <td class="num">619</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        row_facet = shinyvalidate::compose_rules(</pre>
+                      <pre class="language-r">      if (input$any_na) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">484</td>
+                    <td class="num">620</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          shinyvalidate::sv_optional(),</pre>
+                      <pre class="language-r">        new_col_name &lt;- "**anyna**"</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">485</td>
+                    <td class="num">621</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          rule_diff("col_facet")</pre>
+                      <pre class="language-r">        qenv &lt;- teal.code::eval_code(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">486</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">622</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ),</pre>
+                      <pre class="language-r">          qenv,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">487</td>
+                    <td class="num">623</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        col_facet = shinyvalidate::compose_rules(</pre>
+                      <pre class="language-r">          substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">488</td>
+                    <td class="num">624</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          shinyvalidate::sv_optional(),</pre>
+                      <pre class="language-r">            expr = ANL[[new_col_name]] &lt;- ifelse(rowSums(is.na(ANL)) &gt; 0, NA, FALSE), # nolint: object_name.</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">489</td>
+                    <td class="num">625</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          rule_diff("row_facet")</pre>
+                      <pre class="language-r">            env = list(new_col_name = new_col_name)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">490</td>
+                    <td class="num">626</td>
                     <td class="coverage"></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">627</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">492</td>
+                    <td class="num">628</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">493</td>
+                    <td class="num">629</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">494</td>
+                    <td class="num">630</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    iv_r &lt;- reactive({</pre>
+                      <pre class="language-r">      qenv &lt;- teal.code::eval_code(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">495</td>
+                    <td class="num">631</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv_facet &lt;- shinyvalidate::InputValidator$new()</pre>
+                      <pre class="language-r">        qenv,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">496</td>
+                    <td class="num">632</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv_child &lt;- teal.transform::compose_and_enable_validators(iv_facet, selector_list,</pre>
+                      <pre class="language-r">        substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">497</td>
+                    <td class="num">633</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        validator_names = c("row_facet", "col_facet")</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">498</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">          expr = analysis_vars &lt;- setdiff(colnames(ANL), data_keys),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">499</td>
+                    <td class="num">634</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv_child$condition(~ isTRUE(input$facetting))</pre>
+                      <pre class="language-r">          env = list(data_keys = data_keys())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">500</td>
+                    <td class="num">635</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">501</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">636</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv &lt;- shinyvalidate::InputValidator$new()</pre>
+                      <pre class="language-r">      ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">502</td>
+                    <td class="num">637</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv$add_validator(iv_child)</pre>
+                      <pre class="language-r">        teal.code::eval_code(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">503</td>
+                    <td class="num">638</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.transform::compose_and_enable_validators(iv, selector_list, validator_names = c("x", "y"))</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">504</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">505</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">506</td>
+                    <td class="num">639</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    anl_merged_input &lt;- teal.transform::merge_expression_srv(</pre>
+                      <pre class="language-r">            expr = summary_plot_obs &lt;- data_frame_call[, analysis_vars] %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">507</td>
+                    <td class="num">640</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      selector_list = selector_list,</pre>
+                      <pre class="language-r">              dplyr::summarise_all(list(function(x) sum(is.na(x)))) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">508</td>
+                    <td class="num">641</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      datasets = data</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">509</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">510</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">              tidyr::pivot_longer(tidyselect::everything(), names_to = "col", values_to = "n_na") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">511</td>
+                    <td class="num">642</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    anl_merged_q &lt;- reactive({</pre>
+                      <pre class="language-r">              dplyr::mutate(n_not_na = nrow(ANL) - n_na) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">512</td>
+                    <td class="num">643</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      req(anl_merged_input())</pre>
+                      <pre class="language-r">              tidyr::pivot_longer(-col, names_to = "isna", values_to = "n") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">513</td>
+                    <td class="num">644</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      data() %&gt;%</pre>
+                      <pre class="language-r">              dplyr::mutate(isna = isna == "n_na", n_pct = n / nrow(ANL) * 100),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">514</td>
+                    <td class="num">645</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        teal.code::eval_code(as.expression(anl_merged_input()$expr))</pre>
+                      <pre class="language-r">            env = list(data_frame_call = if (!inherits(data_r(), "tbl_df")) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">515</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">646</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">              quote(tibble::as_tibble(ANL))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">516</td>
+                    <td class="num">647</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">517</td>
+                    <td class="num">648</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    merged &lt;- list(</pre>
+                      <pre class="language-r">              quote(ANL)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">518</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">649</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      anl_input_r = anl_merged_input,</pre>
+                      <pre class="language-r">            })</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">519</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">650</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      anl_q_r = anl_merged_q</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">520</td>
+                    <td class="num">651</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">        ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">521</td>
+                    <td class="num">652</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        # x axis ordering according to number of missing values and alphabet</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">522</td>
+                    <td class="num">653</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    output_q &lt;- reactive({</pre>
+                      <pre class="language-r">        teal.code::eval_code(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">523</td>
+                    <td class="num">654</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal::validate_inputs(iv_r())</pre>
+                      <pre class="language-r">          quote(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">524</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">655</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">            expr = x_levels &lt;- dplyr::filter(summary_plot_obs, isna) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">525</td>
+                    <td class="num">656</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ANL &lt;- merged$anl_q_r()[["ANL"]] # nolint: object_name.</pre>
+                      <pre class="language-r">              dplyr::arrange(n_pct, dplyr::desc(col)) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">526</td>
+                    <td class="num">657</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal::validate_has_data(ANL, 3)</pre>
+                      <pre class="language-r">              dplyr::pull(col) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">527</td>
+                  <tr class="missed">
+                    <td class="num">658</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">              create_cols_labels()</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">659</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">660</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">661</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
+                  <tr class="never">
+                    <td class="num">662</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      # always set "**anyna**" level as the last one</pre>
+                    </td>
+                  </tr>
                   <tr class="missed">
-                    <td class="num">528</td>
+                    <td class="num">663</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      x_col_vec &lt;- as.vector(merged$anl_input_r()$columns_source$x)</pre>
+                      <pre class="language-r">      if (isolate(input$any_na)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">529</td>
+                    <td class="num">664</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      x_name &lt;- `if`(is.null(x_col_vec), character(0), x_col_vec)</pre>
+                      <pre class="language-r">        qenv &lt;- teal.code::eval_code(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">530</td>
+                    <td class="num">665</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      y_col_vec &lt;- as.vector(merged$anl_input_r()$columns_source$y)</pre>
+                      <pre class="language-r">          qenv,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">531</td>
+                    <td class="num">666</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      y_name &lt;- `if`(is.null(y_col_vec), character(0), y_col_vec)</pre>
+                      <pre class="language-r">          quote(x_levels &lt;- c(setdiff(x_levels, "**anyna**"), "**anyna**"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">532</td>
+                    <td class="num">667</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">533</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">668</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      row_facet_name &lt;- as.vector(merged$anl_input_r()$columns_source$row_facet)</pre>
+                      <pre class="language-r">      }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">669</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">534</td>
+                    <td class="num">670</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      col_facet_name &lt;- as.vector(merged$anl_input_r()$columns_source$col_facet)</pre>
+                      <pre class="language-r">      dev_ggplot2_args &lt;- teal.widgets::ggplot2_args(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">535</td>
+                    <td class="num">671</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      color_name &lt;- if ("color" %in% names(merged$anl_input_r()$columns_source)) {</pre>
+                      <pre class="language-r">        labs = list(x = "Variable", y = "Missing observations"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">536</td>
+                    <td class="num">672</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        as.vector(merged$anl_input_r()$columns_source$color)</pre>
+                      <pre class="language-r">        theme = list(legend.position = "bottom", axis.text.x = quote(element_text(angle = 45, hjust = 1)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">537</td>
+                    <td class="num">673</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">538</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        character(0)</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">539</td>
+                    <td class="num">674</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">540</td>
+                    <td class="num">675</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      fill_name &lt;- if ("fill" %in% names(merged$anl_input_r()$columns_source)) {</pre>
+                      <pre class="language-r">      all_ggplot2_args &lt;- teal.widgets::resolve_ggplot2_args(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">541</td>
+                    <td class="num">676</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        as.vector(merged$anl_input_r()$columns_source$fill)</pre>
+                      <pre class="language-r">        user_plot = ggplot2_args[["Summary Obs"]],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">542</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">677</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">        user_default = ggplot2_args$default,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">543</td>
+                    <td class="num">678</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        character(0)</pre>
+                      <pre class="language-r">        module_plot = dev_ggplot2_args</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">544</td>
+                    <td class="num">679</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">545</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">680</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      size_name &lt;- if ("size" %in% names(merged$anl_input_r()$columns_source)) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">546</td>
+                    <td class="num">681</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        as.vector(merged$anl_input_r()$columns_source$size)</pre>
+                      <pre class="language-r">      parsed_ggplot2_args &lt;- teal.widgets::parse_ggplot2_args(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">547</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">682</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">        all_ggplot2_args,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">548</td>
+                    <td class="num">683</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        character(0)</pre>
+                      <pre class="language-r">        ggtheme = input$ggtheme</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">549</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">550</td>
+                    <td class="num">685</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">551</td>
+                    <td class="num">686</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      use_density &lt;- input$use_density == "density"</pre>
+                      <pre class="language-r">      qenv &lt;- teal.code::eval_code(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">552</td>
+                    <td class="num">687</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      free_x_scales &lt;- input$free_x_scales</pre>
+                      <pre class="language-r">        qenv,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">553</td>
+                    <td class="num">688</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      free_y_scales &lt;- input$free_y_scales</pre>
+                      <pre class="language-r">        substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">554</td>
+                    <td class="num">689</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ggtheme &lt;- input$ggtheme</pre>
+                      <pre class="language-r">          p1 &lt;- summary_plot_obs %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">555</td>
+                    <td class="num">690</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      rotate_xaxis_labels &lt;- input$rotate_xaxis_labels</pre>
+                      <pre class="language-r">            ggplot() +</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">556</td>
+                    <td class="num">691</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      swap_axes &lt;- input$swap_axes</pre>
+                      <pre class="language-r">            aes(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">557</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">692</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">              x = factor(create_cols_labels(col), levels = x_levels),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">558</td>
+                    <td class="num">693</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      is_scatterplot &lt;- all(vapply(ANL[c(x_name, y_name)], is.numeric, logical(1))) &amp;&amp;</pre>
+                      <pre class="language-r">              y = n_pct,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">559</td>
+                    <td class="num">694</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        length(x_name) &gt; 0 &amp;&amp; length(y_name) &gt; 0</pre>
+                      <pre class="language-r">              fill = isna</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">560</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="missed">
-                    <td class="num">561</td>
+                    <td class="num">696</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (is_scatterplot) {</pre>
+                      <pre class="language-r">            geom_bar(position = "fill", stat = "identity") +</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">562</td>
+                    <td class="num">697</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        shinyjs::show("alpha")</pre>
+                      <pre class="language-r">            scale_fill_manual(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">563</td>
+                    <td class="num">698</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        alpha &lt;- input$alpha</pre>
+                      <pre class="language-r">              name = "",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">564</td>
+                    <td class="num">699</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        shinyjs::show("add_lines")</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">565</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">              values = c("grey90", c(getOption("ggplot2.discrete.colour")[2], "#ff2951ff")[1]),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">566</td>
+                    <td class="num">700</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (color_settings &amp;&amp; input$coloring) {</pre>
+                      <pre class="language-r">              labels = c("Present", "Missing")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">567</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">701</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          shinyjs::hide("fixed_size")</pre>
+                      <pre class="language-r">            ) +</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">568</td>
+                    <td class="num">702</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          shinyjs::show("size_settings")</pre>
+                      <pre class="language-r">            scale_y_continuous(labels = scales::percent_format(), breaks = seq(0, 1, by = 0.1), expand = c(0, 0)) +</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">569</td>
+                    <td class="num">703</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          size &lt;- NULL</pre>
+                      <pre class="language-r">            geom_text(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">570</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">704</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        } else {</pre>
+                      <pre class="language-r">              aes(label = ifelse(isna == TRUE, sprintf("%d [%.02f%%]", n, n_pct), ""), y = 1),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">571</td>
+                    <td class="num">705</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          shinyjs::show("fixed_size")</pre>
+                      <pre class="language-r">              hjust = 1,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">572</td>
+                    <td class="num">706</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          size &lt;- input$fixed_size</pre>
+                      <pre class="language-r">              color = "black"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">573</td>
+                    <td class="num">707</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">            ) +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">574</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">708</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">            labs +</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">575</td>
+                    <td class="num">709</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        shinyjs::hide("add_lines")</pre>
+                      <pre class="language-r">            ggthemes +</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">576</td>
+                    <td class="num">710</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        updateCheckboxInput(session, "add_lines", value = FALSE)</pre>
+                      <pre class="language-r">            themes +</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">577</td>
+                    <td class="num">711</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        shinyjs::hide("alpha")</pre>
+                      <pre class="language-r">            coord_flip(),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">578</td>
+                    <td class="num">712</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        shinyjs::hide("fixed_size")</pre>
+                      <pre class="language-r">          env = list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">579</td>
+                    <td class="num">713</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        shinyjs::hide("size_settings")</pre>
+                      <pre class="language-r">            labs = parsed_ggplot2_args$labs,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">580</td>
+                    <td class="num">714</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        alpha &lt;- 1</pre>
+                      <pre class="language-r">            themes = parsed_ggplot2_args$theme,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">581</td>
+                    <td class="num">715</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        size &lt;- NULL</pre>
+                      <pre class="language-r">            ggthemes = parsed_ggplot2_args$ggtheme</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">582</td>
+                    <td class="num">716</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">583</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">584</td>
+                    <td class="num">718</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">719</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">585</td>
+                    <td class="num">720</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal::validate_has_data(ANL[, c(x_name, y_name)], 3, complete = TRUE, allow_inf = FALSE)</pre>
+                      <pre class="language-r">      if (isTRUE(input$if_patients_plot)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">586</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">721</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        qenv &lt;- teal.code::eval_code(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">587</td>
+                    <td class="num">722</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      cl &lt;- bivariate_plot_call(</pre>
+                      <pre class="language-r">          qenv,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">588</td>
+                    <td class="num">723</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        data_name = "ANL",</pre>
+                      <pre class="language-r">          substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">589</td>
+                    <td class="num">724</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        x = x_name,</pre>
+                      <pre class="language-r">            expr = parent_keys &lt;- keys,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">590</td>
+                    <td class="num">725</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        y = y_name,</pre>
+                      <pre class="language-r">            env = list(keys = data_parent_keys())</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">726</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">727</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">591</td>
+                    <td class="num">728</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        x_class = ifelse(!identical(x_name, character(0)), class(ANL[[x_name]]), "NULL"),</pre>
+                      <pre class="language-r">          teal.code::eval_code(quote(ndistinct_subjects &lt;- dplyr::n_distinct(ANL[, parent_keys]))) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">592</td>
+                    <td class="num">729</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        y_class = ifelse(!identical(y_name, character(0)), class(ANL[[y_name]]), "NULL"),</pre>
+                      <pre class="language-r">          teal.code::eval_code(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">593</td>
+                    <td class="num">730</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        x_label = varname_w_label(x_name, ANL),</pre>
+                      <pre class="language-r">            quote(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">594</td>
+                    <td class="num">731</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        y_label = varname_w_label(y_name, ANL),</pre>
+                      <pre class="language-r">              summary_plot_patients &lt;- ANL[, c(parent_keys, analysis_vars)] %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">595</td>
+                    <td class="num">732</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        freq = !use_density,</pre>
+                      <pre class="language-r">                dplyr::group_by_at(parent_keys) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">596</td>
+                    <td class="num">733</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        theme = ggtheme,</pre>
+                      <pre class="language-r">                dplyr::summarise_all(anyNA) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">597</td>
+                    <td class="num">734</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        rotate_xaxis_labels = rotate_xaxis_labels,</pre>
+                      <pre class="language-r">                tidyr::pivot_longer(cols = !tidyselect::all_of(parent_keys), names_to = "col", values_to = "anyna") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">598</td>
+                    <td class="num">735</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        swap_axes = swap_axes,</pre>
+                      <pre class="language-r">                dplyr::group_by_at(c("col")) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">599</td>
+                    <td class="num">736</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        alpha = alpha,</pre>
+                      <pre class="language-r">                dplyr::summarise(count_na = sum(anyna)) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">600</td>
+                    <td class="num">737</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        size = size,</pre>
+                      <pre class="language-r">                dplyr::mutate(count_not_na = ndistinct_subjects - count_na) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">601</td>
+                    <td class="num">738</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ggplot2_args = ggplot2_args</pre>
+                      <pre class="language-r">                tidyr::pivot_longer(-c(col), names_to = "isna", values_to = "n") %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">602</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">739</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">                dplyr::mutate(isna = isna == "count_na", n_pct = n / ndistinct_subjects * 100) %&gt;%</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">740</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                dplyr::arrange_at(c("isna", "n"), .funs = dplyr::desc)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">603</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>
-                  <tr class="missed">
-                    <td class="num">604</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">742</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      facetting &lt;- (isTRUE(input$facetting) &amp;&amp; (!is.null(row_facet_name) || !is.null(col_facet_name)))</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">605</td>
+                    <td class="num">743</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">606</td>
+                    <td class="num">744</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (facetting) {</pre>
+                      <pre class="language-r">        dev_ggplot2_args &lt;- teal.widgets::ggplot2_args(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">607</td>
+                    <td class="num">745</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        facet_cl &lt;- facet_ggplot_call(row_facet_name, col_facet_name, free_x_scales, free_y_scales)</pre>
+                      <pre class="language-r">          labs = list(x = "", y = "Missing patients"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">608</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">746</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          theme = list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">609</td>
+                    <td class="num">747</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (!is.null(facet_cl)) {</pre>
+                      <pre class="language-r">            legend.position = "bottom",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">610</td>
+                    <td class="num">748</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          cl &lt;- call("+", cl, facet_cl)</pre>
+                      <pre class="language-r">            axis.text.x = quote(element_text(angle = 45, hjust = 1)),</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">749</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            axis.text.y = quote(element_blank())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">611</td>
+                    <td class="num">750</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">612</td>
+                    <td class="num">751</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">613</td>
+                    <td class="num">752</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">614</td>
+                    <td class="num">753</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (input$add_lines) {</pre>
+                      <pre class="language-r">        all_ggplot2_args &lt;- teal.widgets::resolve_ggplot2_args(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">615</td>
+                    <td class="num">754</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        cl &lt;- call("+", cl, quote(geom_line(size = 1)))</pre>
+                      <pre class="language-r">          user_plot = ggplot2_args[["Summary Patients"]],</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">755</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          user_default = ggplot2_args$default,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">756</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          module_plot = dev_ggplot2_args</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">616</td>
+                    <td class="num">757</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">617</td>
+                    <td class="num">758</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">618</td>
+                    <td class="num">759</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      coloring_cl &lt;- NULL</pre>
+                      <pre class="language-r">        parsed_ggplot2_args &lt;- teal.widgets::parse_ggplot2_args(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">619</td>
+                    <td class="num">760</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (color_settings) {</pre>
+                      <pre class="language-r">          all_ggplot2_args,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">620</td>
+                    <td class="num">761</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (input$coloring) {</pre>
+                      <pre class="language-r">          ggtheme = input$ggtheme</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">621</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">762</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          coloring_cl &lt;- coloring_ggplot_call(</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">622</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">763</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            colour = color_name,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">623</td>
+                    <td class="num">764</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            fill = fill_name,</pre>
+                      <pre class="language-r">        qenv &lt;- teal.code::eval_code(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">624</td>
+                    <td class="num">765</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            size = size_name,</pre>
+                      <pre class="language-r">          qenv,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">625</td>
+                    <td class="num">766</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            is_point = any(grepl("geom_point", cl %&gt;% deparse()))</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">626</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">          substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">627</td>
+                    <td class="num">767</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          legend_lbls &lt;- substitute(</pre>
+                      <pre class="language-r">            p2 &lt;- summary_plot_patients %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">628</td>
+                    <td class="num">768</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            expr = labs(color = color_name, fill = fill_name, size = size_name),</pre>
+                      <pre class="language-r">              ggplot() +</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">629</td>
+                    <td class="num">769</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            env = list(</pre>
+                      <pre class="language-r">              aes_(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">630</td>
+                    <td class="num">770</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              color_name = varname_w_label(color_name, ANL),</pre>
+                      <pre class="language-r">                x = ~ factor(create_cols_labels(col), levels = x_levels),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">631</td>
+                    <td class="num">771</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              fill_name = varname_w_label(fill_name, ANL),</pre>
+                      <pre class="language-r">                y = ~n_pct,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">632</td>
+                    <td class="num">772</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              size_name = varname_w_label(size_name, ANL)</pre>
+                      <pre class="language-r">                fill = ~isna</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">633</td>
+                    <td class="num">773</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">              ) +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">634</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">774</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">              geom_bar(alpha = 1, stat = "identity", position = "fill") +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">635</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">775</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">              scale_y_continuous(labels = scales::percent_format(), breaks = seq(0, 1, by = 0.1), expand = c(0, 0)) +</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">636</td>
+                    <td class="num">776</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (!is.null(coloring_cl)) {</pre>
+                      <pre class="language-r">              scale_fill_manual(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">637</td>
+                    <td class="num">777</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          cl &lt;- call("+", call("+", cl, coloring_cl), legend_lbls)</pre>
+                      <pre class="language-r">                name = "",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">638</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">778</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">                values = c("grey90", c(getOption("ggplot2.discrete.colour")[2], "#ff2951ff")[1]),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">639</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">779</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">                labels = c("Present", "Missing")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">640</td>
+                    <td class="num">780</td>
                     <td class="coverage"></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="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">781</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # Add labels to facets</pre>
+                      <pre class="language-r">              geom_text(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">642</td>
+                    <td class="num">782</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      nulled_row_facet_name &lt;- varname_w_label(row_facet_name, ANL)</pre>
+                      <pre class="language-r">                aes(label = ifelse(isna == TRUE, sprintf("%d [%.02f%%]", n, n_pct), ""), y = 1),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">643</td>
+                    <td class="num">783</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      nulled_col_facet_name &lt;- varname_w_label(col_facet_name, ANL)</pre>
+                      <pre class="language-r">                hjust = 1,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">644</td>
+                    <td class="num">784</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      without_facet &lt;- (is.null(nulled_row_facet_name) &amp;&amp; is.null(nulled_col_facet_name)) || !facetting</pre>
+                      <pre class="language-r">                color = "black"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">645</td>
+                    <td class="num">785</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">646</td>
+                    <td class="num">786</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      print_call &lt;- if (without_facet) {</pre>
+                      <pre class="language-r">              labs +</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">647</td>
+                    <td class="num">787</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        quote(print(p))</pre>
+                      <pre class="language-r">              ggthemes +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">648</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">788</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">              themes +</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">649</td>
+                    <td class="num">789</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        substitute(</pre>
+                      <pre class="language-r">              coord_flip(),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">650</td>
+                    <td class="num">790</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          expr = {</pre>
+                      <pre class="language-r">            env = list(</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">791</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">              labs = parsed_ggplot2_args$labs,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">792</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">              themes = parsed_ggplot2_args$theme,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">793</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">              ggthemes = parsed_ggplot2_args$ggtheme</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">651</td>
+                    <td class="num">794</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            # Add facetting labels</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">652</td>
+                    <td class="num">795</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            # optional: grid.newpage() # nolint: commented_code.</pre>
+                      <pre class="language-r">          )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">796</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">653</td>
+                    <td class="num">797</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            p &lt;- add_facet_labels(p, xfacet_label = nulled_col_facet_name, yfacet_label = nulled_row_facet_name)</pre>
+                      <pre class="language-r">          teal.code::eval_code(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">654</td>
+                    <td class="num">798</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            grid::grid.newpage()</pre>
+                      <pre class="language-r">            quote({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">655</td>
+                    <td class="num">799</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            grid::grid.draw(p)</pre>
+                      <pre class="language-r">              g1 &lt;- ggplotGrob(p1)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">656</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">800</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          },</pre>
+                      <pre class="language-r">              g2 &lt;- ggplotGrob(p2)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">657</td>
+                    <td class="num">801</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          env = list(nulled_col_facet_name = nulled_col_facet_name, nulled_row_facet_name = nulled_row_facet_name)</pre>
+                      <pre class="language-r">              g &lt;- gridExtra::gtable_cbind(g1, g2, size = "first")</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">802</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">              g$heights &lt;- grid::unit.pmax(g1$heights, g2$heights)</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">803</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">              grid::grid.newpage()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">658</td>
+                    <td class="num">804</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">            })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">659</td>
+                    <td class="num">805</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">660</td>
+                    <td class="num">806</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">661</td>
+                    <td class="num">807</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.code::eval_code(merged$anl_q_r(), substitute(expr = p &lt;- cl, env = list(cl = cl))) %&gt;%</pre>
+                      <pre class="language-r">        qenv &lt;- teal.code::eval_code(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">662</td>
+                    <td class="num">808</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        teal.code::eval_code(print_call)</pre>
+                      <pre class="language-r">          qenv,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">663</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">809</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">          quote({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">664</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">810</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">            g &lt;- ggplotGrob(p1)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">665</td>
+                    <td class="num">811</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    plot_r &lt;- shiny::reactive({</pre>
+                      <pre class="language-r">            grid::grid.newpage()</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">666</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">812</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      output_q()[["p"]]</pre>
+                      <pre class="language-r">          })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">667</td>
+                    <td class="num">813</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">668</td>
+                    <td class="num">814</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">669</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">815</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    pws &lt;- teal.widgets::plot_with_settings_srv(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">670</td>
+                    <td class="num">816</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      id = "myplot",</pre>
+                      <pre class="language-r">      teal.code::eval_code(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">671</td>
+                    <td class="num">817</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      plot_r = plot_r,</pre>
+                      <pre class="language-r">        qenv,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">672</td>
+                    <td class="num">818</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      height = plot_height,</pre>
+                      <pre class="language-r">        quote(grid::grid.draw(g))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">673</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">819</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      width = plot_width</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">674</td>
+                    <td class="num">820</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">675</td>
+                    <td class="num">821</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">676</td>
+                    <td class="num">822</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    teal.widgets::verbatim_popup_srv(</pre>
+                      <pre class="language-r">    summary_plot_r &lt;- reactive(summary_plot_q()[["g"]])</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">823</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">677</td>
+                    <td class="num">824</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      id = "warning",</pre>
+                      <pre class="language-r">    combination_cutoff_q &lt;- reactive({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">678</td>
+                    <td class="num">825</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      verbatim_content = reactive(teal.code::get_warnings(output_q())),</pre>
+                      <pre class="language-r">      req(common_code_q())</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">679</td>
+                    <td class="num">826</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      title = "Warning",</pre>
+                      <pre class="language-r">      teal.code::eval_code(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">680</td>
+                    <td class="num">827</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      disabled = reactive(is.null(teal.code::get_warnings(output_q())))</pre>
+                      <pre class="language-r">        common_code_q(),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">681</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">828</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">        quote(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">682</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">829</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          combination_cutoff &lt;- ANL %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">683</td>
+                    <td class="num">830</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    teal.widgets::verbatim_popup_srv(</pre>
+                      <pre class="language-r">            dplyr::mutate_all(is.na) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">684</td>
+                    <td class="num">831</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      id = "rcode",</pre>
+                      <pre class="language-r">            dplyr::group_by_all() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">685</td>
+                    <td class="num">832</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      verbatim_content = reactive(teal.code::get_code(output_q())),</pre>
+                      <pre class="language-r">            dplyr::tally() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">686</td>
+                    <td class="num">833</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      title = "Bivariate Plot"</pre>
+                      <pre class="language-r">            dplyr::ungroup()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">687</td>
+                    <td class="num">834</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">688</td>
+                    <td class="num">835</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">689</td>
+                    <td class="num">836</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ### REPORTER</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">690</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">837</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (with_reporter) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">691</td>
+                    <td class="num">838</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      card_fun &lt;- function(comment, label) {</pre>
+                      <pre class="language-r">    output$cutoff &lt;- renderUI({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">692</td>
+                    <td class="num">839</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        card &lt;- teal::report_card_template(</pre>
+                      <pre class="language-r">      x &lt;- combination_cutoff_q()[["combination_cutoff"]]$n</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">693</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">840</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          title = "Bivariate Plot",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">694</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">841</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          label = label,</pre>
+                      <pre class="language-r">      # select 10-th from the top</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">695</td>
+                    <td class="num">842</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          with_filter = with_filter,</pre>
+                      <pre class="language-r">      n &lt;- length(x)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">696</td>
+                    <td class="num">843</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          filter_panel_api = filter_panel_api</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">697</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">      idx &lt;- max(1, n - 10)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">698</td>
+                    <td class="num">844</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        card$append_text("Plot", "header3")</pre>
+                      <pre class="language-r">      prev_value &lt;- isolate(input$combination_cutoff)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">699</td>
+                    <td class="num">845</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        card$append_plot(plot_r(), dim = pws$dim())</pre>
+                      <pre class="language-r">      value &lt;- `if`(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">700</td>
+                    <td class="num">846</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (!comment == "") {</pre>
+                      <pre class="language-r">        is.null(prev_value) || prev_value &gt; max(x) || prev_value &lt; min(x),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">701</td>
+                    <td class="num">847</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          card$append_text("Comment", "header3")</pre>
+                      <pre class="language-r">        sort(x, partial = idx)[idx], prev_value</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">702</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">848</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          card$append_text(comment)</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">703</td>
+                    <td class="num">849</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">704</td>
+                    <td class="num">850</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        card$append_src(teal.code::get_code(output_q()))</pre>
+                      <pre class="language-r">      teal.widgets::optionalSliderInputValMinMax(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">705</td>
+                    <td class="num">851</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        card</pre>
+                      <pre class="language-r">        session$ns("combination_cutoff"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">706</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">852</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">        "Combination cut-off",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">707</td>
+                    <td class="num">853</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun)</pre>
+                      <pre class="language-r">        c(value, range(x))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">708</td>
+                    <td class="num">854</td>
                     <td class="coverage"></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">855</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ###</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">710</td>
+                    <td class="num">856</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">711</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">857</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">    combination_plot_q &lt;- reactive({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">712</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">858</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      req(input$summary_type == "Combinations", input$combination_cutoff, combination_cutoff_q())</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">859</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      teal::validate_has_data(data_r(), 1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">713</td>
+                    <td class="num">860</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">714</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">861</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Get Substituted ggplot call</pre>
+                      <pre class="language-r">      qenv &lt;- teal.code::eval_code(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">715</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">862</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        combination_cutoff_q(),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">716</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">863</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @noRd</pre>
+                      <pre class="language-r">        substitute(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">717</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">864</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          expr = data_combination_plot_cutoff &lt;- combination_cutoff %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">718</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">865</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">            dplyr::filter(n &gt;= combination_cutoff_value) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">719</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">866</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">            dplyr::mutate(id = rank(-n, ties.method = "first")) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">720</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">867</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' bivariate_plot_call("ANL", "BAGE", "RACE", "numeric", "factor")</pre>
+                      <pre class="language-r">            tidyr::pivot_longer(-c(n, id), names_to = "key", values_to = "value") %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">721</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">868</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' bivariate_plot_call("ANL", "BAGE", character(0), "numeric", "NULL")</pre>
+                      <pre class="language-r">            dplyr::arrange(n),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">722</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">869</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">bivariate_plot_call &lt;- function(data_name,</pre>
+                      <pre class="language-r">          env = list(combination_cutoff_value = input$combination_cutoff)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">723</td>
+                    <td class="num">870</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                x = character(0),</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">724</td>
+                    <td class="num">871</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                y = character(0),</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">725</td>
+                    <td class="num">872</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                x_class = "NULL",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">726</td>
+                    <td class="num">873</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                y_class = "NULL",</pre>
+                      <pre class="language-r">      # find keys in dataset not selected in the UI and remove them from dataset</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">727</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">874</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                x_label = NULL,</pre>
+                      <pre class="language-r">      keys_not_selected &lt;- setdiff(data_keys(), input$variables_select)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">728</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">875</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                y_label = NULL,</pre>
+                      <pre class="language-r">      if (length(keys_not_selected) &gt; 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">729</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">876</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                freq = TRUE,</pre>
+                      <pre class="language-r">        qenv &lt;- teal.code::eval_code(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">730</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">877</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                theme = "gray",</pre>
+                      <pre class="language-r">          qenv,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">731</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">878</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                rotate_xaxis_labels = FALSE,</pre>
+                      <pre class="language-r">          substitute(</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">879</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            expr = data_combination_plot_cutoff &lt;- data_combination_plot_cutoff %&gt;%</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">880</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">              dplyr::filter(!key %in% keys_not_selected),</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">881</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            env = list(keys_not_selected = keys_not_selected)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">732</td>
+                    <td class="num">882</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                swap_axes = FALSE,</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">733</td>
+                    <td class="num">883</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                alpha = double(0),</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">734</td>
+                    <td class="num">884</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                size = 2,</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">735</td>
+                    <td class="num">885</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                ggplot2_args = teal.widgets::ggplot2_args()) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">736</td>
+                    <td class="num">886</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  supported_types &lt;- c("NULL", "numeric", "integer", "factor", "character", "logical")</pre>
+                      <pre class="language-r">      qenv &lt;- teal.code::eval_code(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">737</td>
+                    <td class="num">887</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  validate(need(x_class %in% supported_types, paste0("Data type '", x_class, "' is not supported.")))</pre>
+                      <pre class="language-r">        qenv,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">738</td>
+                    <td class="num">888</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  validate(need(y_class %in% supported_types, paste0("Data type '", y_class, "' is not supported.")))</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">739</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        quote(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">740</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">889</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          labels &lt;- data_combination_plot_cutoff %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">741</td>
+                    <td class="num">890</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (identical(x, character(0))) {</pre>
+                      <pre class="language-r">            dplyr::filter(key == key[[1]]) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">742</td>
+                    <td class="num">891</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x &lt;- x_label &lt;- "-"</pre>
+                      <pre class="language-r">            getElement(name = 1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">743</td>
+                    <td class="num">892</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">744</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">893</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x &lt;- if (is.call(x)) x else as.name(x)</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">745</td>
+                    <td class="num">894</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">746</td>
+                    <td class="num">895</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (identical(y, character(0))) {</pre>
+                      <pre class="language-r">      dev_ggplot2_args1 &lt;- teal.widgets::ggplot2_args(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">747</td>
+                    <td class="num">896</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    y &lt;- y_label &lt;- "-"</pre>
+                      <pre class="language-r">        labs = list(x = "", y = ""),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">748</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">897</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">        theme = list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">749</td>
+                    <td class="num">898</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    y &lt;- if (is.call(y)) y else as.name(y)</pre>
+                      <pre class="language-r">          legend.position = "bottom",</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">899</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          axis.text.x = quote(element_blank())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">750</td>
+                    <td class="num">900</td>
                     <td class="coverage"></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">901</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">902</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">752</td>
+                    <td class="num">903</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  cl &lt;- bivariate_ggplot_call(</pre>
+                      <pre class="language-r">      all_ggplot2_args1 &lt;- teal.widgets::resolve_ggplot2_args(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">753</td>
+                    <td class="num">904</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x_class = x_class,</pre>
+                      <pre class="language-r">        user_plot = ggplot2_args[["Combinations Hist"]],</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">754</td>
+                    <td class="num">905</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    y_class = y_class,</pre>
+                      <pre class="language-r">        user_default = ggplot2_args$default,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">755</td>
+                    <td class="num">906</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    freq = freq,</pre>
+                      <pre class="language-r">        module_plot = dev_ggplot2_args1</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">756</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">907</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    theme = theme,</pre>
+                      <pre class="language-r">      )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">908</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">757</td>
+                    <td class="num">909</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    rotate_xaxis_labels = rotate_xaxis_labels,</pre>
+                      <pre class="language-r">      parsed_ggplot2_args1 &lt;- teal.widgets::parse_ggplot2_args(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">758</td>
+                    <td class="num">910</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    swap_axes = swap_axes,</pre>
+                      <pre class="language-r">        all_ggplot2_args1,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">759</td>
+                    <td class="num">911</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    alpha = alpha,</pre>
+                      <pre class="language-r">        ggtheme = "void"</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">912</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">913</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">760</td>
+                    <td class="num">914</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    size = size,</pre>
+                      <pre class="language-r">      dev_ggplot2_args2 &lt;- teal.widgets::ggplot2_args(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">761</td>
+                    <td class="num">915</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ggplot2_args = ggplot2_args,</pre>
+                      <pre class="language-r">        labs = list(x = "", y = ""),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">762</td>
+                    <td class="num">916</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x = x,</pre>
+                      <pre class="language-r">        theme = list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">763</td>
+                    <td class="num">917</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    y = y,</pre>
+                      <pre class="language-r">          legend.position = "bottom",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">764</td>
+                    <td class="num">918</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    xlab = x_label,</pre>
+                      <pre class="language-r">          axis.text.x = quote(element_blank()),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">765</td>
+                    <td class="num">919</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ylab = y_label,</pre>
+                      <pre class="language-r">          axis.ticks = quote(element_blank()),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">766</td>
+                    <td class="num">920</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    data_name = data_name</pre>
+                      <pre class="language-r">          panel.grid.major = quote(element_blank())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">767</td>
+                    <td class="num">921</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">768</td>
+                    <td class="num">922</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">769</td>
+                    <td class="num">923</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">770</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">924</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">substitute_q &lt;- function(x, env) {</pre>
+                      <pre class="language-r">      all_ggplot2_args2 &lt;- teal.widgets::resolve_ggplot2_args(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">771</td>
+                    <td class="num">925</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  stopifnot(is.language(x))</pre>
+                      <pre class="language-r">        user_plot = ggplot2_args[["Combinations Main"]],</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">772</td>
+                    <td class="num">926</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  call &lt;- substitute(substitute(x, env), list(x = x))</pre>
+                      <pre class="language-r">        user_default = ggplot2_args$default,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">773</td>
+                    <td class="num">927</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  eval(call)</pre>
+                      <pre class="language-r">        module_plot = dev_ggplot2_args2</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">774</td>
+                    <td class="num">928</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">775</td>
+                    <td class="num">929</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">776</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">930</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      parsed_ggplot2_args2 &lt;- teal.widgets::parse_ggplot2_args(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">777</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">931</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Create ggplot part of plot call</pre>
+                      <pre class="language-r">        all_ggplot2_args2,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">778</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">932</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        ggtheme = input$ggtheme</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">779</td>
+                    <td class="num">933</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Due to the type of the x and y variable the plot type is chosen</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">780</td>
+                    <td class="num">934</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">781</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">935</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @noRd</pre>
+                      <pre class="language-r">      teal.code::eval_code(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">782</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">936</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        qenv,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">783</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">937</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">        substitute(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">784</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">938</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' bivariate_ggplot_call("numeric", "NULL")</pre>
+                      <pre class="language-r">          expr = {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">785</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">939</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' bivariate_ggplot_call("numeric", "NULL", freq = FALSE)</pre>
+                      <pre class="language-r">            p1 &lt;- data_combination_plot_cutoff %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">786</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">940</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">              dplyr::select(id, n) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">787</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">941</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' bivariate_ggplot_call("NULL", "numeric")</pre>
+                      <pre class="language-r">              dplyr::distinct() %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">788</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">942</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' bivariate_ggplot_call("NULL", "numeric", freq = FALSE)</pre>
+                      <pre class="language-r">              ggplot(aes(x = id, y = n)) +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">789</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">943</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">              geom_bar(stat = "identity", fill = c(getOption("ggplot2.discrete.colour")[2], "#ff2951ff")[1]) +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">790</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">944</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' bivariate_ggplot_call("NULL", "factor")</pre>
+                      <pre class="language-r">              geom_text(aes(label = n), position = position_dodge(width = 0.9), vjust = -0.25) +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">791</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">945</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' bivariate_ggplot_call("NULL", "factor", freq = FALSE)</pre>
+                      <pre class="language-r">              ylim(c(0, max(data_combination_plot_cutoff$n) * 1.5)) +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">792</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">946</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">              labs1 +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">793</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">947</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' bivariate_ggplot_call("factor", "NULL")</pre>
+                      <pre class="language-r">              ggthemes1 +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">794</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">948</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' bivariate_ggplot_call("factor", "NULL", freq = FALSE)</pre>
+                      <pre class="language-r">              themes1</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">795</td>
+                    <td class="num">949</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">796</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">950</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' bivariate_ggplot_call("numeric", "numeric")</pre>
+                      <pre class="language-r">            graph_number_rows &lt;- length(unique(data_combination_plot_cutoff$id))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">797</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">951</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' bivariate_ggplot_call("numeric", "factor")</pre>
+                      <pre class="language-r">            graph_number_cols &lt;- nrow(data_combination_plot_cutoff) / graph_number_rows</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">798</td>
+                    <td class="num">952</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' bivariate_ggplot_call("factor", "numeric")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">799</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">953</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' bivariate_ggplot_call("factor", "factor")</pre>
+                      <pre class="language-r">            p2 &lt;- data_combination_plot_cutoff %&gt;% ggplot() +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">800</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">954</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">bivariate_ggplot_call &lt;- function(x_class = c("NULL", "numeric", "integer", "factor", "character", "logical"),</pre>
+                      <pre class="language-r">              aes(x = create_cols_labels(key), y = id - 0.5, fill = value) +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">801</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">955</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  y_class = c("NULL", "numeric", "integer", "factor", "character", "logical"),</pre>
+                      <pre class="language-r">              geom_tile(alpha = 0.85, height = 0.95) +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">802</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">956</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  freq = TRUE,</pre>
+                      <pre class="language-r">              scale_fill_manual(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">803</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">957</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  theme = "gray",</pre>
+                      <pre class="language-r">                name = "",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">804</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">958</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  rotate_xaxis_labels = FALSE,</pre>
+                      <pre class="language-r">                values = c("grey90", c(getOption("ggplot2.discrete.colour")[2], "#ff2951ff")[1]),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">805</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">959</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  swap_axes = FALSE,</pre>
+                      <pre class="language-r">                labels = c("Present", "Missing")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">806</td>
+                    <td class="num">960</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  size = double(0),</pre>
+                      <pre class="language-r">              ) +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">807</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">961</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  alpha = double(0),</pre>
+                      <pre class="language-r">              geom_hline(yintercept = seq_len(1 + graph_number_rows) - 1) +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">808</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">962</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  x = NULL,</pre>
+                      <pre class="language-r">              geom_vline(xintercept = seq_len(1 + graph_number_cols) - 0.5, linetype = "dotted") +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">809</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">963</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  y = NULL,</pre>
+                      <pre class="language-r">              coord_flip() +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">810</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">964</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  xlab = "-",</pre>
+                      <pre class="language-r">              labs2 +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">811</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">965</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  ylab = "-",</pre>
+                      <pre class="language-r">              ggthemes2 +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">812</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">966</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  data_name = "ANL",</pre>
+                      <pre class="language-r">              themes2</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">813</td>
+                    <td class="num">967</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  ggplot2_args = teal.widgets::ggplot2_args()) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">814</td>
-                    <td class="coverage">42<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">968</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x_class &lt;- match.arg(x_class)</pre>
+                      <pre class="language-r">            g1 &lt;- ggplotGrob(p1)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">815</td>
-                    <td class="coverage">42<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">969</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y_class &lt;- match.arg(y_class)</pre>
+                      <pre class="language-r">            g2 &lt;- ggplotGrob(p2)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">816</td>
+                    <td class="num">970</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">817</td>
-                    <td class="coverage">42<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">971</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (x_class %in% c("character", "logical")) {</pre>
+                      <pre class="language-r">            g &lt;- gridExtra::gtable_rbind(g1, g2, size = "last")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">818</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">972</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x_class &lt;- "factor"</pre>
+                      <pre class="language-r">            g$heights[7] &lt;- grid::unit(0.2, "null") # rescale to get the bar chart smaller</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">819</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">973</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">            grid::grid.newpage()</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">820</td>
-                    <td class="coverage">42<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">974</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (x_class %in% c("integer")) {</pre>
+                      <pre class="language-r">            grid::grid.draw(g)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">975</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          },</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">821</td>
+                    <td class="num">976</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x_class &lt;- "numeric"</pre>
+                      <pre class="language-r">          env = list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">822</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">977</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">            labs1 = parsed_ggplot2_args1$labs,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">823</td>
-                    <td class="coverage">42<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">978</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (y_class %in% c("character", "logical")) {</pre>
+                      <pre class="language-r">            themes1 = parsed_ggplot2_args1$theme,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">824</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">979</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    y_class &lt;- "factor"</pre>
+                      <pre class="language-r">            ggthemes1 = parsed_ggplot2_args1$ggtheme,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">825</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">980</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">            labs2 = parsed_ggplot2_args2$labs,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">826</td>
-                    <td class="coverage">42<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">981</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (y_class %in% c("integer")) {</pre>
+                      <pre class="language-r">            themes2 = parsed_ggplot2_args2$theme,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">827</td>
+                    <td class="num">982</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    y_class &lt;- "numeric"</pre>
+                      <pre class="language-r">            ggthemes2 = parsed_ggplot2_args2$ggtheme</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">828</td>
+                    <td class="num">983</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">829</td>
+                    <td class="num">984</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">830</td>
-                    <td class="coverage">42<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">985</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (all(c(x_class, y_class) == "NULL")) {</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">831</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">986</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stop("either x or y is required")</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">832</td>
+                    <td class="num">987</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">988</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    combination_plot_r &lt;- reactive(combination_plot_q()[["g"]])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">833</td>
+                    <td class="num">989</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">834</td>
-                    <td class="coverage">42<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">990</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  reduce_plot_call &lt;- function(...) {</pre>
+                      <pre class="language-r">    summary_table_q &lt;- reactive({</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">835</td>
-                    <td class="coverage">104<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">991</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    args &lt;- Filter(Negate(is.null), list(...))</pre>
+                      <pre class="language-r">      req(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">836</td>
-                    <td class="coverage">104<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">992</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    Reduce(function(x, y) call("+", x, y), args)</pre>
+                      <pre class="language-r">        input$summary_type == "By Variable Levels", # needed to trigger show r code update on tab change</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">837</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">993</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">        common_code_q()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">838</td>
+                    <td class="num">994</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">839</td>
-                    <td class="coverage">42<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">995</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  plot_call &lt;- substitute(ggplot(data_name), env = list(data_name = as.name(data_name)))</pre>
+                      <pre class="language-r">      teal::validate_has_data(data_r(), 1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">840</td>
+                    <td class="num">996</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">841</td>
+                    <td class="num">997</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Single data plots</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">842</td>
-                    <td class="coverage">42<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  if (x_class == "numeric" &amp;&amp; y_class == "NULL") {</pre>
+                      <pre class="language-r">      # extract the ANL dataset for use in further validation</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">843</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">998</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    plot_call &lt;- reduce_plot_call(plot_call, substitute(aes(x = xval), env = list(xval = x)))</pre>
+                      <pre class="language-r">      anl &lt;- common_code_q()[["ANL"]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">844</td>
+                    <td class="num">999</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">845</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1000</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (freq) {</pre>
+                      <pre class="language-r">      group_var &lt;- input$group_by_var</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">846</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1001</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      plot_call &lt;- reduce_plot_call(</pre>
+                      <pre class="language-r">      validate(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">847</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1002</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        plot_call,</pre>
+                      <pre class="language-r">        need(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">848</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1003</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        quote(geom_histogram(bins = 30)),</pre>
+                      <pre class="language-r">          is.null(group_var) ||</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">849</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1004</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        quote(ylab("Frequency"))</pre>
+                      <pre class="language-r">            length(unique(anl[[group_var]])) &lt; 100,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">850</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1005</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">          "Please select group-by variable with fewer than 100 unique values"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">851</td>
+                    <td class="num">1006</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">852</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1007</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      plot_call &lt;- reduce_plot_call(</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">853</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1008</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        plot_call,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">854</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1009</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        quote(geom_histogram(bins = 30, aes(y = after_stat(density)))),</pre>
+                      <pre class="language-r">      group_vals &lt;- input$group_by_vals</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">855</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1010</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        quote(geom_density(aes(y = after_stat(density)))),</pre>
+                      <pre class="language-r">      variables_select &lt;- input$variables_select</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">856</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1011</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        quote(ylab("Density"))</pre>
+                      <pre class="language-r">      vars &lt;- unique(variables_select, group_var)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">857</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1012</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">      count_type &lt;- input$count_type</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">858</td>
+                    <td class="num">1013</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">859</td>
-                    <td class="coverage">36<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1014</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (x_class == "NULL" &amp;&amp; y_class == "numeric") {</pre>
+                      <pre class="language-r">      if (!is.null(selected_vars()) &amp;&amp; length(selected_vars()) != ncol(anl)) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">860</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1015</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    plot_call &lt;- reduce_plot_call(plot_call, substitute(aes(x = yval), env = list(yval = y)))</pre>
+                      <pre class="language-r">        variables &lt;- selected_vars()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">861</td>
+                    <td class="num">1016</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">862</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1017</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (freq) {</pre>
+                      <pre class="language-r">        variables &lt;- colnames(anl)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">863</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1018</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      plot_call &lt;- reduce_plot_call(</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">864</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1019</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        plot_call,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">865</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1020</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        quote(geom_histogram(bins = 30)),</pre>
+                      <pre class="language-r">      summ_fn &lt;- if (input$count_type == "counts") {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">866</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1021</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        quote(ylab("Frequency"))</pre>
+                      <pre class="language-r">        function(x) sum(is.na(x))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">867</td>
+                    <td class="num">1022</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">868</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1023</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else {</pre>
+                      <pre class="language-r">        function(x) round(sum(is.na(x)) / length(x), 4)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">869</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1024</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      plot_call &lt;- reduce_plot_call(</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">870</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1025</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        plot_call,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">871</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1026</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        quote(geom_histogram(bins = 30, aes(y = after_stat(density)))),</pre>
+                      <pre class="language-r">      qenv &lt;- common_code_q()</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">872</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1027</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        quote(geom_density(aes(y = after_stat(density)))),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">873</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1028</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        quote(ylab("Density"))</pre>
+                      <pre class="language-r">      if (!is.null(group_var)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">874</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1029</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">        qenv &lt;- teal.code::eval_code(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">875</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1030</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">          qenv,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">876</td>
-                    <td class="coverage">30<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1031</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (x_class == "factor" &amp;&amp; y_class == "NULL") {</pre>
+                      <pre class="language-r">          substitute(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">877</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1032</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    plot_call &lt;- reduce_plot_call(plot_call, substitute(aes(x = xval), env = list(xval = x)))</pre>
+                      <pre class="language-r">            expr = {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">878</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1033</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">              summary_data &lt;- ANL %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">879</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1034</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (freq) {</pre>
+                      <pre class="language-r">                dplyr::mutate(group_var_name := forcats::fct_na_value_to_level(as.factor(group_var_name), "NA")) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">880</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1035</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      plot_call &lt;- reduce_plot_call(</pre>
+                      <pre class="language-r">                dplyr::group_by_at(group_var) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">881</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1036</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        plot_call,</pre>
+                      <pre class="language-r">                dplyr::filter(group_var_name %in% group_vals)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">882</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1037</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        quote(geom_bar()),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">883</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1038</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        quote(ylab("Frequency"))</pre>
+                      <pre class="language-r">              count_data &lt;- dplyr::summarise(summary_data, n = dplyr::n())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">884</td>
+                    <td class="num">1039</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">885</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1040</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else {</pre>
+                      <pre class="language-r">              summary_data &lt;- dplyr::summarise_all(summary_data, summ_fn) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">886</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1041</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      plot_call &lt;- reduce_plot_call(</pre>
+                      <pre class="language-r">                dplyr::mutate(group_var_name := paste0(group_var, ":", group_var_name, "(N=", count_data$n, ")")) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">887</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1042</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        plot_call,</pre>
+                      <pre class="language-r">                tidyr::pivot_longer(!tidyselect::all_of(group_var), names_to = "Variable", values_to = "out") %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">888</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1043</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        quote(geom_bar(aes(y = after_stat(prop), group = 1))),</pre>
+                      <pre class="language-r">                tidyr::pivot_wider(names_from = group_var, values_from = "out") %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">889</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1044</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        quote(ylab("Fraction"))</pre>
+                      <pre class="language-r">                dplyr::mutate(`Variable label` = create_cols_labels(Variable, just_label = TRUE), .after = Variable)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">890</td>
+                    <td class="num">1045</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">1046</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            env = list(</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">1047</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">              group_var = group_var, group_var_name = as.name(group_var), group_vals = group_vals, summ_fn = summ_fn</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">891</td>
+                    <td class="num">1048</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">892</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1049</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (x_class == "NULL" &amp;&amp; y_class == "factor") {</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">893</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1050</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    plot_call &lt;- reduce_plot_call(plot_call, substitute(aes(x = yval), env = list(yval = y)))</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">894</td>
+                    <td class="num">1051</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">895</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1052</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (freq) {</pre>
+                      <pre class="language-r">        qenv &lt;- teal.code::eval_code(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">896</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1053</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      plot_call &lt;- reduce_plot_call(</pre>
+                      <pre class="language-r">          qenv,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">897</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1054</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        plot_call,</pre>
+                      <pre class="language-r">          substitute(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">898</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1055</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        quote(geom_bar()),</pre>
+                      <pre class="language-r">            expr = summary_data &lt;- ANL %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">899</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1056</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        quote(ylab("Frequency"))</pre>
+                      <pre class="language-r">              dplyr::summarise_all(summ_fn) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">900</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1057</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">              tidyr::pivot_longer(tidyselect::everything(),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">901</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1058</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else {</pre>
+                      <pre class="language-r">                names_to = "Variable",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">902</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1059</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      plot_call &lt;- reduce_plot_call(</pre>
+                      <pre class="language-r">                values_to = paste0("Missing (N=", nrow(ANL), ")")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">903</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1060</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        plot_call,</pre>
+                      <pre class="language-r">              ) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">904</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1061</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        quote(geom_bar(aes(y = after_stat(prop), group = 1))),</pre>
+                      <pre class="language-r">              dplyr::mutate(`Variable label` = create_cols_labels(Variable), .after = Variable),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">905</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1062</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        quote(ylab("Fraction"))</pre>
+                      <pre class="language-r">            env = list(summ_fn = summ_fn)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">906</td>
+                    <td class="num">1063</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">907</td>
+                    <td class="num">1064</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">908</td>
+                    <td class="num">1065</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Numeric Plots</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">909</td>
-                    <td class="coverage">22<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  } else if (x_class == "numeric" &amp;&amp; y_class == "numeric") {</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">910</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1066</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    plot_call &lt;- reduce_plot_call(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">911</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1067</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      plot_call,</pre>
+                      <pre class="language-r">      teal.code::eval_code(qenv, quote(summary_data))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">912</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1068</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      substitute(aes(x = xval, y = yval), env = list(xval = x, yval = y)),</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">913</td>
+                    <td class="num">1069</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # pch = 21 for consistent coloring behaviour b/w all geoms (outline and fill properties)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">914</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1070</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      `if`(</pre>
+                      <pre class="language-r">    summary_table_r &lt;- reactive(summary_table_q()[["summary_data"]])</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">915</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1071</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        !is.null(size),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">916</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1072</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        substitute(</pre>
+                      <pre class="language-r">    by_subject_plot_q &lt;- reactive({</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">917</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1073</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          geom_point(alpha = alphaval, size = sizeval, pch = 21),</pre>
+                      <pre class="language-r">      # needed to trigger show r code update on tab change</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">918</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1074</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          env = list(alphaval = alpha, sizeval = size)</pre>
+                      <pre class="language-r">      req(input$summary_type == "Grouped by Subject", common_code_q())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">919</td>
+                    <td class="num">1075</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">920</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1076</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        substitute(</pre>
+                      <pre class="language-r">      teal::validate_has_data(data_r(), 1)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">921</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1077</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          geom_point(alpha = alphaval, pch = 21),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">922</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1078</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          env = list(alphaval = alpha)</pre>
+                      <pre class="language-r">      dev_ggplot2_args &lt;- teal.widgets::ggplot2_args(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">923</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1079</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">        labs = list(x = "", y = ""),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">924</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1080</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">        theme = list(legend.position = "bottom", axis.text.x = quote(element_blank()))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">925</td>
+                    <td class="num">1081</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">926</td>
-                    <td class="coverage">20<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1082</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if ((x_class == "numeric" &amp;&amp; y_class == "factor") || (x_class == "factor" &amp;&amp; y_class == "numeric")) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">927</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1083</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    plot_call &lt;- reduce_plot_call(</pre>
+                      <pre class="language-r">      all_ggplot2_args &lt;- teal.widgets::resolve_ggplot2_args(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">928</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1084</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      plot_call,</pre>
+                      <pre class="language-r">        user_plot = ggplot2_args[["By Subject"]],</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">929</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1085</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      substitute(aes(x = xval, y = yval), env = list(xval = x, yval = y)),</pre>
+                      <pre class="language-r">        user_default = ggplot2_args$default,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">930</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1086</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      quote(geom_boxplot())</pre>
+                      <pre class="language-r">        module_plot = dev_ggplot2_args</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">931</td>
+                    <td class="num">1087</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">932</td>
+                    <td class="num">1088</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Factor and character plots</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">933</td>
-                    <td class="coverage">14<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1089</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (x_class == "factor" &amp;&amp; y_class == "factor") {</pre>
+                      <pre class="language-r">      parsed_ggplot2_args &lt;- teal.widgets::parse_ggplot2_args(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">934</td>
-                    <td class="coverage">14<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1090</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    plot_call &lt;- reduce_plot_call(</pre>
+                      <pre class="language-r">        all_ggplot2_args,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">935</td>
-                    <td class="coverage">14<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      plot_call,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">936</td>
-                    <td class="coverage">14<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      substitute(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">937</td>
-                    <td class="coverage">14<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        ggmosaic::geom_mosaic(aes(x = ggmosaic::product(xval), fill = yval), na.rm = TRUE),</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">938</td>
-                    <td class="coverage">14<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1091</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        env = list(xval = x, yval = y)</pre>
+                      <pre class="language-r">        ggtheme = input$ggtheme</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">939</td>
+                    <td class="num">1092</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">940</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">941</td>
+                    <td class="num">1093</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">942</td>
+                    <td class="num">1094</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stop("x y type combination not allowed")</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">943</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">      teal.code::eval_code(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">944</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1095</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        common_code_q(),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">945</td>
-                    <td class="coverage">42<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1096</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  labs_base &lt;- if (x_class == "NULL") {</pre>
+                      <pre class="language-r">        substitute(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">946</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1097</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    list(x = substitute(ylab, list(ylab = ylab)))</pre>
+                      <pre class="language-r">          expr = parent_keys &lt;- keys,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">947</td>
-                    <td class="coverage">42<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1098</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (y_class == "NULL") {</pre>
+                      <pre class="language-r">          env = list(keys = data_parent_keys())</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">948</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1099</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    list(x = substitute(xlab, list(xlab = xlab)))</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">949</td>
+                    <td class="num">1100</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">      ) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">950</td>
-                    <td class="coverage">22<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1101</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    list(</pre>
+                      <pre class="language-r">        teal.code::eval_code(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">951</td>
-                    <td class="coverage">22<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1102</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      x = substitute(xlab, list(xlab = xlab)),</pre>
+                      <pre class="language-r">          substitute(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">952</td>
-                    <td class="coverage">22<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1103</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      y = substitute(ylab, list(ylab = ylab))</pre>
+                      <pre class="language-r">            expr = analysis_vars &lt;- setdiff(colnames(ANL), data_keys),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">953</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1104</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">            env = list(data_keys = data_keys())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">954</td>
+                    <td class="num">1105</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">955</td>
+                    <td class="num">1106</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        ) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">956</td>
-                    <td class="coverage">42<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1107</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  dev_ggplot2_args &lt;- teal.widgets::ggplot2_args(labs = labs_base)</pre>
+                      <pre class="language-r">        teal.code::eval_code(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">957</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1108</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          quote({</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">958</td>
-                    <td class="coverage">42<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1109</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (rotate_xaxis_labels) {</pre>
+                      <pre class="language-r">            summary_plot_patients &lt;- ANL[, c(parent_keys, analysis_vars)] %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">959</td>
+                    <td class="num">1110</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dev_ggplot2_args$theme &lt;- list(axis.text.x = quote(element_text(angle = 45, hjust = 1)))</pre>
+                      <pre class="language-r">              dplyr::group_by_at(parent_keys) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">960</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1111</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">              dplyr::mutate(id = dplyr::cur_group_id()) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">961</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1112</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">              dplyr::ungroup() %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">962</td>
-                    <td class="coverage">42<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1113</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  all_ggplot2_args &lt;- teal.widgets::resolve_ggplot2_args(</pre>
+                      <pre class="language-r">              dplyr::group_by_at(c(parent_keys, "id")) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">963</td>
-                    <td class="coverage">42<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1114</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    user_plot = ggplot2_args,</pre>
+                      <pre class="language-r">              dplyr::summarise_all(anyNA) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">964</td>
-                    <td class="coverage">42<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1115</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    module_plot = dev_ggplot2_args</pre>
+                      <pre class="language-r">              dplyr::ungroup()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">965</td>
+                    <td class="num">1116</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">966</td>
+                    <td class="num">1117</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">967</td>
-                    <td class="coverage">42<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  parsed_ggplot2_args &lt;- teal.widgets::parse_ggplot2_args(all_ggplot2_args, ggtheme = theme)</pre>
+                      <pre class="language-r">            # order subjects by decreasing number of missing and then by</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">968</td>
+                    <td class="num">1118</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">            # missingness pattern (defined using sha1)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">969</td>
-                    <td class="coverage">42<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1119</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  plot_call &lt;- reduce_plot_call(</pre>
+                      <pre class="language-r">            order_subjects &lt;- summary_plot_patients %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">970</td>
-                    <td class="coverage">42<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1120</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    plot_call,</pre>
+                      <pre class="language-r">              dplyr::select(-"id", -tidyselect::all_of(parent_keys)) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">971</td>
-                    <td class="coverage">42<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1121</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    parsed_ggplot2_args$labs,</pre>
+                      <pre class="language-r">              dplyr::transmute(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">972</td>
-                    <td class="coverage">42<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1122</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    parsed_ggplot2_args$ggtheme,</pre>
+                      <pre class="language-r">                id = dplyr::row_number(),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">973</td>
-                    <td class="coverage">42<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1123</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    parsed_ggplot2_args$theme</pre>
+                      <pre class="language-r">                number_NA = apply(., 1, sum),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">974</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1124</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">                sha = apply(., 1, rlang::hash)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">975</td>
+                    <td class="num">1125</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">976</td>
-                    <td class="coverage">42<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  if (swap_axes) {</pre>
+                      <pre class="language-r">              ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">977</td>
+                    <td class="num">1126</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    plot_call &lt;- reduce_plot_call(plot_call, quote(coord_flip()))</pre>
+                      <pre class="language-r">              dplyr::arrange(dplyr::desc(number_NA), sha) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">978</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1127</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">              getElement(name = "id")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">979</td>
+                    <td class="num">1128</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">980</td>
-                    <td class="coverage">42<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  return(plot_call)</pre>
-                    </td>
-                  </tr>
                   <tr class="never">
-                    <td class="num">981</td>
+                    <td class="num">1129</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">            # order columns by decreasing percent of missing values</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">982</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1130</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">            ordered_columns &lt;- summary_plot_patients %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">983</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1131</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">              dplyr::select(-"id", -tidyselect::all_of(parent_keys)) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">984</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1132</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Create facet call</pre>
+                      <pre class="language-r">              dplyr::summarise(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">985</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1133</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                column = create_cols_labels(colnames(.)),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">986</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1134</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @noRd</pre>
+                      <pre class="language-r">                na_count = apply(., MARGIN = 2, FUN = sum),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">987</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1135</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                na_percent = na_count / nrow(.) * 100</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">988</td>
+                    <td class="num">1136</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">              ) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">989</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1137</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">              dplyr::arrange(na_percent, dplyr::desc(column))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">990</td>
+                    <td class="num">1138</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' facet_ggplot_call(LETTERS[1:3])</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">991</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1139</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' facet_ggplot_call(NULL, LETTERS[23:26])</pre>
+                      <pre class="language-r">            summary_plot_patients &lt;- summary_plot_patients %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">992</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1140</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' facet_ggplot_call(LETTERS[1:3], LETTERS[23:26])</pre>
+                      <pre class="language-r">              tidyr::gather("col", "isna", -"id", -tidyselect::all_of(parent_keys)) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">993</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1141</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">facet_ggplot_call &lt;- function(row_facet = character(0),</pre>
+                      <pre class="language-r">              dplyr::mutate(col = create_cols_labels(col))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">994</td>
+                    <td class="num">1142</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              col_facet = character(0),</pre>
+                      <pre class="language-r">          })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">995</td>
+                    <td class="num">1143</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              free_x_scales = FALSE,</pre>
+                      <pre class="language-r">        ) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">996</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1144</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              free_y_scales = FALSE) {</pre>
+                      <pre class="language-r">        teal.code::eval_code(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">997</td>
+                    <td class="num">1145</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  scales &lt;- if (free_x_scales &amp;&amp; free_y_scales) {</pre>
+                      <pre class="language-r">          substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">998</td>
+                    <td class="num">1146</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "free"</pre>
+                      <pre class="language-r">            expr = {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">999</td>
+                    <td class="num">1147</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (free_x_scales) {</pre>
+                      <pre class="language-r">              g &lt;- ggplot(summary_plot_patients, aes(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1000</td>
+                    <td class="num">1148</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "free_x"</pre>
+                      <pre class="language-r">                x = factor(id, levels = order_subjects),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1001</td>
+                    <td class="num">1149</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (free_y_scales) {</pre>
+                      <pre class="language-r">                y = factor(col, levels = ordered_columns[["column"]]),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1002</td>
+                    <td class="num">1150</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "free_y"</pre>
+                      <pre class="language-r">                fill = isna</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1003</td>
+                    <td class="num">1151</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">1004</td>
+                    <td class="num">1152</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "fixed"</pre>
+                      <pre class="language-r">                geom_raster() +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1005</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1153</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">                annotate(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1006</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1154</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                  "text",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1007</td>
+                    <td class="num">1155</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (identical(row_facet, character(0)) &amp;&amp; identical(col_facet, character(0))) {</pre>
+                      <pre class="language-r">                  x = length(order_subjects),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1008</td>
+                    <td class="num">1156</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    NULL</pre>
+                      <pre class="language-r">                  y = seq_len(nrow(ordered_columns)),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1009</td>
+                    <td class="num">1157</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (!identical(row_facet, character(0)) &amp;&amp; !identical(col_facet, character(0))) {</pre>
+                      <pre class="language-r">                  hjust = 1,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1010</td>
+                    <td class="num">1158</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    call(</pre>
+                      <pre class="language-r">                  label = sprintf("%d [%.02f%%]", ordered_columns[["na_count"]], ordered_columns[["na_percent"]])</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">1159</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                ) +</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1011</td>
+                    <td class="num">1160</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "facet_grid",</pre>
+                      <pre class="language-r">                scale_fill_manual(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1012</td>
+                    <td class="num">1161</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      rows = call_fun_dots("vars", row_facet),</pre>
+                      <pre class="language-r">                  name = "",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1013</td>
+                    <td class="num">1162</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      cols = call_fun_dots("vars", col_facet),</pre>
+                      <pre class="language-r">                  values = c("grey90", c(getOption("ggplot2.discrete.colour")[2], "#ff2951ff")[1]),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1014</td>
+                    <td class="num">1163</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      scales = scales</pre>
+                      <pre class="language-r">                  labels = c("Present", "Missing (at least one)")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1015</td>
+                    <td class="num">1164</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">1016</td>
+                    <td class="num">1165</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (identical(row_facet, character(0)) &amp;&amp; !identical(col_facet, character(0))) {</pre>
+                      <pre class="language-r">                labs +</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1017</td>
+                    <td class="num">1166</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    call("facet_grid", cols = call_fun_dots("vars", col_facet), scales = scales)</pre>
+                      <pre class="language-r">                ggthemes +</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1018</td>
+                    <td class="num">1167</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (!identical(row_facet, character(0)) &amp;&amp; identical(col_facet, character(0))) {</pre>
+                      <pre class="language-r">                themes</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1019</td>
+                    <td class="num">1168</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    call("facet_grid", rows = call_fun_dots("vars", row_facet), scales = scales)</pre>
+                      <pre class="language-r">              print(g)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1020</td>
+                    <td class="num">1169</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">            },</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1021</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1170</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">            env = list(</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">1171</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">              labs = parsed_ggplot2_args$labs,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">1172</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">              themes = parsed_ggplot2_args$theme,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">1173</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">              ggthemes = parsed_ggplot2_args$ggtheme</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1022</td>
+                    <td class="num">1174</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1023</td>
+                    <td class="num">1175</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">coloring_ggplot_call &lt;- function(colour,</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1024</td>
+                    <td class="num">1176</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 fill,</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1025</td>
+                    <td class="num">1177</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">1026</td>
+                    <td class="num">1178</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 is_point = FALSE) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1027</td>
-                    <td class="coverage">15<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1179</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!identical(colour, character(0)) &amp;&amp; !identical(fill, character(0)) &amp;&amp;</pre>
+                      <pre class="language-r">    by_subject_plot_r &lt;- reactive(by_subject_plot_q()[["g"]])</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1028</td>
-                    <td class="coverage">15<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1180</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    is_point &amp;&amp; !identical(size, character(0))) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1029</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1181</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    substitute(</pre>
+                      <pre class="language-r">    output$levels_table &lt;- DT::renderDataTable(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1030</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1182</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      expr = aes(colour = colour_name, fill = fill_name, size = size_name),</pre>
+                      <pre class="language-r">      expr = {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1031</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1183</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      env = list(colour_name = as.name(colour), fill_name = as.name(fill), size_name = as.name(size))</pre>
+                      <pre class="language-r">        if (length(input$variables_select) == 0) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1032</td>
+                    <td class="num">1184</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">1033</td>
-                    <td class="coverage">14<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  } else if (identical(colour, character(0)) &amp;&amp; !identical(fill, character(0)) &amp;&amp;</pre>
+                      <pre class="language-r">          # so that zeroRecords message gets printed</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1034</td>
-                    <td class="coverage">14<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1185</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    is_point &amp;&amp; identical(size, character(0))) {</pre>
+                      <pre class="language-r">          # using tibble as it supports weird column names, such as " "</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1035</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1186</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    substitute(expr = aes(fill = fill_name), env = list(fill_name = as.name(fill)))</pre>
+                      <pre class="language-r">          tibble::tibble(` ` = logical(0))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1036</td>
-                    <td class="coverage">13<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1187</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (!identical(colour, character(0)) &amp;&amp; !identical(fill, character(0)) &amp;&amp;</pre>
+                      <pre class="language-r">        } else {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1037</td>
-                    <td class="coverage">13<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1188</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    (!is_point || identical(size, character(0)))) {</pre>
+                      <pre class="language-r">          summary_table_r()</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1038</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1189</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    substitute(</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1039</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1190</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      expr = aes(colour = colour_name, fill = fill_name),</pre>
+                      <pre class="language-r">      },</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1040</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1191</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      env = list(colour_name = as.name(colour), fill_name = as.name(fill))</pre>
+                      <pre class="language-r">      options = list(language = list(zeroRecords = "No variable selected"), pageLength = input$levels_table_rows)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1041</td>
+                    <td class="num">1192</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1042</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1193</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (!identical(colour, character(0)) &amp;&amp; identical(fill, character(0)) &amp;&amp;</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1043</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1194</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    (!is_point || identical(size, character(0)))) {</pre>
+                      <pre class="language-r">    pws1 &lt;- teal.widgets::plot_with_settings_srv(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1044</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1195</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    substitute(expr = aes(colour = colour_name), env = list(colour_name = as.name(colour)))</pre>
+                      <pre class="language-r">      id = "summary_plot",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1045</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1196</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (identical(colour, character(0)) &amp;&amp; !identical(fill, character(0)) &amp;&amp;</pre>
+                      <pre class="language-r">      plot_r = summary_plot_r,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1046</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1197</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    (!is_point || identical(size, character(0)))) {</pre>
+                      <pre class="language-r">      height = plot_height,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1047</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1198</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    substitute(expr = aes(fill = fill_name), env = list(fill_name = as.name(fill)))</pre>
+                      <pre class="language-r">      width = plot_width</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1048</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1199</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (identical(colour, character(0)) &amp;&amp; identical(fill, character(0)) &amp;&amp;</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1049</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1200</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    is_point &amp;&amp; !identical(size, character(0))) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1050</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1201</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    substitute(expr = aes(size = size_name), env = list(size_name = as.name(size)))</pre>
+                      <pre class="language-r">    pws2 &lt;- teal.widgets::plot_with_settings_srv(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1051</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1202</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (!identical(colour, character(0)) &amp;&amp; identical(fill, character(0)) &amp;&amp;</pre>
+                      <pre class="language-r">      id = "combination_plot",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1052</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1203</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    is_point &amp;&amp; !identical(size, character(0))) {</pre>
+                      <pre class="language-r">      plot_r = combination_plot_r,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1053</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1204</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    substitute(</pre>
+                      <pre class="language-r">      height = plot_height,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1054</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1205</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      expr = aes(colour = colour_name, size = size_name),</pre>
+                      <pre class="language-r">      width = plot_width</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1055</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1206</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      env = list(colour_name = as.name(colour), size_name = as.name(size))</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1056</td>
+                    <td class="num">1207</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">1057</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1208</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (identical(colour, character(0)) &amp;&amp; !identical(fill, character(0)) &amp;&amp;</pre>
+                      <pre class="language-r">    pws3 &lt;- teal.widgets::plot_with_settings_srv(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1058</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1209</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    is_point &amp;&amp; !identical(size, character(0))) {</pre>
+                      <pre class="language-r">      id = "by_subject_plot",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1059</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1210</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    substitute(</pre>
+                      <pre class="language-r">      plot_r = by_subject_plot_r,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1060</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1211</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      expr = aes(colour = colour_name, fill = fill_name, size = size_name),</pre>
+                      <pre class="language-r">      height = plot_height,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1061</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1212</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      env = list(colour_name = as.name(fill), fill_name = as.name(fill), size_name = as.name(size))</pre>
+                      <pre class="language-r">      width = plot_width</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1062</td>
+                    <td class="num">1213</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1063</td>
+                    <td class="num">1214</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">1064</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1215</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    NULL</pre>
+                      <pre class="language-r">    final_q &lt;- reactive({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1065</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1216</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">      req(input$summary_type)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1066</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1217</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">      sum_type &lt;- input$summary_type</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/tm_a_pca.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">1218</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Principal component analysis module</pre>
+                      <pre class="language-r">      if (sum_type == "Summary") {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">2</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1219</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @md</pre>
+                      <pre class="language-r">        summary_plot_q()</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">3</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1220</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      } else if (sum_type == "Combinations") {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">4</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1221</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams teal::module</pre>
+                      <pre class="language-r">        combination_plot_q()</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">5</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1222</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams shared_params</pre>
+                      <pre class="language-r">      } else if (sum_type == "By Variable Levels") {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">6</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1223</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param dat (`data_extract_spec` or `list` of multiple `data_extract_spec`)</pre>
+                      <pre class="language-r">        summary_table_q()</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">7</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1224</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   Columns used to compute PCA.</pre>
+                      <pre class="language-r">      } else if (sum_type == "Grouped by Subject") {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">8</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1225</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param alpha optional, (`numeric`) If scalar then the plot points will have a fixed opacity. If a</pre>
+                      <pre class="language-r">        by_subject_plot_q()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">1226</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   slider should be presented to adjust the plot point opacity dynamically then it can be a vector of</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">1227</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   length three with `c(value, min, max)`.</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">1228</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param size optional, (`numeric`) If scalar then the plot point sizes will have a fixed size.</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">1229</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   If a slider should be presented to adjust the plot point sizes dynamically then it can be a</pre>
+                      <pre class="language-r">    teal.widgets::verbatim_popup_srv(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">13</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1230</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   vector of length three with `c(value, min, max)`.</pre>
+                      <pre class="language-r">      id = "warning",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">14</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1231</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param font_size optional, (`numeric`) font size control for title, x-axis label, y-axis label and legend.</pre>
+                      <pre class="language-r">      verbatim_content = reactive(teal.code::get_warnings(final_q())),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">15</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1232</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   If scalar then the font size will have a fixed size. If a slider should be presented to adjust the plot</pre>
+                      <pre class="language-r">      title = "Warning",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">16</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1233</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   point sizes dynamically then it can be a vector of length three with `c(value, min, max)`.</pre>
+                      <pre class="language-r">      disabled = reactive(is.null(teal.code::get_warnings(final_q())))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">1234</td>
                     <td class="coverage"></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">1235</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @templateVar ggnames "Elbow plot", "Circle plot", "Biplot", "Eigenvector plot"</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">19</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1236</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @template ggplot2_args_multi</pre>
+                      <pre class="language-r">    teal.widgets::verbatim_popup_srv(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">20</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1237</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      id = "rcode",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">21</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1238</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">      verbatim_content = reactive(teal.code::get_code(final_q())),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">22</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' # general data example</pre>
+                  <tr class="missed">
+                    <td class="num">1239</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      title = "Show R Code for Missing Data"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">23</td>
+                    <td class="num">1240</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(teal.widgets)</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">1241</td>
                     <td class="coverage"></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">1242</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' data &lt;- teal_data()</pre>
+                      <pre class="language-r">    ### REPORTER</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">26</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1243</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' data &lt;- within(data, {</pre>
+                      <pre class="language-r">    if (with_reporter) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">27</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1244</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   library(nestcolor)</pre>
+                      <pre class="language-r">      card_fun &lt;- function(comment, label) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">28</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1245</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   USArrests &lt;- USArrests</pre>
+                      <pre class="language-r">        card &lt;- teal::TealReportCard$new()</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">29</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1246</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' })</pre>
+                      <pre class="language-r">        sum_type &lt;- input$summary_type</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">30</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1247</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' datanames(data) &lt;- "USArrests"</pre>
+                      <pre class="language-r">        title &lt;- if (sum_type == "By Variable Levels") paste0(sum_type, " Table") else paste0(sum_type, " Plot")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">31</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1248</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        title_dataname &lt;- paste(title, dataname, sep = " - ")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">32</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1249</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' app &lt;- init(</pre>
+                      <pre class="language-r">        label &lt;- if (label == "") {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">1250</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          paste("Missing Data", sum_type, dataname, sep = " - ")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">1251</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = data,</pre>
+                      <pre class="language-r">        } else {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">1252</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          label</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">34</td>
+                    <td class="num">1253</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="missed">
+                    <td class="num">1254</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        card$set_name(label)</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">1255</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        card$append_text(title_dataname, "header2")</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">1256</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        if (with_filter) card$append_fs(filter_panel_api$get_filter_state())</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">1257</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        if (sum_type == "Summary") {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">1258</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          card$append_text("Plot", "header3")</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">1259</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          card$append_plot(summary_plot_r(), dim = pws1$dim())</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">1260</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        } else if (sum_type == "Combinations") {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">1261</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          card$append_text("Plot", "header3")</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">1262</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          card$append_plot(combination_plot_r(), dim = pws2$dim())</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">1263</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        } else if (sum_type == "By Variable Levels") {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">1264</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          card$append_text("Table", "header3")</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">1265</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          card$append_table(summary_table_r[["summary_data"]])</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">1266</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        } else if (sum_type == "Grouped by Subject") {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">1267</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          card$append_text("Plot", "header3")</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">1268</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          card$append_plot(by_subject_plot_r(), dim = pws3$dim())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</td>
+                    <td class="num">1269</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     tm_a_pca(</pre>
+                      <pre class="language-r">        }</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">1270</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        if (!comment == "") {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">1271</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          card$append_text("Comment", "header3")</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">1272</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          card$append_text(comment)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">36</td>
+                    <td class="num">1273</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       "PCA",</pre>
+                      <pre class="language-r">        }</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">1274</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        card$append_src(teal.code::get_code(final_q()))</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">1275</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        card</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</td>
+                    <td class="num">1276</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       dat = data_extract_spec(</pre>
+                      <pre class="language-r">      }</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">1277</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">1278</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         dataname = "USArrests",</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">1279</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         select = select_spec(</pre>
+                      <pre class="language-r">    ###</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">1280</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           choices = variable_choices(</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">1281</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'             data = data[["USArrests"]], c("Murder", "Assault", "UrbanPop", "Rape")</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/tm_g_distribution.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           ),</pre>
+                      <pre class="language-r">#' Distribution Module</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           selected = c("Murder", "Assault"),</pre>
+                      <pre class="language-r">#' @md</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">44</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           multiple = TRUE</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">45</td>
+                    <td class="num">4</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">46</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         filter = NULL</pre>
+                      <pre class="language-r">#' Module to analyze and explore univariate variable distribution</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">47</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       ),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">48</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       ggplot2_args = ggplot2_args(</pre>
+                      <pre class="language-r">#' @inheritParams teal::module</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">49</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         labs = list(subtitle = "Plot generated by PCA Module")</pre>
+                      <pre class="language-r">#' @inheritParams teal.widgets::standard_layout</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">50</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       )</pre>
+                      <pre class="language-r">#' @inheritParams shared_params</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">51</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">52</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 dist_var (`data_extract_spec` or `list` of multiple `data_extract_spec`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">53</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#'  Variable to consider for the distribution analysis.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">54</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 strata_var (`data_extract_spec` or `list` of multiple `data_extract_spec`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">55</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' if (interactive()) {</pre>
+                      <pre class="language-r">#'   Categorical variable to split the selected distribution variable on.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">56</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   shinyApp(app$ui, app$server)</pre>
+                      <pre class="language-r">#' @param group_var  optional, (`data_extract_spec` or `list` of multiple `data_extract_spec`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">57</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">#'   Which data columns to use for faceting rows.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">58</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param freq optional, (`logical`) Whether to display frequency (`TRUE`) or density (`FALSE`).</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">59</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # CDISC data example</pre>
+                      <pre class="language-r">#'   Defaults to density (`FALSE`).</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">60</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(teal.widgets)</pre>
+                      <pre class="language-r">#' @param bins optional, (`integer(1)` or `integer(3)`) If scalar then the histogram bins will have a fixed size.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">61</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   If a slider should be presented to adjust the number of histogram bins dynamically then it can be a</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">#' data &lt;- teal_data()</pre>
+                      <pre class="language-r">#'   vector of length three with `c(value, min, max)`.</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">#' data &lt;- within(data, {</pre>
+                      <pre class="language-r">#'   Defaults to `c(30L, 1L, 100L)`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">64</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   library(nestcolor)</pre>
+                      <pre class="language-r">#'</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">#'   ADSL &lt;- rADSL</pre>
+                      <pre class="language-r">#' @templateVar ggnames "Histogram", "QQplot"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">66</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' })</pre>
+                      <pre class="language-r">#' @template ggplot2_args_multi</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">67</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' datanames(data) &lt;- "ADSL"</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">68</td>
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' join_keys(data) &lt;- default_cdisc_join_keys[datanames(data)]</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">69</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' # general data example</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">#' app &lt;- init(</pre>
+                      <pre class="language-r">#' library(teal.widgets)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">71</td>
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = data,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">72</td>
+                    <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   modules = modules(</pre>
+                      <pre class="language-r">#' data &lt;- teal_data()</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">#'     teal.modules.general::tm_a_pca(</pre>
+                      <pre class="language-r">#' data &lt;- within(data, {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">74</td>
+                    <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       "PCA",</pre>
+                      <pre class="language-r">#'   iris &lt;- iris</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">#'       dat = data_extract_spec(</pre>
+                      <pre class="language-r">#' })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">76</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         dataname = "ADSL",</pre>
+                      <pre class="language-r">#' datanames(data) &lt;- "iris"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">77</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         select = select_spec(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">78</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           choices = variable_choices(</pre>
+                      <pre class="language-r">#' app &lt;- init(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">79</td>
+                    <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'             data = data[["ADSL"]], c("BMRKR1", "AGE", "EOSDY")</pre>
+                      <pre class="language-r">#'   data = data,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">80</td>
+                    <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           ),</pre>
+                      <pre class="language-r">#'   modules = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">81</td>
+                    <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           selected = c("BMRKR1", "AGE"),</pre>
+                      <pre class="language-r">#'     tm_g_distribution(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">82</td>
+                    <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           multiple = TRUE</pre>
+                      <pre class="language-r">#'       dist_var = data_extract_spec(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">83</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         ),</pre>
+                      <pre class="language-r">#'         dataname = "iris",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">84</td>
+                    <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         filter = NULL</pre>
+                      <pre class="language-r">#'         select = select_spec(variable_choices("iris"), "Petal.Length")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">85</td>
+                    <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">86</td>
+                    <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'       ggplot2_args = ggplot2_args(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">87</td>
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         labs = list(subtitle = "Plot generated by PCA Module")</pre>
+                      <pre class="language-r">#'         labs = list(subtitle = "Plot generated by Distribution Module")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">88</td>
+                    <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">89</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">90</td>
+                    <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">91</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">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="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#' if (interactive()) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">94</td>
+                    <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'   shinyApp(app$ui, app$server)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">95</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">96</td>
+                    <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">97</td>
+                    <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' # CDISC data example</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">98</td>
+                    <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' library(teal.widgets)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">99</td>
+                    <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">tm_a_pca &lt;- function(label = "Principal Component Analysis",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">100</td>
+                    <td class="num">58</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                     dat,</pre>
+                      <pre class="language-r">#' data &lt;- teal_data()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">101</td>
+                    <td class="num">59</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                     plot_height = c(600, 200, 2000),</pre>
+                      <pre class="language-r">#' data &lt;- within(data, {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">102</td>
+                    <td class="num">60</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                     plot_width = NULL,</pre>
+                      <pre class="language-r">#'   ADSL &lt;- rADSL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">103</td>
+                    <td class="num">61</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                     ggtheme = c("gray", "bw", "linedraw", "light", "dark", "minimal", "classic", "void"),</pre>
+                      <pre class="language-r">#' })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">104</td>
+                    <td class="num">62</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                     ggplot2_args = teal.widgets::ggplot2_args(),</pre>
+                      <pre class="language-r">#' datanames(data) &lt;- c("ADSL")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">105</td>
+                    <td class="num">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                     rotate_xaxis_labels = FALSE,</pre>
+                      <pre class="language-r">#' join_keys(data) &lt;- default_cdisc_join_keys[datanames(data)]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">106</td>
+                    <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                     font_size = c(12, 8, 20),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">107</td>
+                    <td class="num">65</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                     alpha = c(1, 0, 1),</pre>
+                      <pre class="language-r">#' vars1 &lt;- choices_selected(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">108</td>
+                    <td class="num">66</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                     size = c(2, 1, 8),</pre>
+                      <pre class="language-r">#'   variable_choices(data[["ADSL"]], c("ARM", "COUNTRY", "SEX")),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">109</td>
+                    <td class="num">67</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                     pre_output = NULL,</pre>
+                      <pre class="language-r">#'   selected = NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">110</td>
+                    <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                     post_output = NULL) {</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">69</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  logger::log_info("Initializing tm_a_pca")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">112</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">  if (inherits(dat, "data_extract_spec")) dat &lt;- list(dat)</pre>
+                      <pre class="language-r">#' app &lt;- init(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">113</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">  if (inherits(ggplot2_args, "ggplot2_args")) ggplot2_args &lt;- list(default = ggplot2_args)</pre>
+                      <pre class="language-r">#'   data = data,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">114</td>
+                    <td class="num">72</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="missed">
-                    <td class="num">115</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">  checkmate::assert_string(label)</pre>
+                      <pre class="language-r">#'     tm_g_distribution(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">116</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">  checkmate::assert_list(dat, types = "data_extract_spec")</pre>
+                      <pre class="language-r">#'       dist_var = data_extract_spec(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">117</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">75</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ggtheme &lt;- match.arg(ggtheme)</pre>
+                      <pre class="language-r">#'         dataname = "ADSL",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">118</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">  checkmate::assert_flag(rotate_xaxis_labels)</pre>
+                      <pre class="language-r">#'         select = select_spec(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">119</td>
+                    <td class="num">77</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'           choices = variable_choices(data[["ADSL"]], c("AGE", "BMRKR1")),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">120</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 (length(alpha) == 1) {</pre>
+                      <pre class="language-r">#'           selected = "BMRKR1",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">121</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">    checkmate::assert_numeric(alpha, any.missing = FALSE, finite = TRUE, lower = 0, upper = 1)</pre>
+                      <pre class="language-r">#'           multiple = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">122</td>
+                    <td class="num">80</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">#'           fixed = FALSE</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">123</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">    checkmate::assert_numeric(alpha, len = 3, any.missing = FALSE, finite = TRUE, lower = 0, upper = 1)</pre>
+                      <pre class="language-r">#'         )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">124</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">    checkmate::assert_numeric(alpha[1], lower = alpha[2], upper = alpha[3], .var.name = "alpha")</pre>
+                      <pre class="language-r">#'       ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">125</td>
+                    <td class="num">83</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'       strata_var = data_extract_spec(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">126</td>
+                    <td class="num">84</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'         dataname = "ADSL",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">127</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">  if (length(size) == 1) {</pre>
+                      <pre class="language-r">#'         filter = filter_spec(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">128</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">    checkmate::assert_numeric(size, any.missing = FALSE, finite = TRUE, lower = 1, upper = 8)</pre>
+                      <pre class="language-r">#'           vars = vars1,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">129</td>
+                    <td class="num">87</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">#'           multiple = TRUE</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">130</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">    checkmate::assert_numeric(size, len = 3, any.missing = FALSE, finite = TRUE, lower = 1, upper = 8)</pre>
+                      <pre class="language-r">#'         )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">131</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">    checkmate::assert_numeric(size[1], lower = size[2], upper = size[3], .var.name = "size")</pre>
+                      <pre class="language-r">#'       ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">132</td>
+                    <td class="num">90</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'       group_var = data_extract_spec(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">133</td>
+                    <td class="num">91</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'         dataname = "ADSL",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">134</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">92</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (length(font_size) == 1) {</pre>
+                      <pre class="language-r">#'         filter = filter_spec(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">135</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">    checkmate::assert_numeric(font_size, any.missing = FALSE, finite = TRUE, lower = 8, upper = 20)</pre>
+                      <pre class="language-r">#'           vars = vars1,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">136</td>
+                    <td class="num">94</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">#'           multiple = TRUE</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">137</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">    checkmate::assert_numeric(font_size, len = 3, any.missing = FALSE, finite = TRUE, lower = 8, upper = 20)</pre>
+                      <pre class="language-r">#'         )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">138</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">    checkmate::assert_numeric(font_size[1], lower = font_size[2], upper = font_size[3], .var.name = "font_size")</pre>
+                      <pre class="language-r">#'       ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">139</td>
+                    <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'       ggplot2_args = ggplot2_args(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">140</td>
+                    <td class="num">98</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'         labs = list(subtitle = "Plot generated by Distribution Module")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">141</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">99</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(plot_height, len = 3, any.missing = FALSE, finite = TRUE)</pre>
+                      <pre class="language-r">#'       )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">142</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">100</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(plot_height[1], lower = plot_height[2], upper = plot_height[3], .var.name = "plot_height")</pre>
+                      <pre class="language-r">#'     )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">143</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">  checkmate::assert_numeric(plot_width, len = 3, any.missing = FALSE, null.ok = TRUE, finite = TRUE)</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">144</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">  checkmate::assert_numeric(</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">145</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">    plot_width[1],</pre>
+                      <pre class="language-r">#' if (interactive()) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">146</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">    lower = plot_width[2], upper = plot_width[3], null.ok = TRUE, .var.name = "plot_width"</pre>
+                      <pre class="language-r">#'   shinyApp(app$ui, app$server)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">147</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">148</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="missed">
-                    <td class="num">149</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">  plot_choices &lt;- c("Elbow plot", "Circle plot", "Biplot", "Eigenvector plot")</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">150</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">  checkmate::assert_list(ggplot2_args, types = "ggplot2_args")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">151</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">  checkmate::assert_subset(names(ggplot2_args), c("default", plot_choices))</pre>
+                      <pre class="language-r">tm_g_distribution &lt;- function(label = "Distribution Module",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">152</td>
+                    <td class="num">110</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                              dist_var,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">153</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">  args &lt;- as.list(environment())</pre>
+                      <pre class="language-r">                              strata_var = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">154</td>
+                    <td class="num">112</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                              group_var = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">155</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">  data_extract_list &lt;- list(dat = dat)</pre>
+                      <pre class="language-r">                              freq = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">156</td>
+                    <td class="num">114</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                              ggtheme = c("gray", "bw", "linedraw", "light", "dark", "minimal", "classic", "void"),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">157</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">  module(</pre>
+                      <pre class="language-r">                              ggplot2_args = teal.widgets::ggplot2_args(),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">158</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">116</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    label = label,</pre>
+                      <pre class="language-r">                              bins = c(30L, 1L, 100L),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">159</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">    server = srv_a_pca,</pre>
+                      <pre class="language-r">                              plot_height = c(600, 200, 2000),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">160</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">118</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ui = ui_a_pca,</pre>
+                      <pre class="language-r">                              plot_width = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">161</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">119</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ui_args = args,</pre>
+                      <pre class="language-r">                              pre_output = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">162</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">    server_args = c(</pre>
+                      <pre class="language-r">                              post_output = NULL) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">163</td>
+                    <td class="num">121</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      data_extract_list,</pre>
+                      <pre class="language-r">  logger::log_info("Initializing tm_g_distribution")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">164</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">122</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="missed">
-                    <td class="num">165</td>
+                    <td class="num">123</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        plot_height = plot_height,</pre>
+                      <pre class="language-r">  extra_packages &lt;- c("ggpmisc", "ggpp", "goftest", "MASS", "broom")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">166</td>
+                    <td class="num">124</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        plot_width = plot_width,</pre>
+                      <pre class="language-r">  missing_packages &lt;- Filter(function(x) !requireNamespace(x, quietly = TRUE), extra_packages)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">167</td>
+                    <td class="num">125</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ggplot2_args = ggplot2_args</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">  if (length(missing_packages) &gt; 0L) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">169</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">    ),</pre>
+                      <pre class="language-r">    stop(sprintf(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">170</td>
+                    <td class="num">127</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    datanames = teal.transform::get_extract_datanames(data_extract_list)</pre>
+                      <pre class="language-r">      "Cannot load package(s): %s.\nInstall or restart your session.",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">171</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">128</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">      toString(missing_packages)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">172</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">173</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">174</td>
+                    <td class="num">131</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">175</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">ui_a_pca &lt;- function(id, ...) {</pre>
+                      <pre class="language-r">  if (inherits(dist_var, "data_extract_spec")) dist_var &lt;- list(dist_var)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">176</td>
+                    <td class="num">133</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ns &lt;- NS(id)</pre>
+                      <pre class="language-r">  if (inherits(strata_var, "data_extract_spec")) strata_var &lt;- list(strata_var)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">177</td>
+                    <td class="num">134</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  args &lt;- list(...)</pre>
+                      <pre class="language-r">  if (inherits(group_var, "data_extract_spec")) group_var &lt;- list(group_var)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">178</td>
+                    <td class="num">135</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  is_single_dataset_value &lt;- teal.transform::is_single_dataset(args$dat)</pre>
+                      <pre class="language-r">  if (inherits(ggplot2_args, "ggplot2_args")) ggplot2_args &lt;- list(default = ggplot2_args)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">179</td>
+                    <td class="num">136</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">180</td>
+                    <td class="num">137</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  color_selector &lt;- args$dat</pre>
+                      <pre class="language-r">  ggtheme &lt;- match.arg(ggtheme)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">181</td>
+                    <td class="num">138</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  for (i in seq_along(color_selector)) {</pre>
+                      <pre class="language-r">  if (length(bins) == 1) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">182</td>
+                    <td class="num">139</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    color_selector[[i]]$select$multiple &lt;- FALSE</pre>
+                      <pre class="language-r">    checkmate::assert_numeric(bins, any.missing = FALSE, lower = 1)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">140</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">183</td>
+                    <td class="num">141</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    color_selector[[i]]$select$always_selected &lt;- NULL</pre>
+                      <pre class="language-r">    checkmate::assert_numeric(bins, len = 3, any.missing = FALSE, lower = 1)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">184</td>
+                    <td class="num">142</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    color_selector[[i]]$select$selected &lt;- NULL</pre>
+                      <pre class="language-r">    checkmate::assert_numeric(bins[1], lower = bins[2], upper = bins[3], .var.name = "bins")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">185</td>
+                    <td class="num">143</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">186</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">  checkmate::assert_string(label)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">187</td>
+                    <td class="num">145</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  shiny::tagList(</pre>
+                      <pre class="language-r">  checkmate::assert_list(dist_var, "data_extract_spec")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">188</td>
+                    <td class="num">146</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    include_css_files("custom"),</pre>
+                      <pre class="language-r">  checkmate::assert_false(dist_var[[1]]$select$multiple)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">189</td>
+                    <td class="num">147</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    teal.widgets::standard_layout(</pre>
+                      <pre class="language-r">  checkmate::assert_list(strata_var, types = "data_extract_spec", null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">190</td>
+                    <td class="num">148</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      output = teal.widgets::white_small_well(</pre>
+                      <pre class="language-r">  checkmate::assert_list(group_var, types = "data_extract_spec", null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">191</td>
+                    <td class="num">149</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        uiOutput(ns("all_plots"))</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">192</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      ),</pre>
+                      <pre class="language-r">  checkmate::assert_flag(freq)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">193</td>
+                    <td class="num">150</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      encoding = div(</pre>
+                      <pre class="language-r">  plot_choices &lt;- c("Histogram", "QQplot")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">194</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">151</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ### Reporter</pre>
+                      <pre class="language-r">  checkmate::assert_list(ggplot2_args, types = "ggplot2_args")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">195</td>
+                    <td class="num">152</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        teal.reporter::simple_reporter_ui(ns("simple_reporter")),</pre>
+                      <pre class="language-r">  checkmate::assert_subset(names(ggplot2_args), c("default", plot_choices))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">196</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="missed">
-                    <td class="num">197</td>
+                    <td class="num">154</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        tags$label("Encodings", class = "text-primary"),</pre>
+                      <pre class="language-r">  args &lt;- as.list(environment())</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">198</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">155</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        teal.transform::datanames_input(args["dat"]),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">199</td>
+                    <td class="num">156</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        teal.transform::data_extract_ui(</pre>
+                      <pre class="language-r">  data_extract_list &lt;- list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">200</td>
+                    <td class="num">157</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          id = ns("dat"),</pre>
+                      <pre class="language-r">    dist_var = dist_var,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">201</td>
+                    <td class="num">158</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          label = "Data selection",</pre>
+                      <pre class="language-r">    strata_var = strata_var,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">202</td>
+                    <td class="num">159</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          data_extract_spec = args$dat,</pre>
+                      <pre class="language-r">    group_var = group_var</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">203</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">          is_single_dataset = is_single_dataset_value</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">204</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="missed">
-                    <td class="num">205</td>
+                    <td class="num">162</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        teal.widgets::panel_group(</pre>
+                      <pre class="language-r">  module(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">206</td>
+                    <td class="num">163</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          teal.widgets::panel_item(</pre>
+                      <pre class="language-r">    label = label,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">207</td>
+                    <td class="num">164</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            title = "Display",</pre>
+                      <pre class="language-r">    server = srv_distribution,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">208</td>
+                    <td class="num">165</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            collapsed = FALSE,</pre>
+                      <pre class="language-r">    server_args = c(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">209</td>
+                    <td class="num">166</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            checkboxGroupInput(</pre>
+                      <pre class="language-r">      data_extract_list,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">210</td>
+                    <td class="num">167</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              ns("tables_display"),</pre>
+                      <pre class="language-r">      list(plot_height = plot_height, plot_width = plot_width, ggplot2_args = ggplot2_args)</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>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">211</td>
+                    <td class="num">169</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              "Tables display",</pre>
+                      <pre class="language-r">    ui = ui_distribution,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">212</td>
+                    <td class="num">170</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              choices = c("PC importance" = "importance", "Eigenvectors" = "eigenvector"),</pre>
+                      <pre class="language-r">    ui_args = args,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">213</td>
+                    <td class="num">171</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              selected = c("importance", "eigenvector")</pre>
+                      <pre class="language-r">    datanames = teal.transform::get_extract_datanames(data_extract_list)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">214</td>
+                    <td class="num">172</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">215</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">            radioButtons(</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">216</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">              ns("plot_type"),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">217</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">              label = "Plot type",</pre>
+                      <pre class="language-r">ui_distribution &lt;- function(id, ...) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">218</td>
+                    <td class="num">176</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              choices = args$plot_choices,</pre>
+                      <pre class="language-r">  args &lt;- list(...)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">219</td>
+                    <td class="num">177</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              selected = args$plot_choices[1]</pre>
+                      <pre class="language-r">  ns &lt;- NS(id)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">220</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">            )</pre>
+                      <pre class="language-r">  is_single_dataset_value &lt;- teal.transform::is_single_dataset(args$dist_var, args$strata_var, args$group_var)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">221</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="missed">
-                    <td class="num">222</td>
+                    <td class="num">180</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          teal.widgets::panel_item(</pre>
+                      <pre class="language-r">  teal.widgets::standard_layout(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">223</td>
+                    <td class="num">181</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            title = "Pre-processing",</pre>
+                      <pre class="language-r">    output = teal.widgets::white_small_well(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">224</td>
+                    <td class="num">182</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            radioButtons(</pre>
+                      <pre class="language-r">      tabsetPanel(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">225</td>
+                    <td class="num">183</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              ns("standardization"), "Standardization",</pre>
+                      <pre class="language-r">        id = ns("tabs"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">226</td>
+                    <td class="num">184</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              choices = c("None" = "none", "Center" = "center", "Center &amp; Scale" = "center_scale"),</pre>
+                      <pre class="language-r">        tabPanel("Histogram", teal.widgets::plot_with_settings_ui(id = ns("hist_plot"))),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">227</td>
+                    <td class="num">185</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              selected = "center_scale"</pre>
+                      <pre class="language-r">        tabPanel("QQplot", teal.widgets::plot_with_settings_ui(id = ns("qq_plot")))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">228</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="missed">
-                    <td class="num">229</td>
+                    <td class="num">187</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            radioButtons(</pre>
+                      <pre class="language-r">      h3("Statistics Table"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">230</td>
+                    <td class="num">188</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              ns("na_action"), "NA action",</pre>
+                      <pre class="language-r">      DT::dataTableOutput(ns("summary_table")),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">231</td>
+                    <td class="num">189</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              choices = c("None" = "none", "Drop" = "drop"),</pre>
+                      <pre class="language-r">      h3("Tests"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">232</td>
+                    <td class="num">190</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              selected = "none"</pre>
+                      <pre class="language-r">      DT::dataTableOutput(ns("t_stats"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">233</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="missed">
+                    <td class="num">192</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    encoding = div(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">234</td>
+                    <td class="num">193</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ),</pre>
+                      <pre class="language-r">      ### Reporter</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">235</td>
+                    <td class="num">194</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          teal.widgets::panel_item(</pre>
+                      <pre class="language-r">      teal.reporter::simple_reporter_ui(ns("simple_reporter")),</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">195</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      ###</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">236</td>
+                    <td class="num">196</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            title = "Selected plot specific settings",</pre>
+                      <pre class="language-r">      tags$label("Encodings", class = "text-primary"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">237</td>
+                    <td class="num">197</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            collapsed = FALSE,</pre>
+                      <pre class="language-r">      teal.transform::datanames_input(args[c("dist_var", "strata_var")]),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">238</td>
+                    <td class="num">198</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            uiOutput(ns("plot_settings")),</pre>
+                      <pre class="language-r">      teal.transform::data_extract_ui(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">239</td>
+                    <td class="num">199</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            conditionalPanel(</pre>
+                      <pre class="language-r">        id = ns("dist_i"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">240</td>
+                    <td class="num">200</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              condition = sprintf("input['%s'] == 'Biplot'", ns("plot_type")),</pre>
+                      <pre class="language-r">        label = "Variable",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">241</td>
+                    <td class="num">201</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              list(</pre>
+                      <pre class="language-r">        data_extract_spec = args$dist_var,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">242</td>
+                    <td class="num">202</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                teal.transform::data_extract_ui(</pre>
+                      <pre class="language-r">        is_single_dataset = is_single_dataset_value</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">203</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">243</td>
+                    <td class="num">204</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  id = ns("response"),</pre>
+                      <pre class="language-r">      if (!is.null(args$group_var)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">244</td>
+                    <td class="num">205</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  label = "Color by",</pre>
+                      <pre class="language-r">        tagList(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">245</td>
+                    <td class="num">206</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  data_extract_spec = color_selector,</pre>
+                      <pre class="language-r">          teal.transform::data_extract_ui(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">246</td>
+                    <td class="num">207</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  is_single_dataset = is_single_dataset_value</pre>
+                      <pre class="language-r">            id = ns("group_i"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">247</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">                ),</pre>
+                      <pre class="language-r">            label = "Group by",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">248</td>
+                    <td class="num">209</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                teal.widgets::optionalSliderInputValMinMax(ns("alpha"), "Opacity:", args$alpha, ticks = FALSE),</pre>
+                      <pre class="language-r">            data_extract_spec = args$group_var,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">249</td>
+                    <td class="num">210</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                teal.widgets::optionalSliderInputValMinMax(ns("size"), "Points size:", args$size, ticks = FALSE)</pre>
+                      <pre class="language-r">            is_single_dataset = is_single_dataset_value</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">250</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="missed">
+                    <td class="num">212</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          uiOutput(ns("scales_types_ui"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">251</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">252</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="missed">
-                    <td class="num">253</td>
+                    <td class="num">215</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          teal.widgets::panel_item(</pre>
+                      <pre class="language-r">      if (!is.null(args$strata_var)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">254</td>
+                    <td class="num">216</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            title = "Plot settings",</pre>
+                      <pre class="language-r">        teal.transform::data_extract_ui(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">255</td>
+                    <td class="num">217</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            collapsed = TRUE,</pre>
+                      <pre class="language-r">          id = ns("strata_i"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">256</td>
+                    <td class="num">218</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            conditionalPanel(</pre>
+                      <pre class="language-r">          label = "Stratify by",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">257</td>
+                    <td class="num">219</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              condition = sprintf(</pre>
+                      <pre class="language-r">          data_extract_spec = args$strata_var,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">258</td>
+                    <td class="num">220</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                "input['%s'] == 'Elbow Plot' || input['%s'] == 'Eigenvector plot'",</pre>
+                      <pre class="language-r">          is_single_dataset = is_single_dataset_value</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>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">222</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      },</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">259</td>
+                    <td class="num">223</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                ns("plot_type"),</pre>
+                      <pre class="language-r">      teal.widgets::panel_group(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">260</td>
+                    <td class="num">224</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                ns("plot_type")</pre>
+                      <pre class="language-r">        conditionalPanel(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">261</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">              ),</pre>
+                      <pre class="language-r">          condition = paste0("input['", ns("tabs"), "'] == 'Histogram'"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">262</td>
+                    <td class="num">226</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              list(checkboxInput(ns("rotate_xaxis_labels"), "Rotate X axis labels", value = args$rotate_xaxis_labels))</pre>
+                      <pre class="language-r">          teal.widgets::panel_item(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">263</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">            ),</pre>
+                      <pre class="language-r">            "Histogram",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">264</td>
+                    <td class="num">228</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            selectInput(</pre>
+                      <pre class="language-r">            teal.widgets::optionalSliderInputValMinMax(ns("bins"), "Bins", args$bins, ticks = FALSE, step = 1),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">265</td>
+                    <td class="num">229</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              inputId = ns("ggtheme"),</pre>
+                      <pre class="language-r">            shinyWidgets::prettyRadioButtons(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">266</td>
+                    <td class="num">230</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              label = "Theme (by ggplot):",</pre>
+                      <pre class="language-r">              ns("main_type"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">267</td>
+                    <td class="num">231</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              choices = ggplot_themes,</pre>
+                      <pre class="language-r">              label = "Plot Type:",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">268</td>
+                    <td class="num">232</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              selected = args$ggtheme,</pre>
+                      <pre class="language-r">              choices = c("Density", "Frequency"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">269</td>
+                    <td class="num">233</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              multiple = FALSE</pre>
+                      <pre class="language-r">              selected = if (!args$freq) "Density" else "Frequency",</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">234</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">              bigger = FALSE,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">235</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">              inline = TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">270</td>
+                    <td class="num">236</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">            ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">271</td>
+                    <td class="num">237</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            teal.widgets::optionalSliderInputValMinMax(ns("font_size"), "Font Size", args$font_size, ticks = FALSE)</pre>
+                      <pre class="language-r">            checkboxInput(ns("add_dens"), label = "Overlay Density", value = TRUE),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">272</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">          )</pre>
+                      <pre class="language-r">            collapsed = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">273</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">274</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="missed">
-                    <td class="num">275</td>
+                    <td class="num">241</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      forms = tagList(</pre>
+                      <pre class="language-r">        conditionalPanel(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">276</td>
+                    <td class="num">242</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        teal.widgets::verbatim_popup_ui(ns("warning"), "Show Warnings"),</pre>
+                      <pre class="language-r">          condition = paste0("input['", ns("tabs"), "'] == 'QQplot'"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">277</td>
+                    <td class="num">243</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">          teal.widgets::panel_item(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">278</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">            "QQ Plot",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">279</td>
+                    <td class="num">245</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      pre_output = args$pre_output,</pre>
+                      <pre class="language-r">            checkboxInput(ns("qq_line"), label = "Add diagonal line(s)", TRUE),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">280</td>
+                    <td class="num">246</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      post_output = args$post_output</pre>
+                      <pre class="language-r">            collapsed = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">281</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">282</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">283</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">}</pre>
+                      <pre class="language-r">        conditionalPanel(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">284</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">          condition = paste0("input['", ns("main_type"), "'] == 'Density'"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">285</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">srv_a_pca &lt;- function(id, data, reporter, filter_panel_api, dat, plot_height, plot_width, ggplot2_args) {</pre>
+                      <pre class="language-r">          teal.widgets::panel_item(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">286</td>
+                    <td class="num">252</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  with_reporter &lt;- !missing(reporter) &amp;&amp; inherits(reporter, "Reporter")</pre>
+                      <pre class="language-r">            "Theoretical Distribution",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">287</td>
+                    <td class="num">253</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  with_filter &lt;- !missing(filter_panel_api) &amp;&amp; inherits(filter_panel_api, "FilterPanelAPI")</pre>
+                      <pre class="language-r">            teal.widgets::optionalSelectInput(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">288</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(data, "reactive")</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">289</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(isolate(data()), "teal_data")</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">290</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="missed">
-                    <td class="num">291</td>
+                    <td class="num">254</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    response &lt;- dat</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">292</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">              ns("t_dist"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">293</td>
+                    <td class="num">255</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    for (i in seq_along(response)) {</pre>
+                      <pre class="language-r">              div(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">294</td>
+                    <td class="num">256</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      response[[i]]$select$multiple &lt;- FALSE</pre>
+                      <pre class="language-r">                class = "teal-tooltip",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">295</td>
+                    <td class="num">257</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      response[[i]]$select$always_selected &lt;- NULL</pre>
+                      <pre class="language-r">                tagList(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">296</td>
+                    <td class="num">258</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      response[[i]]$select$selected &lt;- NULL</pre>
+                      <pre class="language-r">                  "Distribution:",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">297</td>
+                    <td class="num">259</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      all_cols &lt;- teal.data::col_labels(isolate(data())[[response[[i]]$dataname]])</pre>
+                      <pre class="language-r">                  icon("circle-info"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">298</td>
+                    <td class="num">260</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ignore_cols &lt;- unlist(teal.data::join_keys(isolate(data()))[[response[[i]]$dataname]])</pre>
+                      <pre class="language-r">                  span(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">299</td>
+                    <td class="num">261</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      color_cols &lt;- all_cols[!names(all_cols) %in% ignore_cols]</pre>
+                      <pre class="language-r">                    class = "tooltiptext",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">300</td>
+                    <td class="num">262</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      response[[i]]$select$choices &lt;- choices_labeled(names(color_cols), color_cols)</pre>
+                      <pre class="language-r">                    "Default parameters are optimized with MASS::fitdistr function."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">301</td>
+                    <td class="num">263</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">                  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">302</td>
+                    <td class="num">264</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">303</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">265</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    selector_list &lt;- teal.transform::data_extract_multiple_srv(</pre>
+                      <pre class="language-r">              ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">304</td>
+                    <td class="num">266</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      data_extract = list(dat = dat, response = response),</pre>
+                      <pre class="language-r">              choices = c("normal", "lognormal", "gamma", "unif"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">305</td>
+                    <td class="num">267</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      datasets = data,</pre>
+                      <pre class="language-r">              selected = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">306</td>
+                    <td class="num">268</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      select_validation_rule = list(</pre>
+                      <pre class="language-r">              multiple = FALSE</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">307</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">269</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        dat = ~ if (length(.) &lt; 2L) "Please select more than 1 variable to perform PCA.",</pre>
+                      <pre class="language-r">            ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">308</td>
+                    <td class="num">270</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        response = shinyvalidate::compose_rules(</pre>
+                      <pre class="language-r">            numericInput(ns("dist_param1"), label = "param1", value = NULL),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">309</td>
+                    <td class="num">271</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          shinyvalidate::sv_optional(),</pre>
+                      <pre class="language-r">            numericInput(ns("dist_param2"), label = "param2", value = NULL),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">310</td>
+                    <td class="num">272</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ~ if (isTRUE(is.element(., selector_list()$dat()$select))) {</pre>
+                      <pre class="language-r">            span(actionButton(ns("params_reset"), "Reset params")),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">311</td>
+                    <td class="num">273</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            "Response must not have been used for PCA."</pre>
+                      <pre class="language-r">            collapsed = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">312</td>
+                    <td class="num">274</td>
                     <td class="coverage"></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="num">275</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">314</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <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">    )</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">316</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="missed">
-                    <td class="num">317</td>
+                    <td class="num">277</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    iv_r &lt;- reactive({</pre>
+                      <pre class="language-r">      teal.widgets::panel_item(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">318</td>
+                    <td class="num">278</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv &lt;- shinyvalidate::InputValidator$new()</pre>
+                      <pre class="language-r">        "Tests",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">319</td>
+                    <td class="num">279</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.transform::compose_and_enable_validators(iv, selector_list)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">320</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">321</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        teal.widgets::optionalSelectInput(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">322</td>
+                    <td class="num">280</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    iv_extra &lt;- shinyvalidate::InputValidator$new()</pre>
+                      <pre class="language-r">          ns("dist_tests"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">323</td>
+                    <td class="num">281</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    iv_extra$add_rule("x_axis", function(value) {</pre>
+                      <pre class="language-r">          "Tests:",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">324</td>
+                    <td class="num">282</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (isTRUE(input$plot_type %in% c("Circle plot", "Biplot"))) {</pre>
+                      <pre class="language-r">          choices = c(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">325</td>
+                    <td class="num">283</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (!shinyvalidate::input_provided(value)) {</pre>
+                      <pre class="language-r">            "Shapiro-Wilk",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">326</td>
+                    <td class="num">284</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "Need X axis"</pre>
+                      <pre class="language-r">            if (!is.null(args$strata_var)) "t-test (two-samples, not paired)",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">327</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">285</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">            if (!is.null(args$strata_var)) "one-way ANOVA",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">328</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">286</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">            if (!is.null(args$strata_var)) "Fligner-Killeen",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">329</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">    })</pre>
+                      <pre class="language-r">            if (!is.null(args$strata_var)) "F-test",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">330</td>
+                    <td class="num">288</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    iv_extra$add_rule("y_axis", function(value) {</pre>
+                      <pre class="language-r">            "Kolmogorov-Smirnov (one-sample)",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">331</td>
+                    <td class="num">289</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (isTRUE(input$plot_type %in% c("Circle plot", "Biplot"))) {</pre>
+                      <pre class="language-r">            "Anderson-Darling (one-sample)",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">332</td>
+                    <td class="num">290</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (!shinyvalidate::input_provided(value)) {</pre>
+                      <pre class="language-r">            "Cramer-von Mises (one-sample)",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">333</td>
+                    <td class="num">291</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "Need Y axis"</pre>
+                      <pre class="language-r">            if (!is.null(args$strata_var)) "Kolmogorov-Smirnov (two-samples)"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">334</td>
+                    <td class="num">292</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">          ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">335</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">          selected = NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">336</td>
+                    <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="missed">
-                    <td class="num">337</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">295</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    rule_dupl &lt;- function(...) {</pre>
+                      <pre class="language-r">      ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">338</td>
+                    <td class="num">296</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (isTRUE(input$plot_type %in% c("Circle plot", "Biplot"))) {</pre>
+                      <pre class="language-r">      teal.widgets::panel_item(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">339</td>
+                    <td class="num">297</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (isTRUE(input$x_axis == input$y_axis)) {</pre>
+                      <pre class="language-r">        "Statistics Table",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">340</td>
+                    <td class="num">298</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "Please choose different X and Y axes."</pre>
+                      <pre class="language-r">        sliderInput(ns("roundn"), "Round to n digits", min = 0, max = 10, value = 2)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">341</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">342</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">300</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">      teal.widgets::panel_item(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">343</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">301</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">        title = "Plot settings",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">344</td>
+                    <td class="num">302</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    iv_extra$add_rule("x_axis", rule_dupl)</pre>
+                      <pre class="language-r">        selectInput(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">345</td>
+                    <td class="num">303</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    iv_extra$add_rule("y_axis", rule_dupl)</pre>
+                      <pre class="language-r">          inputId = ns("ggtheme"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">346</td>
+                    <td class="num">304</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    iv_extra$add_rule("variables", function(value) {</pre>
+                      <pre class="language-r">          label = "Theme (by ggplot):",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">347</td>
+                    <td class="num">305</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (identical(input$plot_type, "Circle plot")) {</pre>
+                      <pre class="language-r">          choices = ggplot_themes,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">348</td>
+                    <td class="num">306</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (!shinyvalidate::input_provided(value)) {</pre>
+                      <pre class="language-r">          selected = args$ggtheme,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">349</td>
+                    <td class="num">307</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "Need Original Coordinates"</pre>
+                      <pre class="language-r">          multiple = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">350</td>
+                    <td class="num">308</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">351</td>
+                    <td class="num">309</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">352</td>
+                    <td class="num">310</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">353</td>
+                    <td class="num">311</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    iv_extra$add_rule("pc", function(value) {</pre>
+                      <pre class="language-r">    forms = tagList(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">354</td>
+                    <td class="num">312</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (identical(input$plot_type, "Eigenvector plot")) {</pre>
+                      <pre class="language-r">      teal.widgets::verbatim_popup_ui(ns("warning"), "Show Warnings"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">355</td>
+                    <td class="num">313</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (!shinyvalidate::input_provided(value)) {</pre>
+                      <pre class="language-r">      teal.widgets::verbatim_popup_ui(ns("rcode"), "Show R code")</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">314</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">356</td>
+                    <td class="num">315</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "Need PC"</pre>
+                      <pre class="language-r">    pre_output = args$pre_output,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">357</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">316</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">    post_output = args$post_output</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">358</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">359</td>
+                    <td class="num">318</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">    iv_extra$enable()</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">361</td>
+                    <td class="num">319</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">362</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    anl_merged_input &lt;- teal.transform::merge_expression_srv(</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">363</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">320</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      selector_list = selector_list,</pre>
+                      <pre class="language-r">srv_distribution &lt;- function(id,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">364</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">321</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      datasets = data</pre>
+                      <pre class="language-r">                             data,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">365</td>
+                    <td class="num">322</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">                             reporter,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">366</td>
+                    <td class="num">323</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                             filter_panel_api,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">367</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">324</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    anl_merged_q &lt;- reactive({</pre>
+                      <pre class="language-r">                             dist_var,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">368</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">325</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      req(anl_merged_input())</pre>
+                      <pre class="language-r">                             strata_var,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">369</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">326</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      data() %&gt;%</pre>
+                      <pre class="language-r">                             group_var,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">370</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">327</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        teal.code::eval_code(as.expression(anl_merged_input()$expr))</pre>
+                      <pre class="language-r">                             plot_height,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">371</td>
+                    <td class="num">328</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">                             plot_width,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">372</td>
+                    <td class="num">329</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                             ggplot2_args) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">373</td>
+                    <td class="num">330</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    merged &lt;- list(</pre>
+                      <pre class="language-r">  with_reporter &lt;- !missing(reporter) &amp;&amp; inherits(reporter, "Reporter")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">374</td>
+                    <td class="num">331</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      anl_input_r = anl_merged_input,</pre>
+                      <pre class="language-r">  with_filter &lt;- !missing(filter_panel_api) &amp;&amp; inherits(filter_panel_api, "FilterPanelAPI")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">375</td>
+                    <td class="num">332</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      anl_q_r = anl_merged_q</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <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">377</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  checkmate::assert_class(data, "reactive")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">378</td>
+                    <td class="num">333</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    validation &lt;- reactive({</pre>
+                      <pre class="language-r">  checkmate::assert_class(isolate(data()), "teal_data")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">379</td>
+                    <td class="num">334</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      req(merged$anl_q_r())</pre>
+                      <pre class="language-r">  moduleServer(id, function(input, output, session) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">380</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">335</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # inputs</pre>
+                      <pre class="language-r">    rule_req &lt;- function(value) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">381</td>
+                    <td class="num">336</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      keep_cols &lt;- as.character(merged$anl_input_r()$columns_source$dat)</pre>
+                      <pre class="language-r">      if (isTRUE(input$dist_tests %in% c(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">382</td>
+                    <td class="num">337</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      na_action &lt;- input$na_action</pre>
+                      <pre class="language-r">        "Fligner-Killeen",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">383</td>
+                    <td class="num">338</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      standardization &lt;- input$standardization</pre>
+                      <pre class="language-r">        "t-test (two-samples, not paired)",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">384</td>
+                    <td class="num">339</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      center &lt;- standardization %in% c("center", "center_scale")</pre>
+                      <pre class="language-r">        "F-test",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">385</td>
+                    <td class="num">340</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      scale &lt;- standardization == "center_scale"</pre>
+                      <pre class="language-r">        "Kolmogorov-Smirnov (two-samples)",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">386</td>
+                    <td class="num">341</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ANL &lt;- merged$anl_q_r()[["ANL"]] # nolint: object_name.</pre>
+                      <pre class="language-r">        "one-way ANOVA"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">387</td>
+                    <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="missed">
-                    <td class="num">388</td>
+                    <td class="num">343</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal::validate_has_data(ANL, 10)</pre>
+                      <pre class="language-r">        if (!shinyvalidate::input_provided(value)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">389</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      validate(need(</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">390</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        na_action != "none" | !anyNA(ANL[keep_cols]),</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">391</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        paste(</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">392</td>
+                    <td class="num">344</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "There are NAs in the dataset. Please deal with them in preprocessing",</pre>
+                      <pre class="language-r">          "Please select stratify variable."</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">393</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">          "or select \"Drop\" in the NA actions inside the encodings panel (left)."</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">394</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">395</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="missed">
-                    <td class="num">396</td>
+                    <td class="num">348</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (scale) {</pre>
+                      <pre class="language-r">    rule_dupl &lt;- function(...) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">397</td>
+                    <td class="num">349</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        not_single &lt;- vapply(ANL[keep_cols], function(column) length(unique(column)) != 1, FUN.VALUE = logical(1))</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">398</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      if (identical(input$dist_tests, "Fligner-Killeen")) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">399</td>
+                    <td class="num">350</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        msg &lt;- paste0(</pre>
+                      <pre class="language-r">        strata &lt;- selector_list()$strata_i()$select</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">400</td>
+                    <td class="num">351</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "You have selected `Center &amp; Scale` under `Standardization` in the `Pre-processing` panel, ",</pre>
+                      <pre class="language-r">        group &lt;- selector_list()$group_i()$select</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">401</td>
+                    <td class="num">352</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "but one or more of your columns has/have a variance value of zero, indicating all values are identical"</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">402</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">        if (isTRUE(strata == group)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">403</td>
+                    <td class="num">353</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        validate(need(all(not_single), msg))</pre>
+                      <pre class="language-r">          "Please select different variables for strata and group."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">404</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">405</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">406</td>
+                    <td class="num">356</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">407</td>
+                    <td class="num">357</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # computation ----</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">408</td>
+                    <td class="num">358</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    computation &lt;- reactive({</pre>
+                      <pre class="language-r">    selector_list &lt;- teal.transform::data_extract_multiple_srv(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">409</td>
+                    <td class="num">359</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      validation()</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>
+                      <pre class="language-r">      data_extract = list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">411</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">      # inputs</pre>
+                      <pre class="language-r">        dist_i = dist_var,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">412</td>
+                    <td class="num">361</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      keep_cols &lt;- as.character(merged$anl_input_r()$columns_source$dat)</pre>
+                      <pre class="language-r">        strata_i = strata_var,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">413</td>
+                    <td class="num">362</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      na_action &lt;- input$na_action</pre>
+                      <pre class="language-r">        group_i = group_var</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">414</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">363</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      standardization &lt;- input$standardization</pre>
+                      <pre class="language-r">      ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">415</td>
+                    <td class="num">364</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      center &lt;- standardization %in% c("center", "center_scale")</pre>
+                      <pre class="language-r">      data,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">416</td>
+                    <td class="num">365</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      scale &lt;- standardization == "center_scale"</pre>
+                      <pre class="language-r">      select_validation_rule = list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">417</td>
+                    <td class="num">366</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ANL &lt;- merged$anl_q_r()[["ANL"]] # nolint: object_name.</pre>
+                      <pre class="language-r">        dist_i = shinyvalidate::sv_required("Please select a variable")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">418</td>
+                    <td class="num">367</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">419</td>
+                    <td class="num">368</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      qenv &lt;- teal.code::eval_code(</pre>
+                      <pre class="language-r">      filter_validation_rule = list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">420</td>
+                    <td class="num">369</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        merged$anl_q_r(),</pre>
+                      <pre class="language-r">        strata_i = shinyvalidate::compose_rules(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">421</td>
+                    <td class="num">370</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        substitute(</pre>
+                      <pre class="language-r">          rule_req,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">422</td>
+                    <td class="num">371</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          expr = keep_columns &lt;- keep_cols,</pre>
+                      <pre class="language-r">          rule_dupl</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">372</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">423</td>
+                    <td class="num">373</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          env = list(keep_cols = keep_cols)</pre>
+                      <pre class="language-r">        group_i = rule_dupl</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">424</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">425</td>
+                    <td class="num">375</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">426</td>
+                    <td class="num">376</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">427</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      if (na_action == "drop") {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">428</td>
+                    <td class="num">377</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        qenv &lt;- teal.code::eval_code(</pre>
+                      <pre class="language-r">    iv_r &lt;- reactive({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">429</td>
+                    <td class="num">378</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          qenv,</pre>
+                      <pre class="language-r">      iv &lt;- shinyvalidate::InputValidator$new()</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">430</td>
+                    <td class="num">379</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          quote(ANL &lt;- tidyr::drop_na(ANL, keep_columns)) # nolint: object_name.</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">431</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">      teal.transform::compose_and_enable_validators(iv, selector_list, validator_names = "dist_i")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">432</td>
+                    <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="never">
-                    <td class="num">433</td>
+                    <td class="num">381</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">434</td>
+                    <td class="num">382</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      qenv &lt;- teal.code::eval_code(</pre>
+                      <pre class="language-r">    iv_r_dist &lt;- reactive({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">435</td>
+                    <td class="num">383</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        qenv,</pre>
+                      <pre class="language-r">      iv &lt;- shinyvalidate::InputValidator$new()</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">436</td>
+                    <td class="num">384</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        substitute(</pre>
+                      <pre class="language-r">      teal.transform::compose_and_enable_validators(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">437</td>
+                    <td class="num">385</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          expr = pca &lt;- summary(stats::prcomp(ANL[keep_columns], center = center, scale. = scale, retx = TRUE)),</pre>
+                      <pre class="language-r">        iv, selector_list,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">438</td>
+                    <td class="num">386</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          env = list(center = center, scale = scale)</pre>
+                      <pre class="language-r">        validator_names = c("strata_i", "group_i")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">439</td>
+                    <td class="num">387</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">440</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">441</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">389</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    rule_dist_1 &lt;- function(value) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">442</td>
+                    <td class="num">390</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      qenv &lt;- teal.code::eval_code(</pre>
+                      <pre class="language-r">      if (!is.null(input$t_dist)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">443</td>
+                    <td class="num">391</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        qenv,</pre>
+                      <pre class="language-r">        switch(input$t_dist,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">444</td>
+                    <td class="num">392</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        quote({</pre>
+                      <pre class="language-r">          "normal" = if (!shinyvalidate::input_provided(value)) "mean is required",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">445</td>
+                    <td class="num">393</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          tbl_importance &lt;- dplyr::as_tibble(pca$importance, rownames = "Metric")</pre>
+                      <pre class="language-r">          "lognormal" = if (!shinyvalidate::input_provided(value)) "meanlog is required",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">446</td>
+                    <td class="num">394</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          tbl_importance</pre>
+                      <pre class="language-r">          "gamma" = {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">395</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            if (!shinyvalidate::input_provided(value)) "shape is required" else if (value &lt;= 0) "shape must be positive"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">447</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="missed">
+                    <td class="num">397</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          "unif" = NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">448</td>
+                    <td class="num">398</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">449</td>
+                    <td class="num">399</td>
                     <td class="coverage"></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="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">450</td>
+                    <td class="num">401</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.code::eval_code(</pre>
+                      <pre class="language-r">    rule_dist_2 &lt;- function(value) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">451</td>
+                    <td class="num">402</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        qenv,</pre>
+                      <pre class="language-r">      if (!is.null(input$t_dist)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">452</td>
+                    <td class="num">403</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        quote({</pre>
+                      <pre class="language-r">        switch(input$t_dist,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">453</td>
+                    <td class="num">404</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          tbl_eigenvector &lt;- dplyr::as_tibble(pca$rotation, rownames = "Variable")</pre>
+                      <pre class="language-r">          "normal" = {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">454</td>
+                    <td class="num">405</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          tbl_eigenvector</pre>
+                      <pre class="language-r">            if (!shinyvalidate::input_provided(value)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">455</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">406</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        })</pre>
+                      <pre class="language-r">              "sd is required"</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">456</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">407</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">            } else if (value &lt; 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">457</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">408</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">              "sd must be non-negative"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">458</td>
+                    <td class="num">409</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">            }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">459</td>
+                    <td class="num">410</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # plot args ----</pre>
+                      <pre class="language-r">          },</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">460</td>
+                    <td class="num">411</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    output$plot_settings &lt;- renderUI({</pre>
+                      <pre class="language-r">          "lognormal" = {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">461</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">      # reactivity triggers</pre>
+                      <pre class="language-r">            if (!shinyvalidate::input_provided(value)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">462</td>
+                    <td class="num">413</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      req(iv_r()$is_valid())</pre>
+                      <pre class="language-r">              "sdlog is required"</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">463</td>
+                    <td class="num">414</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      req(computation())</pre>
+                      <pre class="language-r">            } else if (value &lt; 0) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">464</td>
+                    <td class="num">415</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      qenv &lt;- computation()</pre>
+                      <pre class="language-r">              "sdlog must be non-negative"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">465</td>
+                    <td class="num">416</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">            }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">417</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          },</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">466</td>
+                    <td class="num">418</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ns &lt;- session$ns</pre>
+                      <pre class="language-r">          "gamma" = {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">467</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"></pre>
+                      <pre class="language-r">            if (!shinyvalidate::input_provided(value)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">468</td>
+                    <td class="num">420</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      pca &lt;- qenv[["pca"]]</pre>
+                      <pre class="language-r">              "rate is required"</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">469</td>
+                    <td class="num">421</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      chcs_pcs &lt;- colnames(pca$rotation)</pre>
+                      <pre class="language-r">            } else if (value &lt;= 0) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">470</td>
+                    <td class="num">422</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      chcs_vars &lt;- qenv[["keep_columns"]]</pre>
+                      <pre class="language-r">              "rate must be positive"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">471</td>
+                    <td class="num">423</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">472</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">424</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="missed">
-                    <td class="num">473</td>
+                    <td class="num">425</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        conditionalPanel(</pre>
+                      <pre class="language-r">          "unif" = NULL</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">474</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">426</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          condition = sprintf(</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">475</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">427</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            "input['%s'] == 'Biplot' || input['%s'] == 'Circle plot'",</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">476</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">428</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ns("plot_type"), ns("plot_type")</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">477</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">    rule_dist &lt;- function(value) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">478</td>
+                    <td class="num">430</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          list(</pre>
+                      <pre class="language-r">      if (isTRUE(input$tabs == "QQplot" ||</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">479</td>
+                    <td class="num">431</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            teal.widgets::optionalSelectInput(ns("x_axis"), "X axis", choices = chcs_pcs, selected = chcs_pcs[1]),</pre>
+                      <pre class="language-r">        input$dist_tests %in% c(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">480</td>
+                    <td class="num">432</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            teal.widgets::optionalSelectInput(ns("y_axis"), "Y axis", choices = chcs_pcs, selected = chcs_pcs[2]),</pre>
+                      <pre class="language-r">          "Kolmogorov-Smirnov (one-sample)",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">481</td>
+                    <td class="num">433</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            teal.widgets::optionalSelectInput(</pre>
+                      <pre class="language-r">          "Anderson-Darling (one-sample)",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">482</td>
+                    <td class="num">434</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              ns("variables"), "Original coordinates",</pre>
+                      <pre class="language-r">          "Cramer-von Mises (one-sample)"</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>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">483</td>
+                    <td class="num">436</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              choices = chcs_vars, selected = chcs_vars,</pre>
+                      <pre class="language-r">        if (!shinyvalidate::input_provided(value)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">484</td>
+                    <td class="num">437</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              multiple = TRUE</pre>
+                      <pre class="language-r">          "Please select the theoretical distribution."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">485</td>
+                    <td class="num">438</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">486</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">487</td>
+                    <td class="num">440</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">488</td>
+                    <td class="num">441</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        conditionalPanel(</pre>
+                      <pre class="language-r">    iv_dist &lt;- shinyvalidate::InputValidator$new()</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">489</td>
+                    <td class="num">442</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          condition = sprintf("input['%s'] == 'Elbow plot'", ns("plot_type")),</pre>
+                      <pre class="language-r">    iv_dist$add_rule("t_dist", rule_dist)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">490</td>
+                    <td class="num">443</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          helpText("No plot specific settings available.")</pre>
+                      <pre class="language-r">    iv_dist$add_rule("dist_param1", rule_dist_1)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">491</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">444</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ),</pre>
+                      <pre class="language-r">    iv_dist$add_rule("dist_param2", rule_dist_2)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">492</td>
+                    <td class="num">445</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        conditionalPanel(</pre>
+                      <pre class="language-r">    iv_dist$enable()</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">493</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">446</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          condition = paste0("input['", ns("plot_type"), "'] == 'Eigenvector plot'"),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">494</td>
+                    <td class="num">447</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          teal.widgets::optionalSelectInput(ns("pc"), "PC", choices = chcs_pcs, selected = chcs_pcs[1])</pre>
+                      <pre class="language-r">    anl_merged_input &lt;- teal.transform::merge_expression_srv(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">495</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">      selector_list = selector_list,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">496</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">449</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">      datasets = data</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">497</td>
+                    <td class="num">450</td>
                     <td class="coverage"></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">451</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">499</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">452</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # plot elbow ----</pre>
+                      <pre class="language-r">    anl_merged_q &lt;- reactive({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">500</td>
+                    <td class="num">453</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    plot_elbow &lt;- function(base_q) {</pre>
+                      <pre class="language-r">      req(anl_merged_input())</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">501</td>
+                    <td class="num">454</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ggtheme &lt;- input$ggtheme</pre>
+                      <pre class="language-r">      data() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">502</td>
+                    <td class="num">455</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      rotate_xaxis_labels &lt;- input$rotate_xaxis_labels</pre>
+                      <pre class="language-r">        teal.code::eval_code(as.expression(anl_merged_input()$expr))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">503</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">      font_size &lt;- input$font_size</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">504</td>
+                    <td class="num">457</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">505</td>
+                    <td class="num">458</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      angle_value &lt;- ifelse(isTRUE(rotate_xaxis_labels), 45, 0)</pre>
+                      <pre class="language-r">    merged &lt;- list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">506</td>
+                    <td class="num">459</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      hjust_value &lt;- ifelse(isTRUE(rotate_xaxis_labels), 1, 0.5)</pre>
+                      <pre class="language-r">      anl_input_r = anl_merged_input,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">460</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      anl_q_r = anl_merged_q</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">507</td>
+                    <td class="num">461</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">462</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">508</td>
+                    <td class="num">463</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dev_ggplot2_args &lt;- teal.widgets::ggplot2_args(</pre>
+                      <pre class="language-r">    output$scales_types_ui &lt;- renderUI({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">509</td>
+                    <td class="num">464</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        labs = list(x = "Principal component", y = "Proportion of variance explained", color = "", fill = "Legend"),</pre>
+                      <pre class="language-r">      if ("group_i" %in% names(selector_list()) &amp;&amp; length(selector_list()$group_i()$filters[[1]]$selected) &gt; 0) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">510</td>
+                    <td class="num">465</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        theme = list(</pre>
+                      <pre class="language-r">        shinyWidgets::prettyRadioButtons(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">511</td>
+                    <td class="num">466</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          legend.position = "right",</pre>
+                      <pre class="language-r">          session$ns("scales_type"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">512</td>
+                    <td class="num">467</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          legend.spacing.y = quote(grid::unit(-5, "pt")),</pre>
+                      <pre class="language-r">          label = "Scales:",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">513</td>
+                    <td class="num">468</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          legend.title = quote(element_text(vjust = 25)),</pre>
+                      <pre class="language-r">          choices = c("Fixed", "Free"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">514</td>
+                    <td class="num">469</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          axis.text.x = substitute(</pre>
+                      <pre class="language-r">          selected = "Fixed",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">515</td>
+                    <td class="num">470</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            element_text(angle = angle_value, hjust = hjust_value),</pre>
+                      <pre class="language-r">          bigger = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">516</td>
+                    <td class="num">471</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            list(angle_value = angle_value, hjust_value = hjust_value)</pre>
+                      <pre class="language-r">          inline = TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">517</td>
+                    <td class="num">472</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ),</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">518</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          text = substitute(element_text(size = font_size), list(font_size = font_size))</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">519</td>
+                    <td class="num">473</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">520</td>
+                    <td class="num">474</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">521</td>
+                    <td class="num">475</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">522</td>
+                    <td class="num">476</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      parsed_ggplot2_args &lt;- teal.widgets::parse_ggplot2_args(</pre>
+                      <pre class="language-r">    observeEvent(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">523</td>
+                    <td class="num">477</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        teal.widgets::resolve_ggplot2_args(</pre>
+                      <pre class="language-r">      eventExpr = list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">524</td>
+                    <td class="num">478</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          user_plot = ggplot2_args[["Elbow plot"]],</pre>
+                      <pre class="language-r">        input$t_dist,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">525</td>
+                    <td class="num">479</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          user_default = ggplot2_args$default,</pre>
+                      <pre class="language-r">        input$params_reset,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">526</td>
+                    <td class="num">480</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          module_plot = dev_ggplot2_args</pre>
+                      <pre class="language-r">        selector_list()$dist_i()$select</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">527</td>
+                    <td class="num">481</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">528</td>
+                    <td class="num">482</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ggtheme = ggtheme</pre>
+                      <pre class="language-r">      handlerExpr = {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">529</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">483</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">        if (length(input$t_dist) != 0) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">484</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          dist_var2 &lt;- as.vector(merged$anl_input_r()$columns_source$dist_i)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">530</td>
+                    <td class="num">485</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">531</td>
+                    <td class="num">486</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.code::eval_code(</pre>
+                      <pre class="language-r">          get_dist_params &lt;- function(x, dist) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">532</td>
+                    <td class="num">487</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        base_q,</pre>
+                      <pre class="language-r">            if (dist == "unif") {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">533</td>
+                    <td class="num">488</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        substitute(</pre>
+                      <pre class="language-r">              res &lt;- as.list(range(x))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">534</td>
+                    <td class="num">489</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          expr = {</pre>
+                      <pre class="language-r">              names(res) &lt;- c("min", "max")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">535</td>
+                    <td class="num">490</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            elb_dat &lt;- pca$importance[c("Proportion of Variance", "Cumulative Proportion"), ] %&gt;%</pre>
+                      <pre class="language-r">              return(res)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">536</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">491</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              dplyr::as_tibble(rownames = "metric") %&gt;%</pre>
+                      <pre class="language-r">            }</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">537</td>
+                    <td class="num">492</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              tidyr::gather("component", "value", -metric) %&gt;%</pre>
+                      <pre class="language-r">            tryCatch(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">538</td>
+                    <td class="num">493</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              dplyr::mutate(</pre>
+                      <pre class="language-r">              as.list(MASS::fitdistr(x, densfun = dist)$estimate),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">539</td>
+                    <td class="num">494</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                component = factor(component, levels = unique(stringr::str_sort(component, numeric = TRUE)))</pre>
+                      <pre class="language-r">              error = function(e) list(param1 = NA, param2 = NA)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">540</td>
+                    <td class="num">495</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              )</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">541</td>
+                    <td class="num">496</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">497</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">542</td>
+                    <td class="num">498</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            cols &lt;- c(getOption("ggplot2.discrete.colour"), c("lightblue", "darkred", "black"))[1:3]</pre>
+                      <pre class="language-r">          ANL &lt;- merged$anl_q_r()[[as.character(dist_var[[1]]$dataname)]] # nolint: object_name.</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">543</td>
+                    <td class="num">499</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            g &lt;- ggplot(mapping = aes_string(x = "component", y = "value")) +</pre>
+                      <pre class="language-r">          params &lt;- get_dist_params(as.numeric(stats::na.omit(ANL[[dist_var2]])), input$t_dist)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">544</td>
+                    <td class="num">500</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              geom_bar(</pre>
+                      <pre class="language-r">          params_vec &lt;- round(unname(unlist(params)), 2)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">545</td>
+                    <td class="num">501</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                aes(fill = "Single variance"),</pre>
+                      <pre class="language-r">          params_names &lt;- names(params)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">546</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">502</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                data = dplyr::filter(elb_dat, metric == "Proportion of Variance"),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">547</td>
+                    <td class="num">503</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                color = "black",</pre>
+                      <pre class="language-r">          updateNumericInput(session, "dist_param1", label = params_names[1], value = params_vec[1])</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">548</td>
+                    <td class="num">504</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                stat = "identity"</pre>
+                      <pre class="language-r">          updateNumericInput(session, "dist_param2", label = params_names[2], value = params_vec[2])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">549</td>
+                    <td class="num">505</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">550</td>
+                    <td class="num">506</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              geom_point(</pre>
+                      <pre class="language-r">          updateNumericInput(session, "dist_param1", label = "param1", value = NA)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">551</td>
+                    <td class="num">507</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                aes(color = "Cumulative variance"),</pre>
+                      <pre class="language-r">          updateNumericInput(session, "dist_param2", label = "param2", value = NA)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">552</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">508</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                data = dplyr::filter(elb_dat, metric == "Cumulative Proportion")</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">553</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="missed">
-                    <td class="num">554</td>
+                    <td class="num">510</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              geom_line(</pre>
+                      <pre class="language-r">      ignoreInit = TRUE</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">511</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">512</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">555</td>
+                    <td class="num">513</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                aes(group = 1, color = "Cumulative variance"),</pre>
+                      <pre class="language-r">    merge_vars &lt;- reactive({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">556</td>
+                    <td class="num">514</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                data = dplyr::filter(elb_dat, metric == "Cumulative Proportion")</pre>
+                      <pre class="language-r">      teal::validate_inputs(iv_r())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">557</td>
+                    <td class="num">515</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">558</td>
+                    <td class="num">516</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              labs +</pre>
+                      <pre class="language-r">      dist_var &lt;- as.vector(merged$anl_input_r()$columns_source$dist_i)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">559</td>
+                    <td class="num">517</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              scale_color_manual(values = c("Cumulative variance" = cols[2], "Single variance" = cols[3])) +</pre>
+                      <pre class="language-r">      s_var &lt;- as.vector(merged$anl_input_r()$columns_source$strata_i)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">560</td>
+                    <td class="num">518</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              scale_fill_manual(values = c("Cumulative variance" = cols[2], "Single variance" = cols[1])) +</pre>
+                      <pre class="language-r">      g_var &lt;- as.vector(merged$anl_input_r()$columns_source$group_i)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">519</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">561</td>
+                    <td class="num">520</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              ggthemes +</pre>
+                      <pre class="language-r">      dist_var_name &lt;- if (length(dist_var)) as.name(dist_var) else NULL</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">562</td>
+                    <td class="num">521</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              themes</pre>
+                      <pre class="language-r">      s_var_name &lt;- if (length(s_var)) as.name(s_var) else NULL</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">522</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      g_var_name &lt;- if (length(g_var)) as.name(g_var) else NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">563</td>
+                    <td class="num">523</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">564</td>
+                    <td class="num">524</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            print(g)</pre>
+                      <pre class="language-r">      list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">565</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">        dist_var = dist_var,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">566</td>
+                    <td class="num">526</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          env = list(</pre>
+                      <pre class="language-r">        s_var = s_var,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">567</td>
+                    <td class="num">527</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ggthemes = parsed_ggplot2_args$ggtheme,</pre>
+                      <pre class="language-r">        g_var = g_var,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">568</td>
+                    <td class="num">528</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            labs = parsed_ggplot2_args$labs,</pre>
+                      <pre class="language-r">        dist_var_name = dist_var_name,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">569</td>
+                    <td class="num">529</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            themes = parsed_ggplot2_args$theme</pre>
+                      <pre class="language-r">        s_var_name = s_var_name,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">570</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">530</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">        g_var_name = g_var_name</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">571</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">572</td>
+                    <td class="num">532</td>
                     <td class="coverage"></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">533</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">574</td>
+                    <td class="num">534</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    # common qenv</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">535</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    common_q &lt;- reactive({</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">575</td>
+                    <td class="num">536</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # plot circle ----</pre>
+                      <pre class="language-r">      # Create a private stack for this function only.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">576</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">537</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    plot_circle &lt;- function(base_q) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">577</td>
+                    <td class="num">538</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      x_axis &lt;- input$x_axis</pre>
+                      <pre class="language-r">      ANL &lt;- merged$anl_q_r()[["ANL"]] # nolint: object_name.</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">578</td>
+                    <td class="num">539</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      y_axis &lt;- input$y_axis</pre>
+                      <pre class="language-r">      dist_var &lt;- merge_vars()$dist_var</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">579</td>
+                    <td class="num">540</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      variables &lt;- input$variables</pre>
+                      <pre class="language-r">      s_var &lt;- merge_vars()$s_var</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">580</td>
+                    <td class="num">541</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ggtheme &lt;- input$ggtheme</pre>
+                      <pre class="language-r">      g_var &lt;- merge_vars()$g_var</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">581</td>
+                    <td class="num">542</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">582</td>
+                    <td class="num">543</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      rotate_xaxis_labels &lt;- input$rotate_xaxis_labels</pre>
+                      <pre class="language-r">      dist_var_name &lt;- merge_vars()$dist_var_name</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">583</td>
+                    <td class="num">544</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      font_size &lt;- input$font_size</pre>
+                      <pre class="language-r">      s_var_name &lt;- merge_vars()$s_var_name</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">545</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      g_var_name &lt;- merge_vars()$g_var_name</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">584</td>
+                    <td class="num">546</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">585</td>
+                    <td class="num">547</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      angle &lt;- ifelse(isTRUE(rotate_xaxis_labels), 45, 0)</pre>
+                      <pre class="language-r">      roundn &lt;- input$roundn</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">586</td>
+                    <td class="num">548</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      hjust &lt;- ifelse(isTRUE(rotate_xaxis_labels), 1, 0.5)</pre>
+                      <pre class="language-r">      dist_param1 &lt;- input$dist_param1</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">587</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"></pre>
+                      <pre class="language-r">      dist_param2 &lt;- input$dist_param2</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">550</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      # isolated as dist_param1/dist_param2 already triggered the reactivity</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">588</td>
+                    <td class="num">551</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dev_ggplot2_args &lt;- teal.widgets::ggplot2_args(</pre>
+                      <pre class="language-r">      t_dist &lt;- isolate(input$t_dist)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">552</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">589</td>
+                    <td class="num">553</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        theme = list(</pre>
+                      <pre class="language-r">      qenv &lt;- merged$anl_q_r()</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">554</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">590</td>
+                    <td class="num">555</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          text = substitute(element_text(size = font_size), list(font_size = font_size)),</pre>
+                      <pre class="language-r">      if (length(g_var) &gt; 0) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">591</td>
+                    <td class="num">556</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          axis.text.x = substitute(</pre>
+                      <pre class="language-r">        validate(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">592</td>
+                    <td class="num">557</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            element_text(angle = angle_val, hjust = hjust_val),</pre>
+                      <pre class="language-r">          need(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">593</td>
+                    <td class="num">558</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            list(angle_val = angle, hjust_val = hjust)</pre>
+                      <pre class="language-r">            inherits(ANL[[g_var]], c("integer", "factor", "character")),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">594</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">559</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">            "Group by variable must be `factor`, `character`, or `integer`"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">595</td>
+                    <td class="num">560</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">596</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="never">
-                    <td class="num">597</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">        qenv &lt;- teal.code::eval_code(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">598</td>
+                    <td class="num">563</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      all_ggplot2_args &lt;- teal.widgets::resolve_ggplot2_args(</pre>
+                      <pre class="language-r">          qenv,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">599</td>
+                    <td class="num">564</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        user_plot = ggplot2_args[["Circle plot"]],</pre>
+                      <pre class="language-r">          substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">600</td>
+                    <td class="num">565</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        user_default = ggplot2_args$default,</pre>
+                      <pre class="language-r">            expr = ANL[[g_var]] &lt;- forcats::fct_na_value_to_level(as.factor(ANL[[g_var]]), "NA"), # nolint: object_name.</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">601</td>
+                    <td class="num">566</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        module_plot = dev_ggplot2_args</pre>
+                      <pre class="language-r">            env = list(g_var = g_var)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">602</td>
+                    <td class="num">567</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">603</td>
+                    <td class="num">568</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">569</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">570</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">604</td>
+                    <td class="num">571</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      parsed_ggplot2_args &lt;- teal.widgets::parse_ggplot2_args(</pre>
+                      <pre class="language-r">      if (length(s_var) &gt; 0) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">605</td>
+                    <td class="num">572</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        all_ggplot2_args,</pre>
+                      <pre class="language-r">        validate(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">606</td>
+                    <td class="num">573</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ggtheme = ggtheme</pre>
+                      <pre class="language-r">          need(</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">574</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            inherits(ANL[[s_var]], c("integer", "factor", "character")),</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">575</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            "Stratify by variable must be `factor`, `character`, or `integer`"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">607</td>
+                    <td class="num">576</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">608</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="missed">
-                    <td class="num">609</td>
+                    <td class="num">578</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.code::eval_code(</pre>
+                      <pre class="language-r">        qenv &lt;- teal.code::eval_code(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">610</td>
+                    <td class="num">579</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        base_q,</pre>
+                      <pre class="language-r">          qenv,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">611</td>
+                    <td class="num">580</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        substitute(</pre>
+                      <pre class="language-r">          substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">612</td>
+                    <td class="num">581</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          expr = {</pre>
+                      <pre class="language-r">            expr = ANL[[s_var]] &lt;- forcats::fct_na_value_to_level(as.factor(ANL[[s_var]]), "NA"), # nolint: object_name.</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">613</td>
+                    <td class="num">582</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            pca_rot &lt;- pca$rotation[, c(x_axis, y_axis)] %&gt;%</pre>
+                      <pre class="language-r">            env = list(s_var = s_var)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">614</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">583</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              dplyr::as_tibble(rownames = "label") %&gt;%</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">615</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">584</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              dplyr::filter(label %in% variables)</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">616</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">617</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">            circle_data &lt;- data.frame(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">618</td>
+                    <td class="num">587</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              x = cos(seq(0, 2 * pi, length.out = 100)),</pre>
+                      <pre class="language-r">      validate(need(is.numeric(ANL[[dist_var]]), "Please select a numeric variable."))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">619</td>
+                    <td class="num">588</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              y = sin(seq(0, 2 * pi, length.out = 100))</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">620</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">      teal::validate_has_data(ANL, 1, complete = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">621</td>
+                    <td class="num">589</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">622</td>
+                    <td class="num">590</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            g &lt;- ggplot(pca_rot) +</pre>
+                      <pre class="language-r">      if (length(t_dist) != 0) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">623</td>
+                    <td class="num">591</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              geom_point(aes_string(x = x_axis, y = y_axis)) +</pre>
+                      <pre class="language-r">        map_distr_nams &lt;- list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">624</td>
+                    <td class="num">592</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              geom_label(</pre>
+                      <pre class="language-r">          normal = c("mean", "sd"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">625</td>
+                    <td class="num">593</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                aes_string(x = x_axis, y = y_axis, label = "label"),</pre>
+                      <pre class="language-r">          lognormal = c("meanlog", "sdlog"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">626</td>
+                    <td class="num">594</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                nudge_x = 0.1, nudge_y = 0.05,</pre>
+                      <pre class="language-r">          gamma = c("shape", "rate"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">627</td>
+                    <td class="num">595</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                fontface = "bold"</pre>
+                      <pre class="language-r">          unif = c("min", "max")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">628</td>
+                    <td class="num">596</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">629</td>
+                    <td class="num">597</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              geom_path(aes(x, y, group = 1), data = circle_data) +</pre>
+                      <pre class="language-r">        params_names_raw &lt;- map_distr_nams[[t_dist]]</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">630</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">              geom_point(aes(x = x, y = y), data = data.frame(x = 0, y = 0), shape = "x", size = 5) +</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">631</td>
+                    <td class="num">599</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              labs +</pre>
+                      <pre class="language-r">        qenv &lt;- teal.code::eval_code(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">632</td>
+                    <td class="num">600</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              ggthemes +</pre>
+                      <pre class="language-r">          qenv,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">633</td>
+                    <td class="num">601</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              themes</pre>
+                      <pre class="language-r">          substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">634</td>
+                    <td class="num">602</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            print(g)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">635</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          },</pre>
+                      <pre class="language-r">            expr = {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">636</td>
+                    <td class="num">603</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          env = list(</pre>
+                      <pre class="language-r">              params &lt;- as.list(c(dist_param1, dist_param2))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">637</td>
+                    <td class="num">604</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            x_axis = x_axis,</pre>
+                      <pre class="language-r">              names(params) &lt;- params_names_raw</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">638</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">            y_axis = y_axis,</pre>
+                      <pre class="language-r">            },</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">639</td>
+                    <td class="num">606</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            variables = variables,</pre>
+                      <pre class="language-r">            env = list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">640</td>
+                    <td class="num">607</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ggthemes = parsed_ggplot2_args$ggtheme,</pre>
+                      <pre class="language-r">              dist_param1 = dist_param1,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">641</td>
+                    <td class="num">608</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            labs = `if`(is.null(parsed_ggplot2_args$labs), quote(labs()), parsed_ggplot2_args$labs),</pre>
+                      <pre class="language-r">              dist_param2 = dist_param2,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">642</td>
+                    <td class="num">609</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            themes = parsed_ggplot2_args$theme</pre>
+                      <pre class="language-r">              params_names_raw = params_names_raw</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">643</td>
+                    <td class="num">610</td>
                     <td class="coverage"></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="num">611</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">645</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">646</td>
+                    <td class="num">613</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">647</td>
+                    <td class="num">614</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">648</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    # plot biplot ----</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">649</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    plot_biplot &lt;- function(base_q) {</pre>
-                    </td>
-                  </tr>
                   <tr class="missed">
-                    <td class="num">650</td>
+                    <td class="num">615</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      qenv &lt;- base_q</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">651</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      if (length(s_var) == 0 &amp;&amp; length(g_var) == 0) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">652</td>
+                    <td class="num">616</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ANL &lt;- qenv[["ANL"]] # nolint: object_name.</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">653</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        qenv &lt;- teal.code::eval_code(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">654</td>
+                    <td class="num">617</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      resp_col &lt;- as.character(merged$anl_input_r()$columns_source$response)</pre>
+                      <pre class="language-r">          qenv,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">655</td>
+                    <td class="num">618</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dat_cols &lt;- as.character(merged$anl_input_r()$columns_source$dat)</pre>
+                      <pre class="language-r">          substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">656</td>
+                    <td class="num">619</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      x_axis &lt;- input$x_axis</pre>
+                      <pre class="language-r">            expr = {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">657</td>
+                    <td class="num">620</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      y_axis &lt;- input$y_axis</pre>
+                      <pre class="language-r">              summary_table &lt;- ANL %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">658</td>
+                    <td class="num">621</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      variables &lt;- input$variables</pre>
+                      <pre class="language-r">                dplyr::summarise(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">659</td>
+                    <td class="num">622</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      pca &lt;- qenv[["pca"]]</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">660</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                  min = round(min(dist_var_name, na.rm = TRUE), roundn),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">661</td>
+                    <td class="num">623</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ggtheme &lt;- input$ggtheme</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">662</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                  median = round(stats::median(dist_var_name, na.rm = TRUE), roundn),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">663</td>
+                    <td class="num">624</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      rotate_xaxis_labels &lt;- input$rotate_xaxis_labels</pre>
+                      <pre class="language-r">                  mean = round(mean(dist_var_name, na.rm = TRUE), roundn),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">664</td>
+                    <td class="num">625</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      alpha &lt;- input$alpha</pre>
+                      <pre class="language-r">                  max = round(max(dist_var_name, na.rm = TRUE), roundn),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">665</td>
+                    <td class="num">626</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      size &lt;- input$size</pre>
+                      <pre class="language-r">                  sd = round(stats::sd(dist_var_name, na.rm = TRUE), roundn),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">666</td>
+                    <td class="num">627</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      font_size &lt;- input$font_size</pre>
+                      <pre class="language-r">                  count = dplyr::n()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">667</td>
+                    <td class="num">628</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">668</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      qenv &lt;- teal.code::eval_code(</pre>
+                      <pre class="language-r">                )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">669</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">629</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        qenv,</pre>
+                      <pre class="language-r">            },</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">670</td>
+                    <td class="num">630</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        substitute(</pre>
+                      <pre class="language-r">            env = list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">671</td>
+                    <td class="num">631</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          expr = pca_rot &lt;- dplyr::as_tibble(pca$x[, c(x_axis, y_axis)]),</pre>
+                      <pre class="language-r">              dist_var_name = as.name(dist_var),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">672</td>
+                    <td class="num">632</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          env = list(x_axis = x_axis, y_axis = y_axis)</pre>
+                      <pre class="language-r">              roundn = roundn</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">673</td>
+                    <td class="num">633</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">674</td>
+                    <td class="num">634</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">675</td>
+                    <td class="num">635</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">676</td>
+                    <td class="num">636</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # rot_vars = data frame that displays arrows in the plot, need to be scaled to data</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">677</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      if (!is.null(input$variables)) {</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">678</td>
+                    <td class="num">637</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">        qenv &lt;- teal.code::eval_code(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">679</td>
+                    <td class="num">638</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">          qenv,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">680</td>
+                    <td class="num">639</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">          substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">681</td>
+                    <td class="num">640</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">            expr = {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">682</td>
+                    <td class="num">641</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              r &lt;- sqrt(qchisq(0.69, df = 2)) * prod(colMeans(pca_rot ^ 2)) ^ (1 / 4) # styler: off</pre>
+                      <pre class="language-r">              strata_vars &lt;- strata_vars_raw</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">683</td>
+                    <td class="num">642</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              v_scale &lt;- rowSums(pca$rotation ^ 2) # styler: off</pre>
+                      <pre class="language-r">              summary_table &lt;- ANL %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">684</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">643</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                dplyr::group_by_at(dplyr::vars(dplyr::any_of(strata_vars))) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">685</td>
+                    <td class="num">644</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              rot_vars &lt;- pca$rotation[, c(x_axis, y_axis)] %&gt;%</pre>
+                      <pre class="language-r">                dplyr::summarise(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">686</td>
+                    <td class="num">645</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                dplyr::as_tibble(rownames = "label") %&gt;%</pre>
+                      <pre class="language-r">                  min = round(min(dist_var_name, na.rm = TRUE), roundn),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">687</td>
+                    <td class="num">646</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                dplyr::mutate_at(vars(c(x_axis, y_axis)), function(x) r * x / sqrt(max(v_scale)))</pre>
+                      <pre class="language-r">                  median = round(stats::median(dist_var_name, na.rm = TRUE), roundn),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">688</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">647</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            },</pre>
+                      <pre class="language-r">                  mean = round(mean(dist_var_name, na.rm = TRUE), roundn),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">689</td>
+                    <td class="num">648</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            env = list(x_axis = x_axis, y_axis = y_axis)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">690</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">691</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        ) %&gt;%</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">692</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          teal.code::eval_code(</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">693</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            if (is.logical(pca$center) &amp;&amp; !pca$center) {</pre>
+                      <pre class="language-r">                  max = round(max(dist_var_name, na.rm = TRUE), roundn),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">694</td>
+                    <td class="num">649</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              substitute(</pre>
+                      <pre class="language-r">                  sd = round(stats::sd(dist_var_name, na.rm = TRUE), roundn),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">695</td>
+                    <td class="num">650</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                expr = {</pre>
+                      <pre class="language-r">                  count = dplyr::n()</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">696</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">651</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  rot_vars &lt;- rot_vars %&gt;%</pre>
+                      <pre class="language-r">                )</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">697</td>
+                    <td class="num">652</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    tibble::column_to_rownames("label") %&gt;%</pre>
+                      <pre class="language-r">              summary_table # used to display table when running show-r-code code</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">698</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">653</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    sweep(1, apply(ANL[keep_columns], 2, mean, na.rm = TRUE)) %&gt;%</pre>
+                      <pre class="language-r">            },</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">699</td>
+                    <td class="num">654</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    tibble::rownames_to_column("label") %&gt;%</pre>
+                      <pre class="language-r">            env = list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">700</td>
+                    <td class="num">655</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    dplyr::mutate(</pre>
+                      <pre class="language-r">              dist_var_name = dist_var_name,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">701</td>
+                    <td class="num">656</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                      xstart = mean(pca$x[, x_axis], na.rm = TRUE),</pre>
+                      <pre class="language-r">              strata_vars_raw = c(g_var, s_var),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">702</td>
+                    <td class="num">657</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                      ystart = mean(pca$x[, y_axis], na.rm = TRUE)</pre>
+                      <pre class="language-r">              roundn = roundn</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">703</td>
+                    <td class="num">658</td>
                     <td class="coverage"></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">659</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                },</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">705</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                env = list(x_axis = x_axis, y_axis = y_axis)</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">706</td>
+                    <td class="num">660</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              )</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">707</td>
+                    <td class="num">661</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">708</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">662</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              quote(rot_vars &lt;- rot_vars %&gt;% dplyr::mutate(xstart = 0, ystart = 0))</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">709</td>
+                    <td class="num">663</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">710</td>
+                    <td class="num">664</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ) %&gt;%</pre>
+                      <pre class="language-r">    # distplot qenv ----</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">711</td>
+                    <td class="num">665</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          teal.code::eval_code(</pre>
+                      <pre class="language-r">    dist_q &lt;- eventReactive(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">712</td>
+                    <td class="num">666</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            substitute(</pre>
+                      <pre class="language-r">      eventExpr = {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">713</td>
+                    <td class="num">667</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              expr = rot_vars &lt;- rot_vars %&gt;% dplyr::filter(label %in% variables),</pre>
+                      <pre class="language-r">        common_q()</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">714</td>
+                    <td class="num">668</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              env = list(variables = variables)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">715</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">        input$scales_type</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">716</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">669</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">        input$main_type</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">717</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">670</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">        input$bins</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">718</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">        input$add_dens</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">719</td>
+                    <td class="num">672</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      pca_plot_biplot_expr &lt;- list(quote(ggplot()))</pre>
+                      <pre class="language-r">        is.null(input$ggtheme)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">720</td>
+                    <td class="num">673</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">721</td>
+                    <td class="num">674</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (length(resp_col) == 0) {</pre>
+                      <pre class="language-r">      valueExpr = {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">722</td>
+                    <td class="num">675</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        pca_plot_biplot_expr &lt;- c(</pre>
+                      <pre class="language-r">        dist_var &lt;- merge_vars()$dist_var</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">723</td>
+                    <td class="num">676</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          pca_plot_biplot_expr,</pre>
+                      <pre class="language-r">        s_var &lt;- merge_vars()$s_var</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">724</td>
+                    <td class="num">677</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          substitute(</pre>
+                      <pre class="language-r">        g_var &lt;- merge_vars()$g_var</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">725</td>
+                    <td class="num">678</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            geom_point(aes_string(x = x_axis, y = y_axis), data = pca_rot, alpha = alpha, size = size),</pre>
+                      <pre class="language-r">        dist_var_name &lt;- merge_vars()$dist_var_name</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">726</td>
+                    <td class="num">679</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            list(x_axis = input$x_axis, y_axis = input$y_axis, alpha = input$alpha, size = input$size)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">727</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">        s_var_name &lt;- merge_vars()$s_var_name</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">728</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">680</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">        g_var_name &lt;- merge_vars()$g_var_name</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">729</td>
+                    <td class="num">681</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        dev_labs &lt;- list()</pre>
+                      <pre class="language-r">        t_dist &lt;- input$t_dist</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">730</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">682</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">        dist_param1 &lt;- input$dist_param1</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">731</td>
+                    <td class="num">683</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        rp_keys &lt;- setdiff(colnames(ANL), as.character(unlist(merged$anl_input_r()$columns_source)))</pre>
+                      <pre class="language-r">        dist_param2 &lt;- input$dist_param2</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">732</td>
+                    <td class="num">684</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">733</td>
+                    <td class="num">685</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        response &lt;- ANL[[resp_col]]</pre>
+                      <pre class="language-r">        scales_type &lt;- input$scales_type</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">734</td>
+                    <td class="num">686</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">735</td>
+                    <td class="num">687</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        aes_biplot &lt;- substitute(</pre>
+                      <pre class="language-r">        ndensity &lt;- 512</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">736</td>
+                    <td class="num">688</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          aes_string(x = x_axis, y = y_axis, color = "response"),</pre>
+                      <pre class="language-r">        main_type_var &lt;- input$main_type</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">737</td>
+                    <td class="num">689</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          env = list(x_axis = x_axis, y_axis = y_axis)</pre>
+                      <pre class="language-r">        bins_var &lt;- input$bins</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">738</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">690</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">        add_dens_var &lt;- input$add_dens</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">691</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        ggtheme &lt;- input$ggtheme</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">739</td>
+                    <td class="num">692</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">740</td>
+                    <td class="num">693</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        qenv &lt;- teal.code::eval_code(</pre>
+                      <pre class="language-r">        teal::validate_inputs(iv_dist)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">741</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">694</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          qenv,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">742</td>
+                    <td class="num">695</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          substitute(response &lt;- ANL[[resp_col]], env = list(resp_col = resp_col))</pre>
+                      <pre class="language-r">        qenv &lt;- common_q()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">743</td>
+                    <td class="num">696</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">697</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        m_type &lt;- if (main_type_var == "Density") "density" else "count"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">744</td>
+                    <td class="num">698</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">745</td>
+                    <td class="num">699</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        dev_labs &lt;- list(color = varname_w_label(resp_col, ANL))</pre>
+                      <pre class="language-r">        plot_call &lt;- if (length(s_var) == 0 &amp;&amp; length(g_var) == 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">746</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">700</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">747</td>
+                    <td class="num">701</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        scales_biplot &lt;-</pre>
+                      <pre class="language-r">            expr = ggplot(ANL, aes(dist_var_name)) +</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">748</td>
+                    <td class="num">702</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          if (is.character(response) || is.factor(response) || (is.numeric(response) &amp;&amp; length(unique(response)) &lt;= 6)) { # nolint: line_length.</pre>
+                      <pre class="language-r">              geom_histogram(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">749</td>
+                    <td class="num">703</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            qenv &lt;- teal.code::eval_code(</pre>
+                      <pre class="language-r">                position = "identity", aes(y = after_stat(m_type)), bins = bins_var, alpha = 0.3</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">704</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">              ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">750</td>
+                    <td class="num">705</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              qenv,</pre>
+                      <pre class="language-r">            env = list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">751</td>
+                    <td class="num">706</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              quote(pca_rot$response &lt;- as.factor(response))</pre>
+                      <pre class="language-r">              m_type = as.name(m_type), bins_var = bins_var, dist_var_name = as.name(dist_var)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">752</td>
+                    <td class="num">707</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">            )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">753</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">708</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            quote(scale_color_brewer(palette = "Dark2"))</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">754</td>
+                    <td class="num">709</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          } else if (inherits(response, "Date")) {</pre>
+                      <pre class="language-r">        } else if (length(s_var) != 0 &amp;&amp; length(g_var) == 0) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">755</td>
+                    <td class="num">710</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            qenv &lt;- teal.code::eval_code(</pre>
+                      <pre class="language-r">          substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">756</td>
+                    <td class="num">711</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              qenv,</pre>
+                      <pre class="language-r">            expr = ggplot(ANL, aes(dist_var_name, col = s_var_name)) +</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">757</td>
+                    <td class="num">712</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              quote(pca_rot$response &lt;- numeric(response))</pre>
+                      <pre class="language-r">              geom_histogram(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">758</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">713</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">                position = "identity", aes(y = after_stat(m_type), fill = s_var), bins = bins_var, alpha = 0.3</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">759</td>
+                    <td class="num">714</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">760</td>
+                    <td class="num">715</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            quote(</pre>
+                      <pre class="language-r">            env = list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">761</td>
+                    <td class="num">716</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              scale_color_gradient(</pre>
+                      <pre class="language-r">              m_type = as.name(m_type),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">762</td>
+                    <td class="num">717</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                low = c(getOption("ggplot2.discrete.colour")[2], "darkred")[1],</pre>
+                      <pre class="language-r">              bins_var = bins_var,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">763</td>
+                    <td class="num">718</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                high = c(getOption("ggplot2.discrete.colour"), "lightblue")[1],</pre>
+                      <pre class="language-r">              dist_var_name = dist_var_name,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">764</td>
+                    <td class="num">719</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                labels = function(x) as.Date(x, origin = "1970-01-01")</pre>
+                      <pre class="language-r">              s_var = as.name(s_var),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">765</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">720</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              )</pre>
+                      <pre class="language-r">              s_var_name = s_var_name</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">766</td>
+                    <td class="num">721</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">            )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">767</td>
+                    <td class="num">722</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">768</td>
+                    <td class="num">723</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            qenv &lt;- teal.code::eval_code(</pre>
+                      <pre class="language-r">        } else if (length(s_var) == 0 &amp;&amp; length(g_var) != 0) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">769</td>
+                    <td class="num">724</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              qenv,</pre>
+                      <pre class="language-r">          req(scales_type)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">770</td>
+                    <td class="num">725</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              quote(pca_rot$response &lt;- response)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">771</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">          substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">772</td>
+                    <td class="num">726</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            quote(scale_color_gradient(</pre>
+                      <pre class="language-r">            expr = ggplot(ANL[ANL[[g_var]] != "NA", ], aes(dist_var_name)) +</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">773</td>
+                    <td class="num">727</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              low = c(getOption("ggplot2.discrete.colour")[2], "darkred")[1],</pre>
+                      <pre class="language-r">              geom_histogram(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">774</td>
+                    <td class="num">728</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              high = c(getOption("ggplot2.discrete.colour"), "lightblue")[1]</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">775</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            ))</pre>
+                      <pre class="language-r">                position = "identity", aes(y = after_stat(m_type)), bins = bins_var, alpha = 0.3</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">776</td>
+                    <td class="num">729</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          }</pre>
+                      <pre class="language-r">              ) +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">777</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">              facet_wrap(~g_var_name, ncol = 1, scales = scales_raw),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">778</td>
+                    <td class="num">731</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        pca_plot_biplot_expr &lt;- c(</pre>
+                      <pre class="language-r">            env = list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">779</td>
+                    <td class="num">732</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          pca_plot_biplot_expr,</pre>
+                      <pre class="language-r">              m_type = as.name(m_type),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">780</td>
+                    <td class="num">733</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          substitute(</pre>
+                      <pre class="language-r">              bins_var = bins_var,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">781</td>
+                    <td class="num">734</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            geom_point(aes_biplot, data = pca_rot, alpha = alpha, size = size),</pre>
+                      <pre class="language-r">              dist_var_name = dist_var_name,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">782</td>
+                    <td class="num">735</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            env = list(aes_biplot = aes_biplot, alpha = alpha, size = size)</pre>
+                      <pre class="language-r">              g_var = g_var,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">783</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">736</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ),</pre>
+                      <pre class="language-r">              g_var_name = g_var_name,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">784</td>
+                    <td class="num">737</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          scales_biplot</pre>
+                      <pre class="language-r">              scales_raw = tolower(scales_type)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">785</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">786</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">787</td>
+                    <td class="num">740</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">788</td>
+                    <td class="num">741</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (!is.null(input$variables)) {</pre>
+                      <pre class="language-r">          req(scales_type)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">789</td>
+                    <td class="num">742</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        pca_plot_biplot_expr &lt;- c(</pre>
+                      <pre class="language-r">          substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">790</td>
+                    <td class="num">743</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          pca_plot_biplot_expr,</pre>
+                      <pre class="language-r">            expr = ggplot(ANL[ANL[[g_var]] != "NA", ], aes(dist_var_name, col = s_var_name)) +</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">791</td>
+                    <td class="num">744</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          substitute(</pre>
+                      <pre class="language-r">              geom_histogram(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">792</td>
+                    <td class="num">745</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            geom_segment(</pre>
+                      <pre class="language-r">                position = "identity",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">793</td>
+                    <td class="num">746</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              aes_string(x = "xstart", y = "ystart", xend = x_axis, yend = y_axis),</pre>
+                      <pre class="language-r">                aes(y = after_stat(m_type), fill = s_var), bins = bins_var, alpha = 0.3</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">794</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">747</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              data = rot_vars,</pre>
+                      <pre class="language-r">              ) +</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">795</td>
+                    <td class="num">748</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              lineend = "round", linejoin = "round",</pre>
+                      <pre class="language-r">              facet_wrap(~g_var_name, ncol = 1, scales = scales_raw),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">796</td>
+                    <td class="num">749</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              arrow = grid::arrow(length = grid::unit(0.5, "cm"))</pre>
+                      <pre class="language-r">            env = list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">797</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">750</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ),</pre>
+                      <pre class="language-r">              m_type = as.name(m_type),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">798</td>
+                    <td class="num">751</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            env = list(x_axis = x_axis, y_axis = y_axis)</pre>
+                      <pre class="language-r">              bins_var = bins_var,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">799</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">752</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ),</pre>
+                      <pre class="language-r">              dist_var_name = dist_var_name,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">800</td>
+                    <td class="num">753</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          substitute(</pre>
+                      <pre class="language-r">              g_var = g_var,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">801</td>
+                    <td class="num">754</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            geom_label(</pre>
+                      <pre class="language-r">              s_var = as.name(s_var),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">802</td>
+                    <td class="num">755</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              aes_string(</pre>
+                      <pre class="language-r">              g_var_name = g_var_name,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">803</td>
+                    <td class="num">756</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                x = x_axis,</pre>
+                      <pre class="language-r">              s_var_name = s_var_name,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">804</td>
+                    <td class="num">757</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                y = y_axis,</pre>
+                      <pre class="language-r">              scales_raw = tolower(scales_type)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">805</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">758</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                label = "label"</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">806</td>
+                    <td class="num">759</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">807</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">760</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              data = rot_vars,</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">808</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">761</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              nudge_y = 0.1,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">809</td>
+                    <td class="num">762</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              fontface = "bold"</pre>
+                      <pre class="language-r">        if (add_dens_var) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">810</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">763</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ),</pre>
+                      <pre class="language-r">          plot_call &lt;- substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">811</td>
+                    <td class="num">764</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            env = list(x_axis = x_axis, y_axis = y_axis)</pre>
+                      <pre class="language-r">            expr = plot_call +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">812</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">765</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ),</pre>
+                      <pre class="language-r">              stat_density(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">813</td>
+                    <td class="num">766</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          quote(geom_point(aes(x = xstart, y = ystart), data = rot_vars, shape = "x", size = 5))</pre>
+                      <pre class="language-r">                aes(y = after_stat(const * m_type2)),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">814</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">767</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">                geom = "line",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">815</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">768</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">                position = "identity",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">816</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">769</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                alpha = 0.5,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">817</td>
+                    <td class="num">770</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      angle &lt;- ifelse(isTRUE(rotate_xaxis_labels), 45, 0)</pre>
+                      <pre class="language-r">                size = 2,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">818</td>
+                    <td class="num">771</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      hjust &lt;- ifelse(isTRUE(rotate_xaxis_labels), 1, 0.5)</pre>
+                      <pre class="language-r">                n = ndensity</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">819</td>
+                    <td class="num">772</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">820</td>
+                    <td class="num">773</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dev_ggplot2_args &lt;- teal.widgets::ggplot2_args(</pre>
+                      <pre class="language-r">            env = list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">821</td>
+                    <td class="num">774</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        labs = dev_labs,</pre>
+                      <pre class="language-r">              plot_call = plot_call,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">822</td>
+                    <td class="num">775</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        theme = list(</pre>
+                      <pre class="language-r">              const = if (main_type_var == "Density") {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">823</td>
+                    <td class="num">776</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          text = substitute(element_text(size = font_size), list(font_size = font_size)),</pre>
+                      <pre class="language-r">                1</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">777</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">              } else {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">824</td>
+                    <td class="num">778</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          axis.text.x = substitute(</pre>
+                      <pre class="language-r">                diff(range(qenv[["ANL"]][[dist_var]], na.rm = TRUE)) / bins_var</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">779</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">              },</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">825</td>
+                    <td class="num">780</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            element_text(angle = angle_val, hjust = hjust_val),</pre>
+                      <pre class="language-r">              m_type2 = if (main_type_var == "Density") as.name("density") else as.name("count"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">826</td>
+                    <td class="num">781</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            list(angle_val = angle, hjust_val = hjust)</pre>
+                      <pre class="language-r">              ndensity = ndensity</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">827</td>
+                    <td class="num">782</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">828</td>
+                    <td class="num">783</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">829</td>
+                    <td class="num">784</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">830</td>
+                    <td class="num">785</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">831</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      all_ggplot2_args &lt;- teal.widgets::resolve_ggplot2_args(</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">832</td>
+                    <td class="num">786</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        user_plot = ggplot2_args[["Biplot"]],</pre>
+                      <pre class="language-r">        if (length(t_dist) != 0 &amp;&amp; main_type_var == "Density" &amp;&amp; length(g_var) == 0 &amp;&amp; length(s_var) == 0) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">833</td>
+                    <td class="num">787</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        user_default = ggplot2_args$default,</pre>
+                      <pre class="language-r">          qenv &lt;- teal.code::eval_code(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">834</td>
+                    <td class="num">788</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        module_plot = dev_ggplot2_args</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">835</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">836</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">            qenv,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">837</td>
+                    <td class="num">789</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      parsed_ggplot2_args &lt;- teal.widgets::parse_ggplot2_args(</pre>
+                      <pre class="language-r">            substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">838</td>
+                    <td class="num">790</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        all_ggplot2_args,</pre>
+                      <pre class="language-r">              df_params &lt;- as.data.frame(append(params, list(name = t_dist))),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">839</td>
+                    <td class="num">791</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ggtheme = ggtheme</pre>
+                      <pre class="language-r">              env = list(t_dist = t_dist)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">840</td>
+                    <td class="num">792</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">841</td>
+                    <td class="num">793</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">842</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      pca_plot_biplot_expr &lt;- c(</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">843</td>
+                    <td class="num">794</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        pca_plot_biplot_expr,</pre>
+                      <pre class="language-r">          datas &lt;- quote(data.frame(x = 0.7, y = 1, tb = I(list(df_params = df_params))))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">844</td>
+                    <td class="num">795</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        parsed_ggplot2_args</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">845</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">          label &lt;- quote(tb)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">846</td>
+                    <td class="num">796</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">847</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      teal.code::eval_code(</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">848</td>
+                    <td class="num">797</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        qenv,</pre>
+                      <pre class="language-r">          plot_call &lt;- substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">849</td>
+                    <td class="num">798</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        substitute(</pre>
+                      <pre class="language-r">            expr = plot_call + ggpp::geom_table_npc(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">850</td>
+                    <td class="num">799</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          expr = {</pre>
+                      <pre class="language-r">              data = data,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">851</td>
+                    <td class="num">800</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            g &lt;- plot_call</pre>
+                      <pre class="language-r">              aes(npcx = x, npcy = y, label = label),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">852</td>
+                    <td class="num">801</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            print(g)</pre>
+                      <pre class="language-r">              hjust = 0, vjust = 1, size = 4</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">853</td>
+                    <td class="num">802</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          },</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">854</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          env = list(</pre>
+                      <pre class="language-r">            ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">855</td>
+                    <td class="num">803</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            plot_call = Reduce(function(x, y) call("+", x, y), pca_plot_biplot_expr)</pre>
+                      <pre class="language-r">            env = list(plot_call = plot_call, data = datas, label = label)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">856</td>
+                    <td class="num">804</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">857</td>
+                    <td class="num">805</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">858</td>
+                    <td class="num">806</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">859</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">807</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">        if (length(s_var) == 0 &amp;&amp; length(g_var) == 0 &amp;&amp; main_type_var == "Density" &amp;&amp;</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">860</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">808</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          length(t_dist) != 0 &amp;&amp; main_type_var == "Density") {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">861</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">809</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # plot pc_var ----</pre>
+                      <pre class="language-r">          map_dist &lt;- stats::setNames(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">862</td>
+                    <td class="num">810</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    plot_pc_var &lt;- function(base_q) {</pre>
+                      <pre class="language-r">            c("dnorm", "dlnorm", "dgamma", "dunif"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">863</td>
+                    <td class="num">811</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      pc &lt;- input$pc</pre>
+                      <pre class="language-r">            c("normal", "lognormal", "gamma", "unif")</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">812</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">864</td>
+                    <td class="num">813</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ggtheme &lt;- input$ggtheme</pre>
+                      <pre class="language-r">          plot_call &lt;- substitute(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">865</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">814</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">            expr = plot_call + stat_function(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">866</td>
+                    <td class="num">815</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      rotate_xaxis_labels &lt;- input$rotate_xaxis_labels</pre>
+                      <pre class="language-r">              data = data.frame(x = range(ANL[[dist_var]]), color = mapped_dist),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">867</td>
+                    <td class="num">816</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      font_size &lt;- input$font_size</pre>
+                      <pre class="language-r">              aes(x, color = color),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">868</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">817</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">              fun = mapped_dist_name,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">869</td>
+                    <td class="num">818</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      angle &lt;- ifelse(rotate_xaxis_labels, 45, 0)</pre>
+                      <pre class="language-r">              n = ndensity,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">870</td>
+                    <td class="num">819</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      hjust &lt;- ifelse(rotate_xaxis_labels, 1, 0.5)</pre>
+                      <pre class="language-r">              size = 2,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">820</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">              args = params</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">871</td>
+                    <td class="num">821</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">872</td>
+                    <td class="num">822</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dev_ggplot2_args &lt;- teal.widgets::ggplot2_args(</pre>
+                      <pre class="language-r">              scale_color_manual(values = stats::setNames("blue", mapped_dist), aesthetics = "color"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">873</td>
+                    <td class="num">823</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        theme = list(</pre>
+                      <pre class="language-r">            env = list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">874</td>
+                    <td class="num">824</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          text = substitute(element_text(size = font_size), list(font_size = font_size)),</pre>
+                      <pre class="language-r">              plot_call = plot_call,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">875</td>
+                    <td class="num">825</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          axis.text.x = substitute(</pre>
+                      <pre class="language-r">              dist_var = dist_var,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">876</td>
+                    <td class="num">826</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            element_text(angle = angle_val, hjust = hjust_val),</pre>
+                      <pre class="language-r">              ndensity = ndensity,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">877</td>
+                    <td class="num">827</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            list(angle_val = angle, hjust_val = hjust)</pre>
+                      <pre class="language-r">              mapped_dist = unname(map_dist[t_dist]),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">878</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">828</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">              mapped_dist_name = as.name(unname(map_dist[t_dist]))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">879</td>
+                    <td class="num">829</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">880</td>
+                    <td class="num">830</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">881</td>
+                    <td class="num">831</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">882</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">832</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      all_ggplot2_args &lt;- teal.widgets::resolve_ggplot2_args(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">883</td>
+                    <td class="num">833</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        user_plot = ggplot2_args[["Eigenvector plot"]],</pre>
+                      <pre class="language-r">        all_ggplot2_args &lt;- teal.widgets::resolve_ggplot2_args(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">884</td>
+                    <td class="num">834</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        user_default = ggplot2_args$default,</pre>
+                      <pre class="language-r">          user_plot = ggplot2_args[["Histogram"]],</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">885</td>
+                    <td class="num">835</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        module_plot = dev_ggplot2_args</pre>
+                      <pre class="language-r">          user_default = ggplot2_args$default</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">886</td>
+                    <td class="num">836</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">887</td>
+                    <td class="num">837</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">888</td>
+                    <td class="num">838</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      parsed_ggplot2_args &lt;- teal.widgets::parse_ggplot2_args(</pre>
+                      <pre class="language-r">        parsed_ggplot2_args &lt;- teal.widgets::parse_ggplot2_args(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">889</td>
+                    <td class="num">839</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        all_ggplot2_args,</pre>
+                      <pre class="language-r">          all_ggplot2_args,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">890</td>
+                    <td class="num">840</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ggtheme = ggtheme</pre>
+                      <pre class="language-r">          ggtheme = ggtheme</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">891</td>
+                    <td class="num">841</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">892</td>
+                    <td class="num">842</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">893</td>
+                    <td class="num">843</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ggplot_exprs &lt;- c(</pre>
+                      <pre class="language-r">        teal.code::eval_code(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">894</td>
+                    <td class="num">844</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        list(</pre>
+                      <pre class="language-r">          qenv,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">895</td>
+                    <td class="num">845</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          quote(ggplot(pca_rot)),</pre>
+                      <pre class="language-r">          substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">896</td>
+                    <td class="num">846</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          substitute(</pre>
+                      <pre class="language-r">            expr = {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">897</td>
+                    <td class="num">847</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            geom_bar(</pre>
+                      <pre class="language-r">              g &lt;- plot_call</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">898</td>
+                    <td class="num">848</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              aes_string(x = "Variable", y = pc),</pre>
+                      <pre class="language-r">              print(g)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">899</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">849</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              stat = "identity",</pre>
+                      <pre class="language-r">            },</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">900</td>
+                    <td class="num">850</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              color = "black",</pre>
+                      <pre class="language-r">            env = list(plot_call = Reduce(function(x, y) call("+", x, y), c(plot_call, parsed_ggplot2_args)))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">901</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">851</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              fill = c(getOption("ggplot2.discrete.colour"), "lightblue")[1]</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">902</td>
+                    <td class="num">852</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">903</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">853</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            env = list(pc = pc)</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">904</td>
+                    <td class="num">854</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">905</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">855</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          substitute(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">906</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">856</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            geom_text(</pre>
+                      <pre class="language-r">    # qqplot qenv ----</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">907</td>
+                    <td class="num">857</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              aes(</pre>
+                      <pre class="language-r">    qq_q &lt;- eventReactive(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">908</td>
+                    <td class="num">858</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                x = Variable,</pre>
+                      <pre class="language-r">      eventExpr = {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">909</td>
+                    <td class="num">859</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                y = pc_name,</pre>
+                      <pre class="language-r">        common_q()</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">910</td>
+                    <td class="num">860</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                label = round(pc_name, 3),</pre>
+                      <pre class="language-r">        input$scales_type</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">911</td>
+                    <td class="num">861</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                vjust = ifelse(pc_name &gt; 0, -0.5, 1.3)</pre>
+                      <pre class="language-r">        input$qq_line</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">912</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">862</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              )</pre>
+                      <pre class="language-r">        is.null(input$ggtheme)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">913</td>
+                    <td class="num">863</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">914</td>
+                    <td class="num">864</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            env = list(pc_name = as.name(pc))</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">915</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">      valueExpr = {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">916</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">865</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ),</pre>
+                      <pre class="language-r">        dist_var &lt;- merge_vars()$dist_var</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">917</td>
+                    <td class="num">866</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        parsed_ggplot2_args$labs,</pre>
+                      <pre class="language-r">        s_var &lt;- merge_vars()$s_var</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">918</td>
+                    <td class="num">867</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        parsed_ggplot2_args$ggtheme,</pre>
+                      <pre class="language-r">        g_var &lt;- merge_vars()$g_var</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">919</td>
+                    <td class="num">868</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        parsed_ggplot2_args$theme</pre>
+                      <pre class="language-r">        dist_var_name &lt;- merge_vars()$dist_var_name</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">920</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">869</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">        s_var_name &lt;- merge_vars()$s_var_name</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">921</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">870</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        g_var_name &lt;- merge_vars()$g_var_name</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">922</td>
+                    <td class="num">871</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.code::eval_code(</pre>
+                      <pre class="language-r">        t_dist &lt;- input$t_dist</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">923</td>
+                    <td class="num">872</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        base_q,</pre>
+                      <pre class="language-r">        dist_param1 &lt;- input$dist_param1</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">924</td>
+                    <td class="num">873</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        substitute(</pre>
+                      <pre class="language-r">        dist_param2 &lt;- input$dist_param2</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">925</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">874</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          expr = {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">926</td>
+                    <td class="num">875</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            pca_rot &lt;- pca$rotation[, pc, drop = FALSE] %&gt;%</pre>
+                      <pre class="language-r">        scales_type &lt;- input$scales_type</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">927</td>
+                    <td class="num">876</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              dplyr::as_tibble(rownames = "Variable")</pre>
+                      <pre class="language-r">        ggtheme &lt;- input$ggtheme</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">928</td>
+                    <td class="num">877</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">929</td>
+                    <td class="num">878</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            g &lt;- plot_call</pre>
+                      <pre class="language-r">        teal::validate_inputs(iv_r_dist(), iv_dist)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">930</td>
+                    <td class="num">879</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">931</td>
+                    <td class="num">880</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            print(g)</pre>
+                      <pre class="language-r">        qenv &lt;- common_q()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">932</td>
+                    <td class="num">881</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">933</td>
+                    <td class="num">882</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          env = list(</pre>
+                      <pre class="language-r">        plot_call &lt;- if (length(s_var) == 0 &amp;&amp; length(g_var) == 0) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">934</td>
+                    <td class="num">883</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            pc = pc,</pre>
+                      <pre class="language-r">          substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">935</td>
+                    <td class="num">884</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            plot_call = Reduce(function(x, y) call("+", x, y), ggplot_exprs)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">936</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">            expr = ggplot(ANL, aes_string(sample = dist_var)),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">937</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">885</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">            env = list(dist_var = dist_var)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">938</td>
+                    <td class="num">886</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">939</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">887</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">        } else if (length(s_var) != 0 &amp;&amp; length(g_var) == 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">940</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">888</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          substitute(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">941</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">889</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # plot final ----</pre>
+                      <pre class="language-r">            expr = ggplot(ANL, aes_string(sample = dist_var, color = s_var)),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">942</td>
+                    <td class="num">890</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    output_q &lt;- reactive({</pre>
+                      <pre class="language-r">            env = list(dist_var = dist_var, s_var = s_var)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">943</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">891</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      req(computation())</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">944</td>
+                    <td class="num">892</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal::validate_inputs(iv_r())</pre>
+                      <pre class="language-r">        } else if (length(s_var) == 0 &amp;&amp; length(g_var) != 0) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">945</td>
+                    <td class="num">893</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal::validate_inputs(iv_extra, header = "Plot settings are required")</pre>
+                      <pre class="language-r">          substitute(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">946</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">894</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">            expr = ggplot(ANL[ANL[[g_var]] != "NA", ], aes_string(sample = dist_var)) +</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">947</td>
+                    <td class="num">895</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      switch(input$plot_type,</pre>
+                      <pre class="language-r">              facet_wrap(~g_var_name, ncol = 1, scales = scales_raw),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">948</td>
+                    <td class="num">896</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "Elbow plot" = plot_elbow(computation()),</pre>
+                      <pre class="language-r">            env = list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">949</td>
+                    <td class="num">897</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "Circle plot" = plot_circle(computation()),</pre>
+                      <pre class="language-r">              dist_var = dist_var,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">950</td>
+                    <td class="num">898</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "Biplot" = plot_biplot(computation()),</pre>
+                      <pre class="language-r">              g_var = g_var,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">951</td>
+                    <td class="num">899</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "Eigenvector plot" = plot_pc_var(computation()),</pre>
+                      <pre class="language-r">              g_var_name = g_var_name,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">952</td>
+                    <td class="num">900</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        stop("Unknown plot")</pre>
+                      <pre class="language-r">              scales_raw = tolower(scales_type)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">953</td>
+                    <td class="num">901</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">954</td>
+                    <td class="num">902</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">955</td>
+                    <td class="num">903</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">956</td>
+                    <td class="num">904</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    plot_r &lt;- reactive({</pre>
+                      <pre class="language-r">          substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">957</td>
+                    <td class="num">905</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      output_q()[["g"]]</pre>
+                      <pre class="language-r">            expr = ggplot(ANL[ANL[[g_var]] != "NA", ], aes_string(sample = dist_var, color = s_var)) +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">958</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">906</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">              facet_wrap(~g_var_name, ncol = 1, scales = scales_raw),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">959</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">907</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">            env = list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">960</td>
+                    <td class="num">908</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    pws &lt;- teal.widgets::plot_with_settings_srv(</pre>
+                      <pre class="language-r">              dist_var = dist_var,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">961</td>
+                    <td class="num">909</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      id = "pca_plot",</pre>
+                      <pre class="language-r">              g_var = g_var,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">962</td>
+                    <td class="num">910</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      plot_r = plot_r,</pre>
+                      <pre class="language-r">              s_var = s_var,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">963</td>
+                    <td class="num">911</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      height = plot_height,</pre>
+                      <pre class="language-r">              g_var_name = g_var_name,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">964</td>
+                    <td class="num">912</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      width = plot_width,</pre>
+                      <pre class="language-r">              scales_raw = tolower(scales_type)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">965</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">913</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      graph_align = "center"</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">966</td>
+                    <td class="num">914</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">967</td>
+                    <td class="num">915</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">968</td>
+                    <td class="num">916</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # tables ----</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">969</td>
+                    <td class="num">917</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    output$tbl_importance &lt;- renderTable(</pre>
+                      <pre class="language-r">        map_dist &lt;- stats::setNames(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">970</td>
+                    <td class="num">918</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      expr = {</pre>
+                      <pre class="language-r">          c("qnorm", "qlnorm", "qgamma", "qunif"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">971</td>
+                    <td class="num">919</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        req("importance" %in% input$tables_display, computation())</pre>
+                      <pre class="language-r">          c("normal", "lognormal", "gamma", "unif")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">972</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">920</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        computation()[["tbl_importance"]]</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">973</td>
+                    <td class="num">921</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">974</td>
+                    <td class="num">922</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      bordered = TRUE,</pre>
+                      <pre class="language-r">        plot_call &lt;- substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">975</td>
+                    <td class="num">923</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      align = "c",</pre>
+                      <pre class="language-r">          expr = plot_call +</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">976</td>
+                    <td class="num">924</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      digits = 3</pre>
+                      <pre class="language-r">            stat_qq(distribution = mapped_dist, dparams = params),</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">925</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          env = list(plot_call = plot_call, mapped_dist = as.name(unname(map_dist[t_dist])))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">977</td>
+                    <td class="num">926</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">978</td>
+                    <td class="num">927</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">979</td>
+                    <td class="num">928</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    output$tbl_importance_ui &lt;- renderUI({</pre>
+                      <pre class="language-r">        if (length(t_dist) != 0 &amp;&amp; length(g_var) == 0 &amp;&amp; length(s_var) == 0) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">980</td>
+                    <td class="num">929</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      req("importance" %in% input$tables_display)</pre>
+                      <pre class="language-r">          qenv &lt;- teal.code::eval_code(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">981</td>
+                    <td class="num">930</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      div(</pre>
+                      <pre class="language-r">            qenv,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">982</td>
+                    <td class="num">931</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        align = "center",</pre>
+                      <pre class="language-r">            substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">983</td>
+                    <td class="num">932</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        tags$h4("Principal components importance"),</pre>
+                      <pre class="language-r">              df_params &lt;- as.data.frame(append(params, list(name = t_dist))),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">984</td>
+                    <td class="num">933</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        tableOutput(session$ns("tbl_importance")),</pre>
+                      <pre class="language-r">              env = list(t_dist = t_dist)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">985</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">934</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        hr()</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">986</td>
+                    <td class="num">935</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">987</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">936</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">          datas &lt;- quote(data.frame(x = 0.7, y = 1, tb = I(list(df_params = df_params))))</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">937</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          label &lt;- quote(tb)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">988</td>
+                    <td class="num">938</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">989</td>
+                    <td class="num">939</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    output$tbl_eigenvector &lt;- renderTable(</pre>
+                      <pre class="language-r">          plot_call &lt;- substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">990</td>
+                    <td class="num">940</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      expr = {</pre>
+                      <pre class="language-r">            expr = plot_call +</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">991</td>
+                    <td class="num">941</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        req("eigenvector" %in% input$tables_display, req(computation()))</pre>
+                      <pre class="language-r">              ggpp::geom_table_npc(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">992</td>
+                    <td class="num">942</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        computation()[["tbl_eigenvector"]]</pre>
+                      <pre class="language-r">                data = data,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">993</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">943</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      },</pre>
+                      <pre class="language-r">                aes(npcx = x, npcy = y, label = label),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">994</td>
+                    <td class="num">944</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      bordered = TRUE,</pre>
+                      <pre class="language-r">                hjust = 0,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">995</td>
+                    <td class="num">945</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      align = "c",</pre>
+                      <pre class="language-r">                vjust = 1,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">996</td>
+                    <td class="num">946</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      digits = 3</pre>
+                      <pre class="language-r">                size = 4</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">997</td>
+                    <td class="num">947</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">              ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">998</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">948</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">            env = list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">999</td>
+                    <td class="num">949</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    output$tbl_eigenvector_ui &lt;- renderUI({</pre>
+                      <pre class="language-r">              plot_call = plot_call,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1000</td>
+                    <td class="num">950</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      req("eigenvector" %in% input$tables_display)</pre>
+                      <pre class="language-r">              data = datas,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1001</td>
+                    <td class="num">951</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      div(</pre>
+                      <pre class="language-r">              label = label</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">952</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">953</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">954</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">955</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1002</td>
+                    <td class="num">956</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        align = "center",</pre>
+                      <pre class="language-r">        if (isTRUE(input$qq_line)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1003</td>
+                    <td class="num">957</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        tags$h4("Eigenvectors"),</pre>
+                      <pre class="language-r">          plot_call &lt;- substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1004</td>
+                    <td class="num">958</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        tableOutput(session$ns("tbl_eigenvector")),</pre>
+                      <pre class="language-r">            expr = plot_call +</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1005</td>
+                    <td class="num">959</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        hr()</pre>
+                      <pre class="language-r">              stat_qq_line(distribution = mapped_dist, dparams = params),</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">960</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            env = list(plot_call = plot_call, mapped_dist = as.name(unname(map_dist[t_dist])))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1006</td>
+                    <td class="num">961</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1007</td>
+                    <td class="num">962</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1008</td>
+                    <td class="num">963</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1009</td>
+                    <td class="num">964</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    output$all_plots &lt;- renderUI({</pre>
+                      <pre class="language-r">        all_ggplot2_args &lt;- teal.widgets::resolve_ggplot2_args(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1010</td>
+                    <td class="num">965</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal::validate_inputs(iv_r())</pre>
+                      <pre class="language-r">          user_plot = ggplot2_args[["QQplot"]],</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1011</td>
+                    <td class="num">966</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal::validate_inputs(iv_extra, header = "Plot settings are required")</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">1012</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          user_default = ggplot2_args$default,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1013</td>
+                    <td class="num">967</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      validation()</pre>
+                      <pre class="language-r">          module_plot = teal.widgets::ggplot2_args(labs = list(x = "theoretical", y = "sample"))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1014</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">968</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">1015</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">969</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        class = "overflow-scroll",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1016</td>
+                    <td class="num">970</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        uiOutput(session$ns("tbl_importance_ui")),</pre>
+                      <pre class="language-r">        parsed_ggplot2_args &lt;- teal.widgets::parse_ggplot2_args(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1017</td>
+                    <td class="num">971</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        uiOutput(session$ns("tbl_eigenvector_ui")),</pre>
+                      <pre class="language-r">          all_ggplot2_args,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1018</td>
+                    <td class="num">972</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        teal.widgets::plot_with_settings_ui(id = session$ns("pca_plot"))</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">1019</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">          ggtheme = ggtheme</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1020</td>
+                    <td class="num">973</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1021</td>
+                    <td class="num">974</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1022</td>
+                    <td class="num">975</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    teal.widgets::verbatim_popup_srv(</pre>
+                      <pre class="language-r">        teal.code::eval_code(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1023</td>
+                    <td class="num">976</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      id = "warning",</pre>
+                      <pre class="language-r">          qenv,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1024</td>
+                    <td class="num">977</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      verbatim_content = reactive(teal.code::get_warnings(output_q())),</pre>
+                      <pre class="language-r">          substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1025</td>
+                    <td class="num">978</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      title = "Warning",</pre>
+                      <pre class="language-r">            expr = {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1026</td>
+                    <td class="num">979</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      disabled = reactive(is.null(teal.code::get_warnings(output_q())))</pre>
+                      <pre class="language-r">              g &lt;- plot_call</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1027</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">980</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">              print(g)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1028</td>
+                    <td class="num">981</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">1029</td>
+                    <td class="num">982</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    teal.widgets::verbatim_popup_srv(</pre>
+                      <pre class="language-r">            env = list(plot_call = Reduce(function(x, y) call("+", x, y), c(plot_call, parsed_ggplot2_args)))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1030</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">983</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      id = "rcode",</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1031</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">984</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      verbatim_content = reactive(teal.code::get_code(output_q())),</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1032</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">985</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      title = "R Code for PCA"</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1033</td>
+                    <td class="num">986</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1034</td>
+                    <td class="num">987</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1035</td>
+                    <td class="num">988</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ### REPORTER</pre>
+                      <pre class="language-r">    # test qenv ----</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1036</td>
+                    <td class="num">989</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (with_reporter) {</pre>
+                      <pre class="language-r">    test_q &lt;- eventReactive(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1037</td>
+                    <td class="num">990</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      card_fun &lt;- function(comment, label) {</pre>
+                      <pre class="language-r">      ignoreNULL = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1038</td>
+                    <td class="num">991</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        card &lt;- teal::report_card_template(</pre>
+                      <pre class="language-r">      eventExpr = {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1039</td>
+                    <td class="num">992</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          title = "Principal Component Analysis Plot",</pre>
+                      <pre class="language-r">        common_q()</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1040</td>
+                    <td class="num">993</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          label = label,</pre>
+                      <pre class="language-r">        input$dist_param1</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1041</td>
+                    <td class="num">994</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          with_filter = with_filter,</pre>
+                      <pre class="language-r">        input$dist_param2</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1042</td>
+                    <td class="num">995</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          filter_panel_api = filter_panel_api</pre>
+                      <pre class="language-r">        input$dist_tests</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1043</td>
+                    <td class="num">996</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">1044</td>
+                    <td class="num">997</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        card$append_text("Principal Components Table", "header3")</pre>
+                      <pre class="language-r">      valueExpr = {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1045</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">998</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        card$append_table(computation()[["tbl_importance"]])</pre>
+                      <pre class="language-r">        # Create a private stack for this function only.</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1046</td>
+                    <td class="num">999</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        card$append_text("Eigenvectors Table", "header3")</pre>
+                      <pre class="language-r">        ANL &lt;- common_q()[["ANL"]] # nolint: object_name.</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">1000</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1047</td>
+                    <td class="num">1001</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        card$append_table(computation()[["tbl_eigenvector"]])</pre>
+                      <pre class="language-r">        dist_var &lt;- merge_vars()$dist_var</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1048</td>
+                    <td class="num">1002</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        card$append_text("Plot", "header3")</pre>
+                      <pre class="language-r">        s_var &lt;- merge_vars()$s_var</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1049</td>
+                    <td class="num">1003</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        card$append_plot(plot_r(), dim = pws$dim())</pre>
+                      <pre class="language-r">        g_var &lt;- merge_vars()$g_var</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">1004</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1050</td>
+                    <td class="num">1005</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (!comment == "") {</pre>
+                      <pre class="language-r">        dist_var_name &lt;- merge_vars()$dist_var_name</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1051</td>
+                    <td class="num">1006</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          card$append_text("Comment", "header3")</pre>
+                      <pre class="language-r">        s_var_name &lt;- merge_vars()$s_var_name</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1052</td>
+                    <td class="num">1007</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          card$append_text(comment)</pre>
+                      <pre class="language-r">        g_var_name &lt;- merge_vars()$g_var_name</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1053</td>
+                    <td class="num">1008</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">1054</td>
+                    <td class="num">1009</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        card$append_src(teal.code::get_code(output_q()))</pre>
+                      <pre class="language-r">        dist_param1 &lt;- input$dist_param1</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1055</td>
+                    <td class="num">1010</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        card</pre>
+                      <pre class="language-r">        dist_param2 &lt;- input$dist_param2</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1056</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1011</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">        dist_tests &lt;- input$dist_tests</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1057</td>
+                    <td class="num">1012</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun)</pre>
+                      <pre class="language-r">        t_dist &lt;- input$t_dist</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1058</td>
+                    <td class="num">1013</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1059</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1014</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ###</pre>
+                      <pre class="language-r">        validate(need(dist_tests, "Please select a test"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1060</td>
+                    <td class="num">1015</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1061</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1016</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">        teal::validate_inputs(iv_dist)</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/tm_t_crosstable.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">1017</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Create a simple cross-table</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">1018</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @md</pre>
+                      <pre class="language-r">        if (length(s_var) &gt; 0 || length(g_var) &gt; 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">3</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1019</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          counts &lt;- ANL %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">4</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1020</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams teal::module</pre>
+                      <pre class="language-r">            dplyr::group_by_at(dplyr::vars(dplyr::any_of(c(s_var, g_var)))) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">5</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1021</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams shared_params</pre>
+                      <pre class="language-r">            dplyr::summarise(n = dplyr::n())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">1022</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x (`data_extract_spec` or `list` of multiple `data_extract_spec`)</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">1023</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  Object with all available choices with pre-selected option for variable X - row values. In case</pre>
+                      <pre class="language-r">          validate(need(all(counts$n &gt; 5), "Please select strata*group with at least 5 observation each."))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">1024</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  of `data_extract_spec` use `select_spec(..., ordered = TRUE)` if table elements should be</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">1025</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  rendered according to selection order.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">1026</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param y (`data_extract_spec` or `list` of multiple `data_extract_spec`)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">11</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1027</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  Object with all available choices with pre-selected option for variable Y - column values</pre>
+                      <pre class="language-r">        if (dist_tests %in% c(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">12</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1028</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  \code{data_extract_spec} must not allow multiple selection in this case.</pre>
+                      <pre class="language-r">          "t-test (two-samples, not paired)",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">13</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1029</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          "F-test",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">14</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1030</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param show_percentage optional, (`logical`) Whether to show percentages</pre>
+                      <pre class="language-r">          "Kolmogorov-Smirnov (two-samples)"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">1031</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   (relevant only when `x` is a `factor`). Defaults to `TRUE`.</pre>
+                      <pre class="language-r">        )) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">16</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1032</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param show_total optional, (`logical`) Whether to show total column. Defaults to `TRUE`.</pre>
+                      <pre class="language-r">          if (length(g_var) == 0 &amp;&amp; length(s_var) &gt; 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">17</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1033</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">            validate(need(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">18</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1034</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @note For more examples, please see the vignette "Using cross table" via</pre>
+                      <pre class="language-r">              length(unique(ANL[[s_var]])) == 2,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">19</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1035</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `vignette("using-cross-table", package = "teal.modules.general")`.</pre>
+                      <pre class="language-r">              "Please select stratify variable with 2 levels."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">1036</td>
                     <td class="coverage"></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">1037</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">22</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1038</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # general data example</pre>
+                      <pre class="language-r">          if (length(g_var) &gt; 0 &amp;&amp; length(s_var) &gt; 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">23</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1039</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(teal.widgets)</pre>
+                      <pre class="language-r">            validate(need(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">24</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1040</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">              all(stats::na.omit(as.vector(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">25</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1041</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' data &lt;- teal_data()</pre>
+                      <pre class="language-r">                tapply(ANL[[s_var]], list(ANL[[g_var]]), function(x) length(unique(x))) == 2</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">1042</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' data &lt;- within(data, {</pre>
+                      <pre class="language-r">              ))),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">27</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1043</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   mtcars &lt;- mtcars</pre>
+                      <pre class="language-r">              "Please select stratify variable with 2 levels, per each group."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">28</td>
+                    <td class="num">1044</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   for (v in c("cyl", "vs", "am", "gear")) {</pre>
+                      <pre class="language-r">            ))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">29</td>
+                    <td class="num">1045</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     mtcars[[v]] &lt;- as.factor(mtcars[[v]])</pre>
+                      <pre class="language-r">          }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">1046</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   }</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
+                    <td class="num">1047</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   mtcars[["primary_key"]] &lt;- seq_len(nrow(mtcars))</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">32</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1048</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' })</pre>
+                      <pre class="language-r">        map_dist &lt;- stats::setNames(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">33</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1049</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' datanames(data) &lt;- "mtcars"</pre>
+                      <pre class="language-r">          c("pnorm", "plnorm", "pgamma", "punif"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">34</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1050</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' join_keys(data) &lt;- join_keys(join_key("mtcars", "mtcars", "primary_key"))</pre>
+                      <pre class="language-r">          c("normal", "lognormal", "gamma", "unif")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</td>
+                    <td class="num">1051</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">36</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1052</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' app &lt;- init(</pre>
+                      <pre class="language-r">        sks_args &lt;- list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">37</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1053</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = data,</pre>
+                      <pre class="language-r">          test = quote(stats::ks.test),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">38</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1054</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   modules = modules(</pre>
+                      <pre class="language-r">          args = bquote(append(list(.[[.(dist_var)]], .(map_dist[t_dist])), params)),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">39</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1055</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     tm_t_crosstable(</pre>
+                      <pre class="language-r">          groups = c(g_var, s_var)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">1056</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       label = "Cross Table",</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">41</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1057</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       x = data_extract_spec(</pre>
+                      <pre class="language-r">        ssw_args &lt;- list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">42</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1058</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         dataname = "mtcars",</pre>
+                      <pre class="language-r">          test = quote(stats::shapiro.test),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">43</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1059</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         select = select_spec(</pre>
+                      <pre class="language-r">          args = bquote(list(.[[.(dist_var)]])),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">44</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1060</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           label = "Select variable:",</pre>
+                      <pre class="language-r">          groups = c(g_var, s_var)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">45</td>
+                    <td class="num">1061</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           choices = variable_choices(data[["mtcars"]], c("cyl", "vs", "am", "gear")),</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">1062</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           selected = c("cyl", "gear"),</pre>
+                      <pre class="language-r">        mfil_args &lt;- list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">47</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1063</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           multiple = TRUE,</pre>
+                      <pre class="language-r">          test = quote(stats::fligner.test),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">48</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1064</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           ordered = TRUE,</pre>
+                      <pre class="language-r">          args = bquote(list(.[[.(dist_var)]], .[[.(s_var)]])),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">49</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1065</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           fixed = FALSE</pre>
+                      <pre class="language-r">          groups = c(g_var)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">50</td>
+                    <td class="num">1066</td>
                     <td class="coverage"></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>
+                  <tr class="missed">
+                    <td class="num">1067</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       ),</pre>
+                      <pre class="language-r">        sad_args &lt;- list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">52</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1068</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       y = data_extract_spec(</pre>
+                      <pre class="language-r">          test = quote(goftest::ad.test),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">53</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1069</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         dataname = "mtcars",</pre>
+                      <pre class="language-r">          args = bquote(append(list(.[[.(dist_var)]], .(map_dist[t_dist])), params)),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">54</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1070</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         select = select_spec(</pre>
+                      <pre class="language-r">          groups = c(g_var, s_var)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">55</td>
+                    <td class="num">1071</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           label = "Select variable:",</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">56</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1072</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           choices = variable_choices(data[["mtcars"]], c("cyl", "vs", "am", "gear")),</pre>
+                      <pre class="language-r">        scvm_args &lt;- list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">57</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1073</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           selected = "vs",</pre>
+                      <pre class="language-r">          test = quote(goftest::cvm.test),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">58</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1074</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           multiple = FALSE,</pre>
+                      <pre class="language-r">          args = bquote(append(list(.[[.(dist_var)]], .(map_dist[t_dist])), params)),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">59</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1075</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           fixed = FALSE</pre>
+                      <pre class="language-r">          groups = c(g_var, s_var)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">60</td>
+                    <td class="num">1076</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         )</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">61</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1077</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       ),</pre>
+                      <pre class="language-r">        manov_args &lt;- list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">62</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1078</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       basic_table_args = basic_table_args(</pre>
+                      <pre class="language-r">          test = quote(stats::aov),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">63</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1079</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         subtitles = "Table generated by Crosstable Module"</pre>
+                      <pre class="language-r">          args = bquote(list(stats::formula(.(dist_var_name) ~ .(s_var_name)), .)),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">64</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1080</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       )</pre>
+                      <pre class="language-r">          groups = c(g_var)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">65</td>
+                    <td class="num">1081</td>
                     <td class="coverage"></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">1082</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">        mt_args &lt;- list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">67</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1083</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">          test = quote(stats::t.test),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">68</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1084</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' if (interactive()) {</pre>
+                      <pre class="language-r">          args = bquote(unname(split(.[[.(dist_var)]], .[[.(s_var)]], drop = TRUE))),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">69</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1085</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   shinyApp(app$ui, app$server)</pre>
+                      <pre class="language-r">          groups = c(g_var)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">70</td>
+                    <td class="num">1086</td>
                     <td class="coverage"></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="missed">
+                    <td class="num">1087</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        mv_args &lt;- list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">72</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1088</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # CDISC data example</pre>
+                      <pre class="language-r">          test = quote(stats::var.test),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">73</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1089</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(teal.widgets)</pre>
+                      <pre class="language-r">          args = bquote(unname(split(.[[.(dist_var)]], .[[.(s_var)]], drop = TRUE))),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">74</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1090</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          groups = c(g_var)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">75</td>
+                    <td class="num">1091</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' data &lt;- teal_data()</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">1092</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' data &lt;- within(data, {</pre>
+                      <pre class="language-r">        mks_args &lt;- list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">77</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1093</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ADSL &lt;- rADSL</pre>
+                      <pre class="language-r">          test = quote(stats::ks.test),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">78</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1094</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' })</pre>
+                      <pre class="language-r">          args = bquote(unname(split(.[[.(dist_var)]], .[[.(s_var)]], drop = TRUE))),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">79</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1095</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' datanames(data) &lt;- "ADSL"</pre>
+                      <pre class="language-r">          groups = c(g_var)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">80</td>
+                    <td class="num">1096</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' join_keys(data) &lt;- default_cdisc_join_keys[datanames(data)]</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">81</td>
+                    <td class="num">1097</td>
                     <td class="coverage"></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="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1098</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' app &lt;- init(</pre>
+                      <pre class="language-r">        tests_base &lt;- switch(dist_tests,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">83</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1099</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = data,</pre>
+                      <pre class="language-r">          "Kolmogorov-Smirnov (one-sample)" = sks_args,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">84</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1100</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   modules = modules(</pre>
+                      <pre class="language-r">          "Shapiro-Wilk" = ssw_args,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">85</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1101</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     tm_t_crosstable(</pre>
+                      <pre class="language-r">          "Fligner-Killeen" = mfil_args,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">86</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1102</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       label = "Cross Table",</pre>
+                      <pre class="language-r">          "one-way ANOVA" = manov_args,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">87</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1103</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       x = data_extract_spec(</pre>
+                      <pre class="language-r">          "t-test (two-samples, not paired)" = mt_args,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">88</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1104</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         dataname = "ADSL",</pre>
+                      <pre class="language-r">          "F-test" = mv_args,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">89</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1105</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         select = select_spec(</pre>
+                      <pre class="language-r">          "Kolmogorov-Smirnov (two-samples)" = mks_args,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">90</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1106</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           label = "Select variable:",</pre>
+                      <pre class="language-r">          "Anderson-Darling (one-sample)" = sad_args,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">91</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1107</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           choices = variable_choices(data[["ADSL"]], subset = function(data) {</pre>
+                      <pre class="language-r">          "Cramer-von Mises (one-sample)" = scvm_args</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">92</td>
+                    <td class="num">1108</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'             idx &lt;- !vapply(data, inherits, logical(1), c("Date", "POSIXct", "POSIXlt"))</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">93</td>
+                    <td class="num">1109</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'             return(names(data)[idx])</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">94</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1110</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           }),</pre>
+                      <pre class="language-r">        env &lt;- list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">95</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1111</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           selected = "COUNTRY",</pre>
+                      <pre class="language-r">          t_test = t_dist,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">96</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1112</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           multiple = TRUE,</pre>
+                      <pre class="language-r">          dist_var = dist_var,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">97</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1113</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           ordered = TRUE,</pre>
+                      <pre class="language-r">          g_var = g_var,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">98</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1114</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           fixed = FALSE</pre>
+                      <pre class="language-r">          s_var = s_var,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">99</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1115</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         )</pre>
+                      <pre class="language-r">          args = tests_base$args,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">100</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1116</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       ),</pre>
+                      <pre class="language-r">          groups = tests_base$groups,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">101</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1117</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       y = data_extract_spec(</pre>
+                      <pre class="language-r">          test = tests_base$test,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">102</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1118</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         dataname = "ADSL",</pre>
+                      <pre class="language-r">          dist_var_name = dist_var_name,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">103</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1119</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         select = select_spec(</pre>
+                      <pre class="language-r">          g_var_name = g_var_name,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">104</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1120</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           label = "Select variable:",</pre>
+                      <pre class="language-r">          s_var_name = s_var_name</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">105</td>
+                    <td class="num">1121</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           choices = variable_choices(data[["ADSL"]], subset = function(data) {</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">106</td>
+                    <td class="num">1122</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'             idx &lt;- vapply(data, is.factor, logical(1))</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">107</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1123</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'             return(names(data)[idx])</pre>
+                      <pre class="language-r">        qenv &lt;- common_q()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">108</td>
+                    <td class="num">1124</td>
                     <td class="coverage"></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">1125</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           selected = "SEX",</pre>
+                      <pre class="language-r">        if (length(s_var) == 0 &amp;&amp; length(g_var) == 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">110</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1126</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           multiple = FALSE,</pre>
+                      <pre class="language-r">          qenv &lt;- teal.code::eval_code(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">111</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1127</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           fixed = FALSE</pre>
+                      <pre class="language-r">            qenv,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">112</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1128</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         )</pre>
+                      <pre class="language-r">            substitute(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">113</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1129</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       ),</pre>
+                      <pre class="language-r">              expr = {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">114</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1130</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       basic_table_args = basic_table_args(</pre>
+                      <pre class="language-r">                test_stats &lt;- ANL %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">115</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1131</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         subtitles = "Table generated by Crosstable Module"</pre>
+                      <pre class="language-r">                  dplyr::select(dist_var) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">116</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1132</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       )</pre>
+                      <pre class="language-r">                  with(., broom::glance(do.call(test, args))) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">117</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1133</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     )</pre>
+                      <pre class="language-r">                  dplyr::mutate_if(is.numeric, round, 3)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">118</td>
+                    <td class="num">1134</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">              },</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">119</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1135</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">              env = env</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">120</td>
+                    <td class="num">1136</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">121</td>
+                    <td class="num">1137</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">122</td>
+                    <td class="num">1138</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">123</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1139</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          qenv &lt;- teal.code::eval_code(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">124</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1140</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">            qenv,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">125</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1141</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">            substitute(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">126</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1142</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">tm_t_crosstable &lt;- function(label = "Cross Table",</pre>
+                      <pre class="language-r">              expr = {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">127</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1143</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            x,</pre>
+                      <pre class="language-r">                test_stats &lt;- ANL %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">128</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1144</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            y,</pre>
+                      <pre class="language-r">                  dplyr::select(dist_var, s_var, g_var) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">129</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1145</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            show_percentage = TRUE,</pre>
+                      <pre class="language-r">                  dplyr::group_by_at(dplyr::vars(dplyr::any_of(groups))) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">130</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1146</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            show_total = TRUE,</pre>
+                      <pre class="language-r">                  dplyr::do(tests = broom::glance(do.call(test, args))) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">131</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1147</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            pre_output = NULL,</pre>
+                      <pre class="language-r">                  tidyr::unnest(tests) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">132</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1148</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            post_output = NULL,</pre>
+                      <pre class="language-r">                  dplyr::mutate_if(is.numeric, round, 3)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">133</td>
+                    <td class="num">1149</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            basic_table_args = teal.widgets::basic_table_args()) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">134</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  logger::log_info("Initializing tm_t_crosstable")</pre>
+                      <pre class="language-r">              },</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">135</td>
+                    <td class="num">1150</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!requireNamespace("rtables", quietly = TRUE)) {</pre>
+                      <pre class="language-r">              env = env</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">136</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1151</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stop("Cannot load rtables - please install the package or restart your session.")</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">137</td>
+                    <td class="num">1152</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">138</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1153</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (inherits(x, "data_extract_spec")) x &lt;- list(x)</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">139</td>
+                    <td class="num">1154</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (inherits(y, "data_extract_spec")) y &lt;- list(y)</pre>
+                      <pre class="language-r">        qenv %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">140</td>
+                    <td class="num">1155</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          # used to display table when running show-r-code code</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">141</td>
+                    <td class="num">1156</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(label)</pre>
+                      <pre class="language-r">          teal.code::eval_code(quote(test_stats))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">142</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1157</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(x, types = "data_extract_spec")</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">143</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1158</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(y, types = "data_extract_spec")</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">144</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1159</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (any(vapply(y, function(x) x$select$multiple, logical(1)))) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">145</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1160</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stop("'y' should not allow multiple selection")</pre>
+                      <pre class="language-r">    # outputs ----</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">146</td>
+                    <td class="num">1161</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">    ## building main qenv</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">147</td>
+                    <td class="num">1162</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(show_percentage)</pre>
+                      <pre class="language-r">    output_q &lt;- reactive({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">148</td>
+                    <td class="num">1163</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(show_total)</pre>
+                      <pre class="language-r">      tab &lt;- input$tabs</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">149</td>
+                    <td class="num">1164</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(basic_table_args, classes = "basic_table_args")</pre>
+                      <pre class="language-r">      req(tab) # tab is NULL upon app launch, hence will crash without this statement</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">150</td>
+                    <td class="num">1165</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">151</td>
+                    <td class="num">1166</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ui_args &lt;- as.list(environment())</pre>
+                      <pre class="language-r">      qenv_final &lt;- common_q()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">152</td>
+                    <td class="num">1167</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">153</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  server_args &lt;- list(</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">154</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    label = label,</pre>
+                      <pre class="language-r">      # wrapped in if since could lead into validate error - we do want to continue</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">155</td>
+                    <td class="num">1168</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x = x,</pre>
+                      <pre class="language-r">      test_r_qenv_out &lt;- try(test_q(), silent = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">156</td>
+                    <td class="num">1169</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    y = y,</pre>
+                      <pre class="language-r">      if (!inherits(test_r_qenv_out, c("try-error", "error"))) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">157</td>
+                    <td class="num">1170</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    basic_table_args = basic_table_args</pre>
+                      <pre class="language-r">        qenv_final &lt;- teal.code::join(qenv_final, test_q())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">158</td>
+                    <td class="num">1171</td>
                     <td class="coverage"></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">1172</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">160</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  module(</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">161</td>
+                    <td class="num">1173</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    label = label,</pre>
+                      <pre class="language-r">      qenv_final &lt;- if (tab == "Histogram") {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">162</td>
+                    <td class="num">1174</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    server = srv_t_crosstable,</pre>
+                      <pre class="language-r">        req(dist_q())</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">163</td>
+                    <td class="num">1175</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ui = ui_t_crosstable,</pre>
+                      <pre class="language-r">        teal.code::join(qenv_final, dist_q())</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">164</td>
+                    <td class="num">1176</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ui_args = ui_args,</pre>
+                      <pre class="language-r">      } else if (tab == "QQplot") {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">165</td>
+                    <td class="num">1177</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    server_args = server_args,</pre>
+                      <pre class="language-r">        req(qq_q())</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">166</td>
+                    <td class="num">1178</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    datanames = teal.transform::get_extract_datanames(list(x = x, y = y))</pre>
+                      <pre class="language-r">        teal.code::join(qenv_final, qq_q())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">167</td>
+                    <td class="num">1179</td>
                     <td class="coverage"></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="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1180</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">      qenv_final</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">169</td>
+                    <td class="num">1181</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">170</td>
+                    <td class="num">1182</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">ui_t_crosstable &lt;- function(id, x, y, show_percentage, show_total, pre_output, post_output, ...) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">171</td>
+                    <td class="num">1183</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ns &lt;- NS(id)</pre>
+                      <pre class="language-r">    dist_r &lt;- reactive(dist_q()[["g"]])</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">1184</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">172</td>
+                    <td class="num">1185</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  is_single_dataset &lt;- teal.transform::is_single_dataset(x, y)</pre>
+                      <pre class="language-r">    qq_r &lt;- reactive(qq_q()[["g"]])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">173</td>
+                    <td class="num">1186</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">174</td>
+                    <td class="num">1187</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  join_default_options &lt;- c(</pre>
+                      <pre class="language-r">    output$summary_table &lt;- DT::renderDataTable(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">175</td>
+                    <td class="num">1188</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "Full Join" = "dplyr::full_join",</pre>
+                      <pre class="language-r">      expr = if (iv_r()$is_valid()) common_q()[["summary_table"]] else NULL,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">176</td>
+                    <td class="num">1189</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "Inner Join" = "dplyr::inner_join",</pre>
+                      <pre class="language-r">      options = list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">177</td>
+                    <td class="num">1190</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "Left Join" = "dplyr::left_join",</pre>
+                      <pre class="language-r">        autoWidth = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">178</td>
+                    <td class="num">1191</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "Right Join" = "dplyr::right_join"</pre>
+                      <pre class="language-r">        columnDefs = list(list(width = "200px", targets = "_all"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">179</td>
+                    <td class="num">1192</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">1193</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      rownames = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">180</td>
+                    <td class="num">1194</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">1195</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">181</td>
+                    <td class="num">1196</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  teal.widgets::standard_layout(</pre>
+                      <pre class="language-r">    tests_r &lt;- reactive({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">182</td>
+                    <td class="num">1197</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    output = teal.widgets::white_small_well(</pre>
+                      <pre class="language-r">      req(iv_r()$is_valid())</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">183</td>
+                    <td class="num">1198</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      textOutput(ns("title")),</pre>
+                      <pre class="language-r">      teal::validate_inputs(iv_r_dist())</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">184</td>
+                    <td class="num">1199</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.widgets::table_with_settings_ui(ns("table"))</pre>
+                      <pre class="language-r">      test_q()[["test_stats"]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">185</td>
+                    <td class="num">1200</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ),</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">186</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    encoding = div(</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">187</td>
+                    <td class="num">1201</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ### Reporter</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">188</td>
+                    <td class="num">1202</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.reporter::simple_reporter_ui(ns("simple_reporter")),</pre>
+                      <pre class="language-r">    pws1 &lt;- teal.widgets::plot_with_settings_srv(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">189</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1203</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ###</pre>
+                      <pre class="language-r">      id = "hist_plot",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">190</td>
+                    <td class="num">1204</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      tags$label("Encodings", class = "text-primary"),</pre>
+                      <pre class="language-r">      plot_r = dist_r,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">191</td>
+                    <td class="num">1205</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.transform::datanames_input(list(x, y)),</pre>
+                      <pre class="language-r">      height = plot_height,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">192</td>
+                    <td class="num">1206</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.transform::data_extract_ui(ns("x"), label = "Row values", x, is_single_dataset = is_single_dataset),</pre>
+                      <pre class="language-r">      width = plot_width,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">193</td>
+                    <td class="num">1207</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.transform::data_extract_ui(ns("y"), label = "Column values", y, is_single_dataset = is_single_dataset),</pre>
+                      <pre class="language-r">      brushing = FALSE</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">1208</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">1209</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">194</td>
+                    <td class="num">1210</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.widgets::optionalSelectInput(</pre>
+                      <pre class="language-r">    pws2 &lt;- teal.widgets::plot_with_settings_srv(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">195</td>
+                    <td class="num">1211</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ns("join_fun"),</pre>
+                      <pre class="language-r">      id = "qq_plot",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">196</td>
+                    <td class="num">1212</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        label = "Row to Column type of join",</pre>
+                      <pre class="language-r">      plot_r = qq_r,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">197</td>
+                    <td class="num">1213</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        choices = join_default_options,</pre>
+                      <pre class="language-r">      height = plot_height,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">198</td>
+                    <td class="num">1214</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        selected = join_default_options[1],</pre>
+                      <pre class="language-r">      width = plot_width,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">199</td>
+                    <td class="num">1215</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        multiple = FALSE</pre>
+                      <pre class="language-r">      brushing = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">200</td>
+                    <td class="num">1216</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">201</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1217</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      tags$hr(),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">202</td>
+                    <td class="num">1218</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.widgets::panel_group(</pre>
+                      <pre class="language-r">    output$t_stats &lt;- DT::renderDataTable(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">203</td>
+                    <td class="num">1219</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        teal.widgets::panel_item(</pre>
+                      <pre class="language-r">      expr = tests_r(),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">204</td>
+                    <td class="num">1220</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          title = "Table settings",</pre>
+                      <pre class="language-r">      options = list(scrollX = TRUE),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">205</td>
+                    <td class="num">1221</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          checkboxInput(ns("show_percentage"), "Show column percentage", value = show_percentage),</pre>
+                      <pre class="language-r">      rownames = FALSE</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">206</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1222</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          checkboxInput(ns("show_total"), "Show total column", value = show_total)</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">207</td>
+                    <td class="num">1223</td>
                     <td class="coverage"></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>
+                  <tr class="missed">
+                    <td class="num">1224</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">    teal.widgets::verbatim_popup_srv(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">209</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1225</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ),</pre>
+                      <pre class="language-r">      id = "warning",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">210</td>
+                    <td class="num">1226</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    forms = tagList(</pre>
+                      <pre class="language-r">      verbatim_content = reactive(teal.code::get_warnings(output_q())),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">211</td>
+                    <td class="num">1227</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.widgets::verbatim_popup_ui(ns("warning"), "Show Warnings"),</pre>
+                      <pre class="language-r">      title = "Warning",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">212</td>
+                    <td class="num">1228</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">      disabled = reactive(is.null(teal.code::get_warnings(output_q())))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">213</td>
+                    <td class="num">1229</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ),</pre>
+                      <pre class="language-r">    )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">1230</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">214</td>
+                    <td class="num">1231</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    pre_output = pre_output,</pre>
+                      <pre class="language-r">    teal.widgets::verbatim_popup_srv(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">215</td>
+                    <td class="num">1232</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    post_output = post_output</pre>
+                      <pre class="language-r">      id = "rcode",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">216</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1233</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">      verbatim_content = reactive(teal.code::get_code(output_q())),</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">1234</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      title = "R Code for distribution"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">217</td>
+                    <td class="num">1235</td>
                     <td class="coverage"></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">1236</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">219</td>
+                    <td class="num">1237</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">srv_t_crosstable &lt;- function(id, data, reporter, filter_panel_api, label, x, y, basic_table_args) {</pre>
+                      <pre class="language-r">    ### REPORTER</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">220</td>
+                    <td class="num">1238</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  with_reporter &lt;- !missing(reporter) &amp;&amp; inherits(reporter, "Reporter")</pre>
+                      <pre class="language-r">    if (with_reporter) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">221</td>
+                    <td class="num">1239</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  with_filter &lt;- !missing(filter_panel_api) &amp;&amp; inherits(filter_panel_api, "FilterPanelAPI")</pre>
+                      <pre class="language-r">      card_fun &lt;- function(comment, label) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">222</td>
+                    <td class="num">1240</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(data, "reactive")</pre>
+                      <pre class="language-r">        card &lt;- teal::report_card_template(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">223</td>
+                    <td class="num">1241</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">          title = "Distribution Plot",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">224</td>
+                    <td class="num">1242</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">          label = label,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">225</td>
+                    <td class="num">1243</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    selector_list &lt;- teal.transform::data_extract_multiple_srv(</pre>
+                      <pre class="language-r">          with_filter = with_filter,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">226</td>
+                    <td class="num">1244</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      data_extract = list(x = x, y = y),</pre>
+                      <pre class="language-r">          filter_panel_api = filter_panel_api</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">227</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1245</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      datasets = data,</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">228</td>
+                    <td class="num">1246</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      select_validation_rule = list(</pre>
+                      <pre class="language-r">        card$append_text("Plot", "header3")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">229</td>
+                    <td class="num">1247</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        x = shinyvalidate::sv_required("Please define column for row variable."),</pre>
+                      <pre class="language-r">        if (input$tabs == "Histogram") {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">230</td>
+                    <td class="num">1248</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        y = shinyvalidate::sv_required("Please define column for column variable.")</pre>
+                      <pre class="language-r">          card$append_plot(dist_r(), dim = pws1$dim())</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">231</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1249</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">        } else if (input$tabs == "QQplot") {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">232</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1250</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">          card$append_plot(qq_r(), dim = pws2$dim())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">233</td>
+                    <td class="num">1251</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">234</td>
+                    <td class="num">1252</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    iv_r &lt;- reactive({</pre>
+                      <pre class="language-r">        card$append_text("Statistics table", "header3")</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">1253</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">235</td>
+                    <td class="num">1254</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv &lt;- shinyvalidate::InputValidator$new()</pre>
+                      <pre class="language-r">        card$append_table(common_q()[["summary_table"]])</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">236</td>
+                    <td class="num">1255</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv$add_rule("join_fun", function(value) {</pre>
+                      <pre class="language-r">        tests_error &lt;- tryCatch(expr = tests_r(), error = function(e) "error")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">237</td>
+                    <td class="num">1256</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (!identical(selector_list()$x()$dataname, selector_list()$y()$dataname)) {</pre>
+                      <pre class="language-r">        if (inherits(tests_error, "data.frame")) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">238</td>
+                    <td class="num">1257</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          if (!shinyvalidate::input_provided(value)) {</pre>
+                      <pre class="language-r">          card$append_text("Tests table", "header3")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">239</td>
+                    <td class="num">1258</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            "Please select a joining function."</pre>
+                      <pre class="language-r">          card$append_table(tests_r())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">240</td>
+                    <td class="num">1259</td>
                     <td class="coverage"></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="num">1260</td>
                     <td class="coverage"></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>
+                  <tr class="missed">
+                    <td class="num">1261</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      })</pre>
+                      <pre class="language-r">        if (!comment == "") {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">243</td>
+                    <td class="num">1262</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.transform::compose_and_enable_validators(iv, selector_list)</pre>
+                      <pre class="language-r">          card$append_text("Comment", "header3")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">244</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1263</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">          card$append_text(comment)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">245</td>
+                    <td class="num">1264</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">1265</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    observeEvent(</pre>
+                      <pre class="language-r">        card$append_src(teal.code::get_code(output_q()))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">247</td>
+                    <td class="num">1266</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      eventExpr = {</pre>
+                      <pre class="language-r">        card</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">248</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1267</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        req(!is.null(selector_list()$x()) &amp;&amp; !is.null(selector_list()$y()))</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">249</td>
+                    <td class="num">1268</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        list(selector_list()$x(), selector_list()$y())</pre>
+                      <pre class="language-r">      teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">250</td>
+                    <td class="num">1269</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">251</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1270</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="missed">
-                    <td class="num">252</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1271</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (identical(selector_list()$x()$dataname, selector_list()$y()$dataname)) {</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">253</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1272</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          shinyjs::hide("join_fun")</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/tm_g_bivariate.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">254</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        } else {</pre>
+                      <pre class="language-r">#' Univariate and bivariate visualizations</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">255</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">          shinyjs::show("join_fun")</pre>
+                      <pre class="language-r">#' @md</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">256</td>
+                    <td class="num">3</td>
                     <td class="coverage"></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="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#' @inheritParams teal::module</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">258</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#' @inheritParams shared_params</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">259</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @param x (`data_extract_spec` or `list` of multiple `data_extract_spec`)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">260</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">    merge_function &lt;- reactive({</pre>
+                      <pre class="language-r">#'   Variable names selected to plot along the x-axis by default. Variable can be numeric, factor or character.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">261</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">      if (is.null(input$join_fun)) {</pre>
+                      <pre class="language-r">#'   No empty selections are allowed!</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">262</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">        "dplyr::full_join"</pre>
+                      <pre class="language-r">#' @param y (`data_extract_spec` or `list` of multiple `data_extract_spec`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">263</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">#'   Variable names selected to plot along the y-axis by default. Variable can be numeric, factor or character.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">264</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">        input$join_fun</pre>
+                      <pre class="language-r">#' @param use_density optional, (`logical`) value for whether density (`TRUE`) is plotted or</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">265</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#'   frequency (`FALSE`). Defaults to frequency (`FALSE`).</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">266</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 row_facet optional, (`data_extract_spec` or `list` of multiple `data_extract_spec`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">267</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   Variables for row facetting.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">268</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">    anl_merged_input &lt;- teal.transform::merge_expression_srv(</pre>
+                      <pre class="language-r">#' @param col_facet optional, (`data_extract_spec` or `list` of multiple `data_extract_spec`)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">269</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">      datasets = data,</pre>
+                      <pre class="language-r">#'   Variables for col facetting.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">270</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">      selector_list = selector_list,</pre>
+                      <pre class="language-r">#' @param facet optional, (`logical`) to specify whether the facet encodings `ui` elements are toggled</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">271</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">      merge_function = merge_function</pre>
+                      <pre class="language-r">#'   on and shown to the user by default. Defaults to `TRUE` if either `row_facet` or `column_facet`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">272</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#'   are supplied.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">273</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @param color_settings (`logical`) Whether coloring, filling and size should be applied</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">274</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    anl_merged_q &lt;- reactive({</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">275</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">      req(anl_merged_input())</pre>
+                      <pre class="language-r">#' and `UI` tool offered to the user.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">276</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">      data() %&gt;%</pre>
+                      <pre class="language-r">#' @param color optional, (`data_extract_spec` or `list` of multiple `data_extract_spec`)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">277</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">        teal.code::eval_code(as.expression(anl_merged_input()$expr))</pre>
+                      <pre class="language-r">#'   Variables selected for the outline color inside the coloring settings.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">278</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">#'   It will be applied when `color_settings` is set to `TRUE`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">279</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @param fill optional, (`data_extract_spec` or `list` of multiple `data_extract_spec`)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">280</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">    merged &lt;- list(</pre>
+                      <pre class="language-r">#'   Variables selected for the fill color inside the coloring settings.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">281</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">      anl_input_r = anl_merged_input,</pre>
+                      <pre class="language-r">#'   It will be applied when `color_settings` is set to `TRUE`.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">282</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">      anl_q_r = anl_merged_q</pre>
+                      <pre class="language-r">#' @param size optional, (`data_extract_spec` or `list` of multiple `data_extract_spec`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">283</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#'   Variables selected for the size of `geom_point` plots inside the coloring settings.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">284</td>
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   It will be applied when `color_settings` is set to `TRUE`.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">285</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">    output_q &lt;- reactive({</pre>
+                      <pre class="language-r">#' @param free_x_scales optional, (`logical`) Whether X scaling shall be changeable.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">286</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">      teal::validate_inputs(iv_r())</pre>
+                      <pre class="language-r">#'   Does not allow scaling to be changed by default (`FALSE`).</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">287</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">      ANL &lt;- merged$anl_q_r()[["ANL"]] # nolint: object_name.</pre>
+                      <pre class="language-r">#' @param free_y_scales optional, (`logical`) Whether Y scaling shall be changeable.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">288</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   Does not allow scaling to be changed by default (`FALSE`).</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">289</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # As this is a summary</pre>
+                      <pre class="language-r">#' @param swap_axes optional, (`logical`) Whether to swap X and Y axes. Defaults to `FALSE`.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">290</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">      x_name &lt;- as.vector(merged$anl_input_r()$columns_source$x)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">291</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">      y_name &lt;- as.vector(merged$anl_input_r()$columns_source$y)</pre>
+                      <pre class="language-r">#' @details</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">292</td>
+                    <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' This is a general module to visualize 1 &amp; 2 dimensional data.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">293</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">      teal::validate_has_data(ANL, 3)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">294</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">      teal::validate_has_data(ANL[, c(x_name, y_name)], 3, complete = TRUE, allow_inf = FALSE)</pre>
+                      <pre class="language-r">#' @note</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">295</td>
+                    <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' For more examples, please see the vignette "Using bivariate plot" via</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">296</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">      is_allowed_class &lt;- function(x) is.numeric(x) || is.factor(x) || is.character(x) || is.logical(x)</pre>
+                      <pre class="language-r">#'   `vignette("using-bivariate-plot", package = "teal.modules.general")`.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">297</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">      validate(need(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">298</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">        all(vapply(ANL[x_name], is_allowed_class, logical(1))),</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">299</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">        "Selected row variable has an unsupported data type."</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">300</td>
+                    <td class="num">46</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">301</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">      validate(need(</pre>
+                      <pre class="language-r">#' # general data exapmle</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">302</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">        is_allowed_class(ANL[[y_name]]),</pre>
+                      <pre class="language-r">#' library(teal.widgets)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">303</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">        "Selected column variable has an unsupported data type."</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">304</td>
+                    <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ))</pre>
+                      <pre class="language-r">#' data &lt;- teal_data()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">305</td>
+                    <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' data &lt;- within(data, {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">306</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">      show_percentage &lt;- input$show_percentage</pre>
+                      <pre class="language-r">#'   library(nestcolor)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">307</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">      show_total &lt;- input$show_total</pre>
+                      <pre class="language-r">#'   CO2 &lt;- data.frame(CO2)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">308</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="missed">
-                    <td class="num">309</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">      plot_title &lt;- paste(</pre>
+                      <pre class="language-r">#' datanames(data) &lt;- c("CO2")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">310</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">        "Cross-Table of",</pre>
+                      <pre class="language-r">#' join_keys(data) &lt;- default_cdisc_join_keys[datanames(data)]</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">311</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">        paste0(varname_w_label(x_name, ANL), collapse = ", "),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">312</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">        "(rows)", "vs.",</pre>
+                      <pre class="language-r">#' app &lt;- init(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">313</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">        varname_w_label(y_name, ANL),</pre>
+                      <pre class="language-r">#'   data = data,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">314</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">        "(columns)"</pre>
+                      <pre class="language-r">#'   modules = modules(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">315</td>
+                    <td class="num">61</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#'     tm_g_bivariate(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">316</td>
+                    <td class="num">62</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'       x = data_extract_spec(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">317</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">      labels_vec &lt;- vapply(</pre>
+                      <pre class="language-r">#'         dataname = "CO2",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">318</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">        x_name,</pre>
+                      <pre class="language-r">#'         select = select_spec(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">319</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">        varname_w_label,</pre>
+                      <pre class="language-r">#'           label = "Select variable:",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">320</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">        character(1),</pre>
+                      <pre class="language-r">#'           choices = variable_choices(data[["CO2"]]),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">321</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">        ANL</pre>
+                      <pre class="language-r">#'           selected = "conc",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">322</td>
+                    <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#'           fixed = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">323</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">324</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">      teal.code::eval_code(</pre>
+                      <pre class="language-r">#'       ),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">325</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">        merged$anl_q_r(),</pre>
+                      <pre class="language-r">#'       y = data_extract_spec(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">326</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">        substitute(</pre>
+                      <pre class="language-r">#'         dataname = "CO2",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">327</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">          expr = {</pre>
+                      <pre class="language-r">#'         select = select_spec(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">328</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">            title &lt;- plot_title</pre>
+                      <pre class="language-r">#'           label = "Select variable:",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">329</td>
+                    <td class="num">75</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          },</pre>
+                      <pre class="language-r">#'           choices = variable_choices(data[["CO2"]]),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">330</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">          env = list(plot_title = plot_title)</pre>
+                      <pre class="language-r">#'           selected = "uptake",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">331</td>
+                    <td class="num">77</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#'           multiple = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">332</td>
+                    <td class="num">78</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ) %&gt;%</pre>
+                      <pre class="language-r">#'           fixed = FALSE</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">333</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">        teal.code::eval_code(</pre>
+                      <pre class="language-r">#'         )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">334</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">          substitute(</pre>
+                      <pre class="language-r">#'       ),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">335</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">            expr = {</pre>
+                      <pre class="language-r">#'       row_facet = data_extract_spec(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">336</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">              lyt &lt;- basic_tables %&gt;%</pre>
+                      <pre class="language-r">#'         dataname = "CO2",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">337</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">              split_call %&gt;% # styler: off</pre>
+                      <pre class="language-r">#'         select = select_spec(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">338</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">                rtables::add_colcounts() %&gt;%</pre>
+                      <pre class="language-r">#'           label = "Select variable:",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">339</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">                tern::analyze_vars(</pre>
+                      <pre class="language-r">#'           choices = variable_choices(data[["CO2"]]),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">340</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">                  vars = x_name,</pre>
+                      <pre class="language-r">#'           selected = "Type",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">341</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">                  var_labels = labels_vec,</pre>
+                      <pre class="language-r">#'           fixed = FALSE</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">342</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">                  na.rm = FALSE,</pre>
+                      <pre class="language-r">#'         )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">343</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">                  denom = "N_col",</pre>
+                      <pre class="language-r">#'       ),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">344</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">                  .stats = c("mean_sd", "median", "range", count_value)</pre>
+                      <pre class="language-r">#'       col_facet = data_extract_spec(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">345</td>
+                    <td class="num">91</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                )</pre>
+                      <pre class="language-r">#'         dataname = "CO2",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">346</td>
+                    <td class="num">92</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            },</pre>
+                      <pre class="language-r">#'         select = select_spec(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">347</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">            env = list(</pre>
+                      <pre class="language-r">#'           label = "Select variable:",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">348</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">              basic_tables = teal.widgets::parse_basic_table_args(</pre>
+                      <pre class="language-r">#'           choices = variable_choices(data[["CO2"]]),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">349</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">                basic_table_args = teal.widgets::resolve_basic_table_args(basic_table_args)</pre>
+                      <pre class="language-r">#'           selected = "Treatment",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">350</td>
+                    <td class="num">96</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              ),</pre>
+                      <pre class="language-r">#'           fixed = FALSE</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">351</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">              split_call = if (show_total) {</pre>
+                      <pre class="language-r">#'         )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">352</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">                substitute(</pre>
+                      <pre class="language-r">#'       ),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">353</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">99</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  expr = rtables::split_cols_by(</pre>
+                      <pre class="language-r">#'       ggplot2_args = ggplot2_args(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">354</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">100</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    y_name,</pre>
+                      <pre class="language-r">#'         labs = list(subtitle = "Plot generated by Bivariate Module")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">355</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">                    split_fun = rtables::add_overall_level(label = "Total", first = FALSE)</pre>
+                      <pre class="language-r">#'       )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">356</td>
+                    <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="missed">
-                    <td class="num">357</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">                  env = list(y_name = y_name)</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">358</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">359</td>
+                    <td class="num">105</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              } else {</pre>
+                      <pre class="language-r">#' if (interactive()) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">360</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">                substitute(rtables::split_cols_by(y_name), env = list(y_name = y_name))</pre>
+                      <pre class="language-r">#'   shinyApp(app$ui, app$server)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">361</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="missed">
-                    <td class="num">362</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">              x_name = x_name,</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">109</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              labels_vec = labels_vec,</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">110</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              count_value = ifelse(show_percentage, "count_fraction", "count")</pre>
+                      <pre class="language-r">#' # CDISC data example</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">365</td>
+                    <td class="num">111</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">#' library(teal.widgets)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">366</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">367</td>
+                    <td class="num">113</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ) %&gt;%</pre>
+                      <pre class="language-r">#' data &lt;- teal_data()</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">368</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">        teal.code::eval_code(</pre>
+                      <pre class="language-r">#' data &lt;- within(data, {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">369</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">          substitute(</pre>
+                      <pre class="language-r">#'   library(nestcolor)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">370</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">116</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            expr = {</pre>
+                      <pre class="language-r">#'   ADSL &lt;- rADSL</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">371</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">              ANL &lt;- tern::df_explicit_na(ANL) # nolint: object_name.</pre>
+                      <pre class="language-r">#' })</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">372</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">118</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              tbl &lt;- rtables::build_table(lyt = lyt, df = ANL[order(ANL[[y_name]]), ])</pre>
+                      <pre class="language-r">#' datanames(data) &lt;- c("ADSL")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">373</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">119</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              tbl</pre>
+                      <pre class="language-r">#' join_keys(data) &lt;- default_cdisc_join_keys[datanames(data)]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">374</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="missed">
-                    <td class="num">375</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">            env = list(y_name = y_name)</pre>
+                      <pre class="language-r">#' app &lt;- init(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">376</td>
+                    <td class="num">122</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">377</td>
+                    <td class="num">123</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">378</td>
+                    <td class="num">124</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">#'     tm_g_bivariate(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">379</td>
+                    <td class="num">125</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'       x = data_extract_spec(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">380</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">126</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    output$title &lt;- renderText(output_q()[["title"]])</pre>
+                      <pre class="language-r">#'         dataname = "ADSL",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">381</td>
+                    <td class="num">127</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'         select = select_spec(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">382</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">128</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    table_r &lt;- reactive({</pre>
+                      <pre class="language-r">#'           label = "Select variable:",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">383</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">      shiny::req(iv_r()$is_valid())</pre>
+                      <pre class="language-r">#'           choices = variable_choices(data[["ADSL"]]),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">384</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">130</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      output_q()[["tbl"]]</pre>
+                      <pre class="language-r">#'           selected = "AGE",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">385</td>
+                    <td class="num">131</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">#'           fixed = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">386</td>
+                    <td class="num">132</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">387</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">133</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    teal.widgets::table_with_settings_srv(</pre>
+                      <pre class="language-r">#'       ),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">388</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">134</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      id = "table",</pre>
+                      <pre class="language-r">#'       y = data_extract_spec(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">389</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">      table_r = table_r</pre>
+                      <pre class="language-r">#'         dataname = "ADSL",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">390</td>
+                    <td class="num">136</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#'         select = select_spec(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">391</td>
+                    <td class="num">137</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'           label = "Select variable:",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">392</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">    teal.widgets::verbatim_popup_srv(</pre>
+                      <pre class="language-r">#'           choices = variable_choices(data[["ADSL"]]),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">393</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">      id = "warning",</pre>
+                      <pre class="language-r">#'           selected = "SEX",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">394</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">140</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      verbatim_content = reactive(teal.code::get_warnings(output_q())),</pre>
+                      <pre class="language-r">#'           multiple = FALSE,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">395</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">      title = "Warning",</pre>
+                      <pre class="language-r">#'           fixed = FALSE</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">396</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">      disabled = reactive(is.null(teal.code::get_warnings(output_q())))</pre>
+                      <pre class="language-r">#'         )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">397</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">398</td>
+                    <td class="num">144</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'       row_facet = data_extract_spec(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">399</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">145</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    teal.widgets::verbatim_popup_srv(</pre>
+                      <pre class="language-r">#'         dataname = "ADSL",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">400</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">146</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      id = "rcode",</pre>
+                      <pre class="language-r">#'         select = select_spec(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">401</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">147</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      verbatim_content = reactive(teal.code::get_code(output_q())),</pre>
+                      <pre class="language-r">#'           label = "Select variable:",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">402</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">148</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      title = "Show R Code for Cross-Table"</pre>
+                      <pre class="language-r">#'           choices = variable_choices(data[["ADSL"]]),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">403</td>
+                    <td class="num">149</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#'           selected = "ARM",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">404</td>
+                    <td class="num">150</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'           fixed = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">405</td>
+                    <td class="num">151</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ### REPORTER</pre>
+                      <pre class="language-r">#'         )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">406</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">152</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (with_reporter) {</pre>
+                      <pre class="language-r">#'       ),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">407</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">153</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      card_fun &lt;- function(comment, label) {</pre>
+                      <pre class="language-r">#'       col_facet = data_extract_spec(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">408</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">154</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        card &lt;- teal::report_card_template(</pre>
+                      <pre class="language-r">#'         dataname = "ADSL",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">409</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">155</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          title = "Cross Table",</pre>
+                      <pre class="language-r">#'         select = select_spec(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">410</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">156</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          label = label,</pre>
+                      <pre class="language-r">#'           label = "Select variable:",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">411</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">          with_filter = with_filter,</pre>
+                      <pre class="language-r">#'           choices = variable_choices(data[["ADSL"]]),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">412</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">          filter_panel_api = filter_panel_api</pre>
+                      <pre class="language-r">#'           selected = "COUNTRY",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">413</td>
+                    <td class="num">159</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#'           fixed = FALSE</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">414</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">        card$append_text("Table", "header3")</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">161</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        card$append_table(table_r())</pre>
+                      <pre class="language-r">#'       ),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">416</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">        if (!comment == "") {</pre>
+                      <pre class="language-r">#'       ggplot2_args = ggplot2_args(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">417</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">          card$append_text("Comment", "header3")</pre>
+                      <pre class="language-r">#'         labs = list(subtitle = "Plot generated by Bivariate Module")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">418</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">          card$append_text(comment)</pre>
+                      <pre class="language-r">#'       )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">419</td>
+                    <td class="num">165</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">420</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">        card$append_src(teal.code::get_code(output_q()))</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">421</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">        card</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">422</td>
+                    <td class="num">168</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="missed">
-                    <td class="num">423</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">      teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun)</pre>
+                      <pre class="language-r">#'   shinyApp(app$ui, app$server)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">424</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">425</td>
+                    <td class="num">171</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ###</pre>
+                      <pre class="language-r">tm_g_bivariate &lt;- function(label = "Bivariate Plots",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">426</td>
+                    <td class="num">172</td>
                     <td class="coverage"></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">427</td>
+                    <td class="num">173</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">                           y,</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/tm_missing_data.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">174</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Missing data module</pre>
+                      <pre class="language-r">                           row_facet = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">175</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                           col_facet = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">176</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Present analysis of missing observations and patients.</pre>
+                      <pre class="language-r">                           facet = !is.null(row_facet) || !is.null(col_facet),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">177</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' specifically designed for use with `data.frames`.</pre>
+                      <pre class="language-r">                           color = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">178</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                           fill = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">179</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams teal::module</pre>
+                      <pre class="language-r">                           size = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">180</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams shared_params</pre>
+                      <pre class="language-r">                           use_density = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">181</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param parent_dataname (`character(1)`) If this `dataname` exists in then "the by subject"graph is displayed.</pre>
+                      <pre class="language-r">                           color_settings = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">182</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   For `CDISC` data. In non `CDISC` data this can be ignored. Defaults to `"ADSL"`.</pre>
+                      <pre class="language-r">                           free_x_scales = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">183</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param ggtheme optional, (`character`) `ggplot2` theme to be used by default. Defaults to `"classic"`.</pre>
+                      <pre class="language-r">                           free_y_scales = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">184</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                           plot_height = c(600, 200, 2000),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">185</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @templateVar ggnames "Summary Obs", "Summary Patients", "Combinations Main", "Combinations Hist", "By Subject"</pre>
+                      <pre class="language-r">                           plot_width = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">186</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @template ggplot2_args_multi</pre>
+                      <pre class="language-r">                           rotate_xaxis_labels = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">187</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                           swap_axes = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">188</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">                           ggtheme = c("gray", "bw", "linedraw", "light", "dark", "minimal", "classic", "void"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">189</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(teal.widgets)</pre>
+                      <pre class="language-r">                           ggplot2_args = teal.widgets::ggplot2_args(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</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_output = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">191</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # module specification used in apps below</pre>
+                      <pre class="language-r">                           post_output = NULL) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">19</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">#' tm_missing_data_module &lt;- tm_missing_data(</pre>
+                      <pre class="language-r">  logger::log_info("Initializing tm_g_bivariate")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">20</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">#'   ggplot2_args = list(</pre>
+                      <pre class="language-r">  if (inherits(x, "data_extract_spec")) x &lt;- list(x)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">21</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">#'     "Combinations Hist" = ggplot2_args(</pre>
+                      <pre class="language-r">  if (inherits(y, "data_extract_spec")) y &lt;- list(y)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">22</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">#'       labs = list(subtitle = "Plot produced by Missing Data Module", caption = NULL)</pre>
+                      <pre class="language-r">  if (inherits(row_facet, "data_extract_spec")) row_facet &lt;- list(row_facet)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">23</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">#'     ),</pre>
+                      <pre class="language-r">  if (inherits(col_facet, "data_extract_spec")) col_facet &lt;- list(col_facet)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">24</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">#'     "Combinations Main" = ggplot2_args(labs = list(title = NULL))</pre>
+                      <pre class="language-r">  if (inherits(color, "data_extract_spec")) color &lt;- list(color)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">25</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">198</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">  if (inherits(fill, "data_extract_spec")) fill &lt;- list(fill)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">26</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">#' )</pre>
+                      <pre class="language-r">  if (inherits(size, "data_extract_spec")) size &lt;- list(size)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</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">28</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">#' # general example data</pre>
+                      <pre class="language-r">  checkmate::assert_list(x, types = "data_extract_spec")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">29</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">#' data &lt;- teal_data()</pre>
+                      <pre class="language-r">  if (!all(vapply(x, function(x) !x$select$multiple, logical(1)))) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">30</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">#' data &lt;- within(data, {</pre>
+                      <pre class="language-r">    stop("'x' should not allow multiple selection")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
+                    <td class="num">204</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   library(nestcolor)</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">32</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">#'</pre>
+                      <pre class="language-r">  checkmate::assert_list(y, types = "data_extract_spec")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">33</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">#'   add_nas &lt;- function(x) {</pre>
+                      <pre class="language-r">  if (!all(vapply(y, function(x) !x$select$multiple, logical(1)))) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">34</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">207</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     x[sample(seq_along(x), floor(length(x) * runif(1, .05, .17)))] &lt;- NA</pre>
+                      <pre class="language-r">    stop("'y' should not allow multiple selection")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</td>
+                    <td class="num">208</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     x</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">36</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">209</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   }</pre>
+                      <pre class="language-r">  checkmate::assert_list(row_facet, types = "data_extract_spec", null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">37</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">210</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  if (!all(vapply(row_facet, function(x) !x$select$multiple, logical(1)))) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">38</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">#'   iris &lt;- iris</pre>
+                      <pre class="language-r">    stop("'row_facet' should not allow multiple selection")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">212</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   mtcars &lt;- mtcars</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">213</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  checkmate::assert_list(col_facet, types = "data_extract_spec", null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">41</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">214</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   iris[] &lt;- lapply(iris, add_nas)</pre>
+                      <pre class="language-r">  if (!all(vapply(col_facet, function(x) !x$select$multiple, logical(1)))) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">42</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">#'   mtcars[] &lt;- lapply(mtcars, add_nas)</pre>
+                      <pre class="language-r">    stop("'col_facet' should not allow multiple selection")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <td class="num">216</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   mtcars[["cyl"]] &lt;- as.factor(mtcars[["cyl"]])</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">44</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">#'   mtcars[["gear"]] &lt;- as.factor(mtcars[["gear"]])</pre>
+                      <pre class="language-r">  checkmate::assert_list(color, types = "data_extract_spec", null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">45</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">#' })</pre>
+                      <pre class="language-r">  if (!all(vapply(color, function(x) !x$select$multiple, logical(1)))) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">46</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">#' datanames(data) &lt;- c("iris", "mtcars")</pre>
+                      <pre class="language-r">    stop("'color' should not allow multiple selection")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">47</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">48</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">#' app &lt;- init(</pre>
+                      <pre class="language-r">  checkmate::assert_list(fill, types = "data_extract_spec", null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">49</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">#'   data = data,</pre>
+                      <pre class="language-r">  if (!all(vapply(fill, function(x) !x$select$multiple, logical(1)))) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">50</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">#'   modules = modules(tm_missing_data_module)</pre>
+                      <pre class="language-r">    stop("'fill' should not allow multiple selection")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">51</td>
+                    <td class="num">224</td>
                     <td class="coverage"></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="missed">
+                    <td class="num">225</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' if (interactive()) {</pre>
+                      <pre class="language-r">  checkmate::assert_list(size, types = "data_extract_spec", null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">53</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">#'   shinyApp(app$ui, app$server)</pre>
+                      <pre class="language-r">  if (!all(vapply(size, function(x) !x$select$multiple, logical(1)))) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">54</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">#' }</pre>
+                      <pre class="language-r">    stop("'size' should not allow multiple selection")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">55</td>
+                    <td class="num">228</td>
                     <td class="coverage"></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">229</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # CDISC example data</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">57</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">#' data &lt;- teal_data()</pre>
+                      <pre class="language-r">  ggtheme &lt;- match.arg(ggtheme)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">58</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">231</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' data &lt;- within(data, {</pre>
+                      <pre class="language-r">  checkmate::assert_string(label)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">59</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">232</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   library(nestcolor)</pre>
+                      <pre class="language-r">  checkmate::assert_flag(use_density)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">60</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">233</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ADSL &lt;- rADSL</pre>
+                      <pre class="language-r">  checkmate::assert_flag(color_settings)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">61</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">#'   ADRS &lt;- rADRS</pre>
+                      <pre class="language-r">  checkmate::assert_flag(free_x_scales)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">62</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">#' })</pre>
+                      <pre class="language-r">  checkmate::assert_flag(free_y_scales)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">63</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">#' datanames(data) &lt;- c("ADSL", "ADRS")</pre>
+                      <pre class="language-r">  checkmate::assert_flag(rotate_xaxis_labels)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">64</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">#' join_keys(data) &lt;- default_cdisc_join_keys[datanames(data)]</pre>
+                      <pre class="language-r">  checkmate::assert_flag(swap_axes)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">65</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">#'</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(plot_height, len = 3, any.missing = FALSE, finite = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">66</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">239</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' app &lt;- init(</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(plot_height[1], lower = plot_height[2], upper = plot_height[3], .var.name = "plot_height")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">67</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">#'   data = data,</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(plot_width, len = 3, any.missing = FALSE, null.ok = TRUE, finite = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">68</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">#'   modules = modules(tm_missing_data_module)</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">69</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">#' )</pre>
+                      <pre class="language-r">    plot_width[1],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">70</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">#' if (interactive()) {</pre>
+                      <pre class="language-r">    lower = plot_width[2], upper = plot_width[3], null.ok = TRUE, .var.name = "plot_width"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">71</td>
+                    <td class="num">244</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">72</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">#' }</pre>
+                      <pre class="language-r">  checkmate::assert_class(ggplot2_args, "ggplot2_args")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">73</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">74</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">247</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">  if (color_settings) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">75</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">248</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    if (is.null(color)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">76</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">tm_missing_data &lt;- function(label = "Missing data",</pre>
+                      <pre class="language-r">      color &lt;- x</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">77</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">                            plot_height = c(600, 400, 5000),</pre>
+                      <pre class="language-r">      color[[1]]$select &lt;- teal.transform::select_spec(choices = color[[1]]$select$choices, selected = NULL)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">78</td>
+                    <td class="num">251</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            plot_width = NULL,</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">79</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                            parent_dataname = "ADSL",</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">80</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                            ggtheme = c("classic", "gray", "bw", "linedraw", "light", "dark", "minimal", "void"),</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">81</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">                            ggplot2_args = list(</pre>
+                      <pre class="language-r">    if (is.null(fill)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">82</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">                              "Combinations Hist" = teal.widgets::ggplot2_args(labs = list(caption = NULL)),</pre>
+                      <pre class="language-r">      fill &lt;- x</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">83</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">                              "Combinations Main" = teal.widgets::ggplot2_args(labs = list(title = NULL))</pre>
+                      <pre class="language-r">      fill[[1]]$select &lt;- teal.transform::select_spec(choices = fill[[1]]$select$choices, selected = NULL)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">84</td>
+                    <td class="num">255</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            ),</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">85</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">256</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            pre_output = NULL,</pre>
+                      <pre class="language-r">    if (is.null(size)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">86</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">                            post_output = NULL) {</pre>
+                      <pre class="language-r">      size &lt;- x</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">87</td>
+                    <td class="num">258</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!requireNamespace("gridExtra", quietly = TRUE)) {</pre>
+                      <pre class="language-r">      size[[1]]$select &lt;- teal.transform::select_spec(choices = size[[1]]$select$choices, selected = NULL)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">88</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">259</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stop("Cannot load gridExtra - please install the package or restart your session.")</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">89</td>
+                    <td class="num">260</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">90</td>
+                    <td class="num">261</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!requireNamespace("rlang", quietly = TRUE)) {</pre>
+                      <pre class="language-r">    if (!is.null(c(color, fill, size))) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">91</td>
+                    <td class="num">262</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stop("Cannot load rlang - please install the package or restart your session.")</pre>
+                      <pre class="language-r">      stop("'color_settings' argument needs to be set to TRUE if 'color', 'fill', and/or 'size' is/are supplied.")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">92</td>
+                    <td class="num">263</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">93</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  logger::log_info("Initializing tm_missing_data")</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">264</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (inherits(ggplot2_args, "ggplot2_args")) ggplot2_args &lt;- list(default = ggplot2_args)</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">95</td>
+                    <td class="num">265</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="num">266</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;- as.list(environment())</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">97</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">267</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(parent_dataname, min.len = 0, max.len = 1)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">98</td>
+                    <td class="num">268</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(plot_height, len = 3, any.missing = FALSE, finite = TRUE)</pre>
+                      <pre class="language-r">  data_extract_list &lt;- list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">99</td>
+                    <td class="num">269</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(plot_height[1], lower = plot_height[2], upper = plot_height[3], .var.name = "plot_height")</pre>
+                      <pre class="language-r">    x = x,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">100</td>
+                    <td class="num">270</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(plot_width, len = 3, any.missing = FALSE, null.ok = TRUE, finite = TRUE)</pre>
+                      <pre class="language-r">    y = y,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">101</td>
+                    <td class="num">271</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(</pre>
+                      <pre class="language-r">    row_facet = row_facet,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">102</td>
+                    <td class="num">272</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    plot_width[1],</pre>
+                      <pre class="language-r">    col_facet = col_facet,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">103</td>
+                    <td class="num">273</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lower = plot_width[2], upper = plot_width[3], null.ok = TRUE, .var.name = "plot_width"</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">    color_settings = color_settings,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">105</td>
+                    <td class="num">274</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ggtheme &lt;- match.arg(ggtheme)</pre>
+                      <pre class="language-r">    color = color,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">106</td>
+                    <td class="num">275</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  plot_choices &lt;- c("Summary Obs", "Summary Patients", "Combinations Main", "Combinations Hist", "By Subject")</pre>
+                      <pre class="language-r">    fill = fill,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">107</td>
+                    <td class="num">276</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(ggplot2_args, types = "ggplot2_args")</pre>
+                      <pre class="language-r">    size = size</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">108</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">277</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_subset(names(ggplot2_args), c("default", plot_choices))</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">109</td>
+                    <td class="num">278</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">110</td>
+                    <td class="num">279</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">  module(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">111</td>
+                    <td class="num">280</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    label,</pre>
+                      <pre class="language-r">    label = label,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">112</td>
+                    <td class="num">281</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    server = srv_page_missing_data,</pre>
+                      <pre class="language-r">    server = srv_g_bivariate,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">113</td>
+                    <td class="num">282</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    server_args = list(</pre>
+                      <pre class="language-r">    ui = ui_g_bivariate,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">114</td>
+                    <td class="num">283</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      parent_dataname = parent_dataname, plot_height = plot_height,</pre>
+                      <pre class="language-r">    ui_args = args,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">115</td>
+                    <td class="num">284</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      plot_width = plot_width, ggplot2_args = ggplot2_args, ggtheme = ggtheme</pre>
+                      <pre class="language-r">    server_args = c(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">116</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">285</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ),</pre>
+                      <pre class="language-r">      data_extract_list,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">117</td>
+                    <td class="num">286</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ui = ui_page_missing_data,</pre>
+                      <pre class="language-r">      list(plot_height = plot_height, plot_width = plot_width, ggplot2_args = ggplot2_args)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">118</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">287</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    datanames = "all",</pre>
+                      <pre class="language-r">    ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">119</td>
+                    <td class="num">288</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ui_args = list(pre_output = pre_output, post_output = post_output)</pre>
+                      <pre class="language-r">    datanames = teal.transform::get_extract_datanames(data_extract_list)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">120</td>
+                    <td class="num">289</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">121</td>
+                    <td class="num">290</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">291</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">123</td>
+                    <td class="num">292</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">ui_page_missing_data &lt;- function(id, pre_output = NULL, post_output = NULL) {</pre>
+                      <pre class="language-r">ui_g_bivariate &lt;- function(id, ...) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">124</td>
+                    <td class="num">293</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ns &lt;- NS(id)</pre>
+                      <pre class="language-r">  args &lt;- list(...)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">125</td>
+                    <td class="num">294</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  shiny::tagList(</pre>
+                      <pre class="language-r">  is_single_dataset_value &lt;- teal.transform::is_single_dataset(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">126</td>
+                    <td class="num">295</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    include_css_files("custom"),</pre>
+                      <pre class="language-r">    args$x, args$y, args$row_facet, args$col_facet, args$color, args$fill, args$size</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">127</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">296</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    teal.widgets::standard_layout(</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">297</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      output = teal.widgets::white_small_well(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">129</td>
+                    <td class="num">298</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        div(</pre>
+                      <pre class="language-r">  ns &lt;- NS(id)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">130</td>
+                    <td class="num">299</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          class = "flex",</pre>
+                      <pre class="language-r">  teal.widgets::standard_layout(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">131</td>
+                    <td class="num">300</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          column(</pre>
+                      <pre class="language-r">    output = teal.widgets::white_small_well(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">132</td>
+                    <td class="num">301</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            width = 12,</pre>
+                      <pre class="language-r">      tags$div(teal.widgets::plot_with_settings_ui(id = ns("myplot")))</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">302</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">133</td>
+                    <td class="num">303</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            uiOutput(ns("dataset_tabs"))</pre>
+                      <pre class="language-r">    encoding = div(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">134</td>
+                    <td class="num">304</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">      ### Reporter</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">135</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">        )</pre>
+                      <pre class="language-r">      teal.reporter::simple_reporter_ui(ns("simple_reporter")),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">136</td>
+                    <td class="num">306</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">137</td>
+                    <td class="num">307</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      encoding = div(</pre>
+                      <pre class="language-r">      tags$label("Encodings", class = "text-primary"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">138</td>
+                    <td class="num">308</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        uiOutput(ns("dataset_encodings"))</pre>
+                      <pre class="language-r">      teal.transform::datanames_input(args[c("x", "y", "row_facet", "col_facet", "color", "fill", "size")]),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">139</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">      teal.transform::data_extract_ui(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">140</td>
+                    <td class="num">310</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      uiOutput(ns("dataset_reporter")),</pre>
+                      <pre class="language-r">        id = ns("x"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">141</td>
+                    <td class="num">311</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      pre_output = pre_output,</pre>
+                      <pre class="language-r">        label = "X variable",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">142</td>
+                    <td class="num">312</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      post_output = post_output</pre>
+                      <pre class="language-r">        data_extract_spec = args$x,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">143</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">313</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">        is_single_dataset = is_single_dataset_value</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">144</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">145</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">      teal.transform::data_extract_ui(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">146</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">316</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        id = ns("y"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">147</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">317</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">srv_page_missing_data &lt;- function(id, data, reporter, filter_panel_api, parent_dataname,</pre>
+                      <pre class="language-r">        label = "Y variable",</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">318</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        data_extract_spec = args$y,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">319</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        is_single_dataset = is_single_dataset_value</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">148</td>
+                    <td class="num">320</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  plot_height, plot_width, ggplot2_args, ggtheme) {</pre>
+                      <pre class="language-r">      ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">149</td>
+                    <td class="num">321</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">      conditionalPanel(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">150</td>
+                    <td class="num">322</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    datanames &lt;- isolate(teal.data::datanames(data()))</pre>
+                      <pre class="language-r">        condition =</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">151</td>
+                    <td class="num">323</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    datanames &lt;- Filter(function(name) {</pre>
+                      <pre class="language-r">          "$(\"button[data-id*='-x-dataset'][data-id$='-select']\").text() == '- Nothing selected - ' ||</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">152</td>
+                    <td class="num">324</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      is.data.frame(isolate(data())[[name]])</pre>
+                      <pre class="language-r">          $(\"button[data-id*='-y-dataset'][data-id$='-select']\").text() == '- Nothing selected - ' ",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">153</td>
+                    <td class="num">325</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }, datanames)</pre>
+                      <pre class="language-r">        shinyWidgets::radioGroupButtons(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">154</td>
+                    <td class="num">326</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if_subject_plot &lt;- length(parent_dataname) &gt; 0 &amp;&amp; parent_dataname %in% datanames</pre>
+                      <pre class="language-r">          inputId = ns("use_density"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">155</td>
+                    <td class="num">327</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ns &lt;- session$ns</pre>
+                      <pre class="language-r">          label = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">156</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">328</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          choices = c("frequency", "density"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">157</td>
+                    <td class="num">329</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    output$dataset_tabs &lt;- renderUI({</pre>
+                      <pre class="language-r">          selected = ifelse(args$use_density, "density", "frequency"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">158</td>
+                    <td class="num">330</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      do.call(</pre>
+                      <pre class="language-r">          justified = TRUE</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">331</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="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">159</td>
+                    <td class="num">333</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        tabsetPanel,</pre>
+                      <pre class="language-r">      if (!is.null(args$row_facet) || !is.null(args$col_facet)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">160</td>
+                    <td class="num">334</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        c(</pre>
+                      <pre class="language-r">        div(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">161</td>
+                    <td class="num">335</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          id = ns("dataname_tab"),</pre>
+                      <pre class="language-r">          class = "data-extract-box",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">162</td>
+                    <td class="num">336</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          lapply(</pre>
+                      <pre class="language-r">          tags$label("Facetting"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">163</td>
+                    <td class="num">337</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            datanames,</pre>
+                      <pre class="language-r">          shinyWidgets::switchInput(inputId = ns("facetting"), value = args$facet, size = "mini"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">164</td>
+                    <td class="num">338</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            function(x) {</pre>
+                      <pre class="language-r">          conditionalPanel(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">165</td>
+                    <td class="num">339</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              tabPanel(</pre>
+                      <pre class="language-r">            condition = paste0("input['", ns("facetting"), "']"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">166</td>
+                    <td class="num">340</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                title = x,</pre>
+                      <pre class="language-r">            div(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">167</td>
+                    <td class="num">341</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                column(</pre>
+                      <pre class="language-r">              if (!is.null(args$row_facet)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">168</td>
+                    <td class="num">342</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  width = 12,</pre>
+                      <pre class="language-r">                teal.transform::data_extract_ui(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">169</td>
+                    <td class="num">343</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  div(</pre>
+                      <pre class="language-r">                  id = ns("row_facet"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">170</td>
+                    <td class="num">344</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    class = "mt-4",</pre>
+                      <pre class="language-r">                  label = "Row facetting variable",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">171</td>
+                    <td class="num">345</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    ui_missing_data(id = ns(x), by_subject_plot = if_subject_plot)</pre>
+                      <pre class="language-r">                  data_extract_spec = args$row_facet,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">172</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">346</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  )</pre>
+                      <pre class="language-r">                  is_single_dataset = is_single_dataset_value</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">173</td>
+                    <td class="num">347</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">                )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">174</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">175</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">349</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            }</pre>
+                      <pre class="language-r">              if (!is.null(args$col_facet)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">176</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">350</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <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">        )</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <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">179</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">180</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">181</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    output$dataset_encodings &lt;- renderUI({</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">182</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      tagList(</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">183</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        lapply(</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">184</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          datanames,</pre>
+                      <pre class="language-r">                teal.transform::data_extract_ui(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">185</td>
+                    <td class="num">351</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          function(x) {</pre>
+                      <pre class="language-r">                  id = ns("col_facet"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">186</td>
+                    <td class="num">352</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            conditionalPanel(</pre>
+                      <pre class="language-r">                  label = "Column facetting variable",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">187</td>
+                    <td class="num">353</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              is_tab_active_js(ns("dataname_tab"), x),</pre>
+                      <pre class="language-r">                  data_extract_spec = args$col_facet,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">188</td>
+                    <td class="num">354</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              encoding_missing_data(</pre>
+                      <pre class="language-r">                  is_single_dataset = is_single_dataset_value</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">189</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">355</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                id = ns(x),</pre>
+                      <pre class="language-r">                )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">190</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">356</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                summary_per_patient = if_subject_plot,</pre>
+                      <pre class="language-r">              },</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">191</td>
+                    <td class="num">357</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                ggtheme = ggtheme,</pre>
+                      <pre class="language-r">              checkboxInput(ns("free_x_scales"), "free x scales", value = args$free_x_scales),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">192</td>
+                    <td class="num">358</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                datanames = datanames</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">              checkboxInput(ns("free_y_scales"), "free y scales", value = args$free_y_scales)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">194</td>
+                    <td class="num">359</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">            )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">195</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">196</td>
+                    <td class="num">361</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">197</td>
+                    <td class="num">362</td>
                     <td class="coverage"></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="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">363</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">      if (args$color_settings) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">199</td>
+                    <td class="num">364</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        # Put a grey border around the coloring settings</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">200</td>
+                    <td class="num">365</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    output$dataset_reporter &lt;- renderUI({</pre>
+                      <pre class="language-r">        div(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">201</td>
+                    <td class="num">366</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      lapply(datanames, function(x) {</pre>
+                      <pre class="language-r">          class = "data-extract-box",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">202</td>
+                    <td class="num">367</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        dataname_ns &lt;- NS(ns(x))</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">203</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          tags$label("Color settings"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">204</td>
+                    <td class="num">368</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        conditionalPanel(</pre>
+                      <pre class="language-r">          shinyWidgets::switchInput(inputId = ns("coloring"), value = TRUE, size = "mini"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">205</td>
+                    <td class="num">369</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          is_tab_active_js(ns("dataname_tab"), x),</pre>
+                      <pre class="language-r">          conditionalPanel(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">206</td>
+                    <td class="num">370</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          tagList(</pre>
+                      <pre class="language-r">            condition = paste0("input['", ns("coloring"), "']"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">207</td>
+                    <td class="num">371</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            teal.widgets::verbatim_popup_ui(dataname_ns("warning"), "Show Warnings"),</pre>
+                      <pre class="language-r">            div(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">208</td>
+                    <td class="num">372</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            teal.widgets::verbatim_popup_ui(dataname_ns("rcode"), "Show R code")</pre>
+                      <pre class="language-r">              teal.transform::data_extract_ui(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">209</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">                id = ns("color"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">210</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">374</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">                label = "Outline color by variable",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">211</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">375</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      })</pre>
+                      <pre class="language-r">                data_extract_spec = args$color,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">212</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">    })</pre>
+                      <pre class="language-r">                is_single_dataset = is_single_dataset_value</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">213</td>
+                    <td class="num">377</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">214</td>
+                    <td class="num">378</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lapply(</pre>
+                      <pre class="language-r">              teal.transform::data_extract_ui(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">215</td>
+                    <td class="num">379</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      datanames,</pre>
+                      <pre class="language-r">                id = ns("fill"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">216</td>
+                    <td class="num">380</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      function(x) {</pre>
+                      <pre class="language-r">                label = "Fill color by variable",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">217</td>
+                    <td class="num">381</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        srv_missing_data(</pre>
+                      <pre class="language-r">                data_extract_spec = args$fill,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">218</td>
+                    <td class="num">382</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          id = x,</pre>
+                      <pre class="language-r">                is_single_dataset = is_single_dataset_value</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">219</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">383</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          data = data,</pre>
+                      <pre class="language-r">              ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">220</td>
+                    <td class="num">384</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          reporter = reporter,</pre>
+                      <pre class="language-r">              div(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">221</td>
+                    <td class="num">385</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          filter_panel_api = filter_panel_api,</pre>
+                      <pre class="language-r">                id = ns("size_settings"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">222</td>
+                    <td class="num">386</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          dataname = x,</pre>
+                      <pre class="language-r">                teal.transform::data_extract_ui(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">223</td>
+                    <td class="num">387</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          parent_dataname = parent_dataname,</pre>
+                      <pre class="language-r">                  id = ns("size"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">224</td>
+                    <td class="num">388</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          plot_height = plot_height,</pre>
+                      <pre class="language-r">                  label = "Size of points by variable (only if x and y are numeric)",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">225</td>
+                    <td class="num">389</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          plot_width = plot_width,</pre>
+                      <pre class="language-r">                  data_extract_spec = args$size,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">226</td>
+                    <td class="num">390</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ggplot2_args = ggplot2_args</pre>
+                      <pre class="language-r">                  is_single_dataset = is_single_dataset_value</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">227</td>
+                    <td class="num">391</td>
                     <td class="coverage"></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">392</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">              )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">229</td>
+                    <td class="num">393</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">230</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">231</td>
+                    <td class="num">395</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">232</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="never">
-                    <td class="num">233</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">ui_missing_data &lt;- function(id, by_subject_plot = FALSE) {</pre>
+                      <pre class="language-r">      teal.widgets::panel_group(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">234</td>
+                    <td class="num">398</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ns &lt;- NS(id)</pre>
+                      <pre class="language-r">        teal.widgets::panel_item(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">235</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"></pre>
+                      <pre class="language-r">          title = "Plot settings",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">236</td>
+                    <td class="num">400</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  tab_list &lt;- list(</pre>
+                      <pre class="language-r">          checkboxInput(ns("rotate_xaxis_labels"), "Rotate X axis labels", value = args$rotate_xaxis_labels),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">237</td>
+                    <td class="num">401</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tabPanel(</pre>
+                      <pre class="language-r">          checkboxInput(ns("swap_axes"), "Swap axes", value = args$swap_axes),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">238</td>
+                    <td class="num">402</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Summary",</pre>
+                      <pre class="language-r">          selectInput(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">239</td>
+                    <td class="num">403</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.widgets::plot_with_settings_ui(id = ns("summary_plot")),</pre>
+                      <pre class="language-r">            inputId = ns("ggtheme"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">240</td>
+                    <td class="num">404</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      helpText(</pre>
+                      <pre class="language-r">            label = "Theme (by ggplot):",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">241</td>
+                    <td class="num">405</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        p(paste(</pre>
+                      <pre class="language-r">            choices = ggplot_themes,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">242</td>
+                    <td class="num">406</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          'The "Summary" graph shows the number of missing values per variable (both absolute and percentage),',</pre>
+                      <pre class="language-r">            selected = args$ggtheme,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">243</td>
+                    <td class="num">407</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "sorted by magnitude."</pre>
+                      <pre class="language-r">            multiple = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">244</td>
+                    <td class="num">408</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">245</td>
+                    <td class="num">409</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        p(</pre>
+                      <pre class="language-r">          sliderInput(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">246</td>
+                    <td class="num">410</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          'The "summary per patients" graph is showing how many subjects have at least one missing observation',</pre>
+                      <pre class="language-r">            ns("alpha"), "Opacity Scatterplot:",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">247</td>
+                    <td class="num">411</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "for each variable. It will be most useful for panel datasets."</pre>
+                      <pre class="language-r">            min = 0, max = 1,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">248</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">        )</pre>
+                      <pre class="language-r">            step = .05, value = .5, ticks = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">249</td>
+                    <td class="num">413</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">          ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">250</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">          sliderInput(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">251</td>
+                    <td class="num">415</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tabPanel(</pre>
+                      <pre class="language-r">            ns("fixed_size"), "Scatterplot point size:",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">252</td>
+                    <td class="num">416</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Combinations",</pre>
+                      <pre class="language-r">            min = 1, max = 8,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">253</td>
+                    <td class="num">417</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.widgets::plot_with_settings_ui(id = ns("combination_plot")),</pre>
+                      <pre class="language-r">            step = 1, value = 2, ticks = FALSE</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">254</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">418</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      helpText(</pre>
+                      <pre class="language-r">          ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">255</td>
+                    <td class="num">419</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        p(paste(</pre>
+                      <pre class="language-r">          checkboxInput(ns("add_lines"), "Add lines"),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">256</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">420</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          'The "Combinations" graph is used to explore the relationship between the missing data within',</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">257</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">421</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "different columns of the dataset.",</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">258</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">422</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "It shows the different patterns of missingness in the rows of the data.",</pre>
+                      <pre class="language-r">    ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">259</td>
+                    <td class="num">423</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          'For example, suppose that 70 rows of the data have exactly columns "A" and "B" missing.',</pre>
+                      <pre class="language-r">    forms = tagList(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">260</td>
+                    <td class="num">424</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "In this case there would be a bar of height 70 in the top graph and",</pre>
+                      <pre class="language-r">      teal.widgets::verbatim_popup_ui(ns("warning"), button_label = "Show Warnings"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">261</td>
+                    <td class="num">425</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          'the column below this in the second graph would have rows "A" and "B" cells shaded red.'</pre>
+                      <pre class="language-r">      teal.widgets::verbatim_popup_ui(ns("rcode"), "Show R code")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">262</td>
+                    <td class="num">426</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">263</td>
+                    <td class="num">427</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        p(paste(</pre>
+                      <pre class="language-r">    pre_output = args$pre_output,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">264</td>
+                    <td class="num">428</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "Due to the large number of missing data patterns possible, only those with a large set of observations",</pre>
+                      <pre class="language-r">    post_output = args$post_output</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">265</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">429</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          'are shown in the graph and the "Combination cut-off" slider can be used to adjust the number shown.'</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">266</td>
+                    <td class="num">430</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ))</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">267</td>
+                    <td class="num">431</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">268</td>
+                    <td class="num">432</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">269</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">    tabPanel(</pre>
+                      <pre class="language-r">srv_g_bivariate &lt;- function(id,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">270</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">      "By Variable Levels",</pre>
+                      <pre class="language-r">                            data,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">271</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">      teal.widgets::get_dt_rows(ns("levels_table"), ns("levels_table_rows")),</pre>
+                      <pre class="language-r">                            reporter,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">272</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">      DT::dataTableOutput(ns("levels_table"))</pre>
+                      <pre class="language-r">                            filter_panel_api,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">273</td>
+                    <td class="num">437</td>
                     <td class="coverage"></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">274</td>
+                    <td class="num">438</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">                            y,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">275</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">  if (isTRUE(by_subject_plot)) {</pre>
+                      <pre class="language-r">                            row_facet,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">276</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">440</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tab_list &lt;- append(</pre>
+                      <pre class="language-r">                            col_facet,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">277</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">441</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      tab_list,</pre>
+                      <pre class="language-r">                            color_settings = FALSE,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">278</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">442</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      list(tabPanel(</pre>
+                      <pre class="language-r">                            color,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">279</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">        "Grouped by Subject",</pre>
+                      <pre class="language-r">                            fill,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">280</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">444</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        teal.widgets::plot_with_settings_ui(id = ns("by_subject_plot")),</pre>
+                      <pre class="language-r">                            size,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">281</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">445</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        helpText(</pre>
+                      <pre class="language-r">                            plot_height,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">282</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">446</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          p(paste(</pre>
+                      <pre class="language-r">                            plot_width,</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">447</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                            ggplot2_args) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">283</td>
+                    <td class="num">448</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            "This graph shows the missingness with respect to subjects rather than individual rows of the",</pre>
+                      <pre class="language-r">  with_reporter &lt;- !missing(reporter) &amp;&amp; inherits(reporter, "Reporter")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">284</td>
+                    <td class="num">449</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            "dataset. Each row represents one dataset variable and each column a single subject. Only subjects",</pre>
+                      <pre class="language-r">  with_filter &lt;- !missing(filter_panel_api) &amp;&amp; inherits(filter_panel_api, "FilterPanelAPI")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">285</td>
+                    <td class="num">450</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            "with at least one record in this dataset are shown. For a given subject, if they have any missing",</pre>
+                      <pre class="language-r">  checkmate::assert_class(data, "reactive")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">286</td>
+                    <td class="num">451</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            "values of a specific variable then the appropriate cell in the graph is marked as missing."</pre>
+                      <pre class="language-r">  checkmate::assert_class(isolate(data()), "teal_data")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">287</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">452</td>
+                    <td class="coverage">!</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">288</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">453</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">    data_extract &lt;- list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">289</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">454</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ))</pre>
+                      <pre class="language-r">      x = x, y = y, row_facet = row_facet, col_facet = col_facet,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">290</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">      color = color, fill = fill, size = size</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">291</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">292</td>
+                    <td class="num">457</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">293</td>
+                    <td class="num">458</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  do.call(</pre>
+                      <pre class="language-r">    rule_var &lt;- function(other) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">294</td>
+                    <td class="num">459</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tabsetPanel,</pre>
+                      <pre class="language-r">      function(value) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">295</td>
+                    <td class="num">460</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    c(</pre>
+                      <pre class="language-r">        othervalue &lt;- selector_list()[[other]]()$select</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">296</td>
+                    <td class="num">461</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      id = ns("summary_type"),</pre>
+                      <pre class="language-r">        if (length(value) == 0L &amp;&amp; length(othervalue) == 0L) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">297</td>
+                    <td class="num">462</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      tab_list</pre>
+                      <pre class="language-r">          "Please select at least one of x-variable or y-variable"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">298</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">299</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="never">
-                    <td class="num">300</td>
+                    <td class="num">465</td>
                     <td class="coverage"></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="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">466</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    rule_diff &lt;- function(other) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">302</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">467</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">encoding_missing_data &lt;- function(id, summary_per_patient = FALSE, ggtheme, datanames) {</pre>
+                      <pre class="language-r">      function(value) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">303</td>
+                    <td class="num">468</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ns &lt;- NS(id)</pre>
+                      <pre class="language-r">        othervalue &lt;- selector_list()[[other]]()[["select"]]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">304</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">469</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        if (!is.null(othervalue)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">305</td>
+                    <td class="num">470</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  tagList(</pre>
+                      <pre class="language-r">          if (identical(value, othervalue)) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">471</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            "Row and column facetting variables must be different."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">306</td>
+                    <td class="num">472</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ### Reporter</pre>
+                      <pre class="language-r">          }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">307</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">473</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    teal.reporter::simple_reporter_ui(ns("simple_reporter")),</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">308</td>
+                    <td class="num">474</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">309</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">475</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tags$label("Encodings", class = "text-primary"),</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">310</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">476</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    helpText(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">311</td>
+                    <td class="num">477</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      paste0("Dataset", `if`(length(datanames) &gt; 1, "s", ""), ":"),</pre>
+                      <pre class="language-r">    selector_list &lt;- teal.transform::data_extract_multiple_srv(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">312</td>
+                    <td class="num">478</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      tags$code(paste(datanames, collapse = ", "))</pre>
+                      <pre class="language-r">      data_extract = data_extract,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">313</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">479</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ),</pre>
+                      <pre class="language-r">      datasets = data,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">314</td>
+                    <td class="num">480</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    uiOutput(ns("variables")),</pre>
+                      <pre class="language-r">      select_validation_rule = list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">315</td>
+                    <td class="num">481</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    actionButton(</pre>
+                      <pre class="language-r">        x = rule_var("y"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">316</td>
+                    <td class="num">482</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ns("filter_na"),</pre>
+                      <pre class="language-r">        y = rule_var("x"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">317</td>
+                    <td class="num">483</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      span("Select only vars with missings", class = "whitespace-normal"),</pre>
+                      <pre class="language-r">        row_facet = shinyvalidate::compose_rules(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">318</td>
+                    <td class="num">484</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      width = "100%",</pre>
+                      <pre class="language-r">          shinyvalidate::sv_optional(),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">319</td>
+                    <td class="num">485</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      class = "mb-4"</pre>
+                      <pre class="language-r">          rule_diff("col_facet")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">320</td>
+                    <td class="num">486</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ),</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">321</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    conditionalPanel(</pre>
+                      <pre class="language-r">        ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">322</td>
+                    <td class="num">487</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      is_tab_active_js(ns("summary_type"), "Summary"),</pre>
+                      <pre class="language-r">        col_facet = shinyvalidate::compose_rules(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">323</td>
+                    <td class="num">488</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkboxInput(</pre>
+                      <pre class="language-r">          shinyvalidate::sv_optional(),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">324</td>
+                    <td class="num">489</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ns("any_na"),</pre>
+                      <pre class="language-r">          rule_diff("row_facet")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">325</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">490</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">326</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">491</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          class = "teal-tooltip",</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">327</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">492</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="missed">
-                    <td class="num">328</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">493</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            "Add **anyna** variable",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">329</td>
+                    <td class="num">494</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            icon("circle-info"),</pre>
+                      <pre class="language-r">    iv_r &lt;- reactive({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">330</td>
+                    <td class="num">495</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            span(</pre>
+                      <pre class="language-r">      iv_facet &lt;- shinyvalidate::InputValidator$new()</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">331</td>
+                    <td class="num">496</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              class = "tooltiptext",</pre>
+                      <pre class="language-r">      iv_child &lt;- teal.transform::compose_and_enable_validators(iv_facet, selector_list,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">332</td>
+                    <td class="num">497</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              "Describes the number of observations with at least one missing value in any variable."</pre>
+                      <pre class="language-r">        validator_names = c("row_facet", "col_facet")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">333</td>
+                    <td class="num">498</td>
                     <td class="coverage"></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="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">499</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">      iv_child$condition(~ isTRUE(input$facetting))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">335</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="missed">
-                    <td class="num">336</td>
+                    <td class="num">501</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        value = FALSE</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">337</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      ),</pre>
+                      <pre class="language-r">      iv &lt;- shinyvalidate::InputValidator$new()</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">338</td>
+                    <td class="num">502</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (summary_per_patient) {</pre>
+                      <pre class="language-r">      iv$add_validator(iv_child)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">339</td>
+                    <td class="num">503</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        checkboxInput(</pre>
+                      <pre class="language-r">      teal.transform::compose_and_enable_validators(iv, selector_list, validator_names = c("x", "y"))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">340</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">504</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ns("if_patients_plot"),</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">341</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">505</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">342</td>
+                    <td class="num">506</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            class = "teal-tooltip",</pre>
+                      <pre class="language-r">    anl_merged_input &lt;- teal.transform::merge_expression_srv(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">343</td>
+                    <td class="num">507</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            tagList(</pre>
+                      <pre class="language-r">      selector_list = selector_list,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">344</td>
+                    <td class="num">508</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              "Add summary per patients",</pre>
+                      <pre class="language-r">      datasets = data</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">345</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">509</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              icon("circle-info"),</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">510</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              span(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">347</td>
+                    <td class="num">511</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                class = "tooltiptext",</pre>
+                      <pre class="language-r">    anl_merged_q &lt;- reactive({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">348</td>
+                    <td class="num">512</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                paste(</pre>
+                      <pre class="language-r">      req(anl_merged_input())</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">349</td>
+                    <td class="num">513</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  "Displays the number of missing values per observation,",</pre>
+                      <pre class="language-r">      data() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">350</td>
+                    <td class="num">514</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  "where the x-axis is sorted by observation appearance in the table."</pre>
+                      <pre class="language-r">        teal.code::eval_code(as.expression(anl_merged_input()$expr))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">351</td>
+                    <td class="num">515</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                )</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">352</td>
+                    <td class="num">516</td>
                     <td class="coverage"></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="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">517</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">    merged &lt;- list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">354</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">518</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ),</pre>
+                      <pre class="language-r">      anl_input_r = anl_merged_input,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">355</td>
+                    <td class="num">519</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          value = FALSE</pre>
+                      <pre class="language-r">      anl_q_r = anl_merged_q</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">356</td>
+                    <td class="num">520</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">357</td>
+                    <td class="num">521</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">358</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">522</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ),</pre>
+                      <pre class="language-r">    output_q &lt;- reactive({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">359</td>
+                    <td class="num">523</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    conditionalPanel(</pre>
+                      <pre class="language-r">      teal::validate_inputs(iv_r())</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">524</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="num">525</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      is_tab_active_js(ns("summary_type"), "Combinations"),</pre>
+                      <pre class="language-r">      ANL &lt;- merged$anl_q_r()[["ANL"]] # nolint: object_name.</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">361</td>
+                    <td class="num">526</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      uiOutput(ns("cutoff"))</pre>
+                      <pre class="language-r">      teal::validate_has_data(ANL, 3)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">362</td>
+                    <td class="num">527</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">363</td>
+                    <td class="num">528</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    conditionalPanel(</pre>
+                      <pre class="language-r">      x_col_vec &lt;- as.vector(merged$anl_input_r()$columns_source$x)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">364</td>
+                    <td class="num">529</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      is_tab_active_js(ns("summary_type"), "By Variable Levels"),</pre>
+                      <pre class="language-r">      x_name &lt;- `if`(is.null(x_col_vec), character(0), x_col_vec)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">365</td>
+                    <td class="num">530</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      tagList(</pre>
+                      <pre class="language-r">      y_col_vec &lt;- as.vector(merged$anl_input_r()$columns_source$y)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">366</td>
+                    <td class="num">531</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        uiOutput(ns("group_by_var_ui")),</pre>
+                      <pre class="language-r">      y_name &lt;- `if`(is.null(y_col_vec), character(0), y_col_vec)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">367</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        uiOutput(ns("group_by_vals_ui")),</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">368</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        radioButtons(</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">369</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">532</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ns("count_type"),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">370</td>
+                    <td class="num">533</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          label = "Display missing as",</pre>
+                      <pre class="language-r">      row_facet_name &lt;- as.vector(merged$anl_input_r()$columns_source$row_facet)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">371</td>
+                    <td class="num">534</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          choices = c("counts", "proportions"),</pre>
+                      <pre class="language-r">      col_facet_name &lt;- as.vector(merged$anl_input_r()$columns_source$col_facet)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">372</td>
+                    <td class="num">535</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          selected = "counts",</pre>
+                      <pre class="language-r">      color_name &lt;- if ("color" %in% names(merged$anl_input_r()$columns_source)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">373</td>
+                    <td class="num">536</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          inline = TRUE</pre>
+                      <pre class="language-r">        as.vector(merged$anl_input_r()$columns_source$color)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">374</td>
+                    <td class="num">537</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">375</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">        character(0)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">376</td>
+                    <td class="num">539</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ),</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">377</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    teal.widgets::panel_item(</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">378</td>
+                    <td class="num">540</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      title = "Plot settings",</pre>
+                      <pre class="language-r">      fill_name &lt;- if ("fill" %in% names(merged$anl_input_r()$columns_source)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">379</td>
+                    <td class="num">541</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      selectInput(</pre>
+                      <pre class="language-r">        as.vector(merged$anl_input_r()$columns_source$fill)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">380</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">542</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        inputId = ns("ggtheme"),</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">381</td>
+                    <td class="num">543</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        label = "Theme (by ggplot):",</pre>
+                      <pre class="language-r">        character(0)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">382</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">544</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        choices = ggplot_themes,</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">383</td>
+                    <td class="num">545</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        selected = ggtheme,</pre>
+                      <pre class="language-r">      size_name &lt;- if ("size" %in% names(merged$anl_input_r()$columns_source)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">384</td>
+                    <td class="num">546</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        multiple = FALSE</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">385</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">        as.vector(merged$anl_input_r()$columns_source$size)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">386</td>
+                    <td class="num">547</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">387</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">  )</pre>
+                      <pre class="language-r">        character(0)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">388</td>
+                    <td class="num">549</td>
                     <td class="coverage"></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">550</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">390</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">srv_missing_data &lt;- function(id, data, reporter, filter_panel_api, dataname, parent_dataname,</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">391</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">                             plot_height, plot_width, ggplot2_args) {</pre>
+                      <pre class="language-r">      use_density &lt;- input$use_density == "density"</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">392</td>
+                    <td class="num">552</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  with_reporter &lt;- !missing(reporter) &amp;&amp; inherits(reporter, "Reporter")</pre>
+                      <pre class="language-r">      free_x_scales &lt;- input$free_x_scales</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">393</td>
+                    <td class="num">553</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  with_filter &lt;- !missing(filter_panel_api) &amp;&amp; inherits(filter_panel_api, "FilterPanelAPI")</pre>
+                      <pre class="language-r">      free_y_scales &lt;- input$free_y_scales</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">394</td>
+                    <td class="num">554</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(data, "reactive")</pre>
+                      <pre class="language-r">      ggtheme &lt;- input$ggtheme</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">395</td>
+                    <td class="num">555</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">      rotate_xaxis_labels &lt;- input$rotate_xaxis_labels</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">396</td>
+                    <td class="num">556</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">      swap_axes &lt;- input$swap_axes</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">397</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">557</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    prev_group_by_var &lt;- reactiveVal("")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">398</td>
+                    <td class="num">558</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    data_r &lt;- reactive(data()[[dataname]])</pre>
+                      <pre class="language-r">      is_scatterplot &lt;- all(vapply(ANL[c(x_name, y_name)], is.numeric, logical(1))) &amp;&amp;</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">399</td>
+                    <td class="num">559</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    data_keys &lt;- reactive(unlist(teal.data::join_keys(data())[[dataname]]))</pre>
+                      <pre class="language-r">        length(x_name) &gt; 0 &amp;&amp; length(y_name) &gt; 0</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">400</td>
+                    <td class="num">560</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">401</td>
+                    <td class="num">561</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    iv_r &lt;- reactive({</pre>
+                      <pre class="language-r">      if (is_scatterplot) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">402</td>
+                    <td class="num">562</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv &lt;- shinyvalidate::InputValidator$new()</pre>
+                      <pre class="language-r">        shinyjs::show("alpha")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">403</td>
+                    <td class="num">563</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv$add_rule(</pre>
+                      <pre class="language-r">        alpha &lt;- input$alpha</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">404</td>
+                    <td class="num">564</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "variables_select",</pre>
+                      <pre class="language-r">        shinyjs::show("add_lines")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">405</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">565</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        shinyvalidate::sv_required("At least one reference variable needs to be selected.")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">406</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">      )</pre>
+                      <pre class="language-r">        if (color_settings &amp;&amp; input$coloring) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">407</td>
+                    <td class="num">567</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv$add_rule(</pre>
+                      <pre class="language-r">          shinyjs::hide("fixed_size")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">408</td>
+                    <td class="num">568</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "variables_select",</pre>
+                      <pre class="language-r">          shinyjs::show("size_settings")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">409</td>
+                    <td class="num">569</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ~ if (length(setdiff((.), data_keys())) &lt; 1) "Please also select non-key columns."</pre>
+                      <pre class="language-r">          size &lt;- NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">410</td>
+                    <td class="num">570</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">411</td>
+                    <td class="num">571</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv_summary_table &lt;- shinyvalidate::InputValidator$new()</pre>
+                      <pre class="language-r">          shinyjs::show("fixed_size")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">412</td>
+                    <td class="num">572</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv_summary_table$condition(~ isTRUE(input$summary_type == "By Variable Levels"))</pre>
+                      <pre class="language-r">          size &lt;- input$fixed_size</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">413</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">573</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv_summary_table$add_rule("count_type", shinyvalidate::sv_required("Please select type of counts"))</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">414</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">574</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv_summary_table$add_rule(</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">415</td>
+                    <td class="num">575</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "group_by_vals",</pre>
+                      <pre class="language-r">        shinyjs::hide("add_lines")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">416</td>
+                    <td class="num">576</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        shinyvalidate::sv_required("Please select both group-by variable and values")</pre>
+                      <pre class="language-r">        updateCheckboxInput(session, "add_lines", value = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">417</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">577</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">        shinyjs::hide("alpha")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">418</td>
+                    <td class="num">578</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv_summary_table$add_rule(</pre>
+                      <pre class="language-r">        shinyjs::hide("fixed_size")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">419</td>
+                    <td class="num">579</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "group_by_var",</pre>
+                      <pre class="language-r">        shinyjs::hide("size_settings")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">420</td>
+                    <td class="num">580</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ~ if (length(.) &gt; 0 &amp;&amp; length(input$variables_select) == 1 &amp;&amp; (.) == input$variables_select) {</pre>
+                      <pre class="language-r">        alpha &lt;- 1</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">421</td>
+                    <td class="num">581</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "If only one reference variable is selected it must not be the grouping variable."</pre>
+                      <pre class="language-r">        size &lt;- NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">422</td>
+                    <td class="num">582</td>
                     <td class="coverage"></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="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="missed">
-                    <td class="num">424</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">584</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv_summary_table$add_rule(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">425</td>
+                    <td class="num">585</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "variables_select",</pre>
+                      <pre class="language-r">      teal::validate_has_data(ANL[, c(x_name, y_name)], 3, complete = TRUE, allow_inf = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">426</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">        ~ if (length(input$group_by_var) &gt; 0 &amp;&amp; length(.) == 1 &amp;&amp; (.) == input$group_by_var) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">427</td>
+                    <td class="num">587</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "If only one reference variable is selected it must not be the grouping variable."</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">428</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">      cl &lt;- bivariate_plot_call(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">429</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">588</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">        data_name = "ANL",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">430</td>
+                    <td class="num">589</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv$add_validator(iv_summary_table)</pre>
+                      <pre class="language-r">        x = x_name,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">431</td>
+                    <td class="num">590</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv$enable()</pre>
+                      <pre class="language-r">        y = y_name,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">432</td>
+                    <td class="num">591</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv</pre>
+                      <pre class="language-r">        x_class = ifelse(!identical(x_name, character(0)), class(ANL[[x_name]]), "NULL"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">433</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">592</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">        y_class = ifelse(!identical(y_name, character(0)), class(ANL[[y_name]]), "NULL"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">434</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">593</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        x_label = varname_w_label(x_name, ANL),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">435</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">594</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        y_label = varname_w_label(y_name, ANL),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">436</td>
+                    <td class="num">595</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    data_parent_keys &lt;- reactive({</pre>
+                      <pre class="language-r">        freq = !use_density,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">437</td>
+                    <td class="num">596</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (length(parent_dataname) &gt; 0 &amp;&amp; parent_dataname %in% names(data)) {</pre>
+                      <pre class="language-r">        theme = ggtheme,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">438</td>
+                    <td class="num">597</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        keys &lt;- teal.data::join_keys(data)[[dataname]]</pre>
+                      <pre class="language-r">        rotate_xaxis_labels = rotate_xaxis_labels,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">439</td>
+                    <td class="num">598</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (parent_dataname %in% names(keys)) {</pre>
+                      <pre class="language-r">        swap_axes = swap_axes,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">440</td>
+                    <td class="num">599</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          keys[[parent_dataname]]</pre>
+                      <pre class="language-r">        alpha = alpha,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">441</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">600</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        } else {</pre>
+                      <pre class="language-r">        size = size,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">442</td>
+                    <td class="num">601</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          keys[[dataname]]</pre>
+                      <pre class="language-r">        ggplot2_args = ggplot2_args</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">443</td>
+                    <td class="num">602</td>
                     <td class="coverage"></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="num">603</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">445</td>
+                    <td class="num">604</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        NULL</pre>
+                      <pre class="language-r">      facetting &lt;- (isTRUE(input$facetting) &amp;&amp; (!is.null(row_facet_name) || !is.null(col_facet_name)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">446</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">447</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">606</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">      if (facetting) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">607</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        facet_cl &lt;- facet_ggplot_call(row_facet_name, col_facet_name, free_x_scales, free_y_scales)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">448</td>
+                    <td class="num">608</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">449</td>
+                    <td class="num">609</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    common_code_q &lt;- reactive({</pre>
+                      <pre class="language-r">        if (!is.null(facet_cl)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">450</td>
+                    <td class="num">610</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal::validate_inputs(iv_r())</pre>
+                      <pre class="language-r">          cl &lt;- call("+", cl, facet_cl)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">451</td>
+                    <td class="num">611</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">612</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">613</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">452</td>
+                    <td class="num">614</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      group_var &lt;- input$group_by_var</pre>
+                      <pre class="language-r">      if (input$add_lines) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">453</td>
+                    <td class="num">615</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      anl &lt;- data_r()</pre>
+                      <pre class="language-r">        cl &lt;- call("+", cl, quote(geom_line(size = 1)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">454</td>
+                    <td class="num">616</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">617</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">455</td>
+                    <td class="num">618</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      qenv &lt;- if (!is.null(selected_vars()) &amp;&amp; length(selected_vars()) != ncol(anl)) {</pre>
+                      <pre class="language-r">      coloring_cl &lt;- NULL</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">456</td>
+                    <td class="num">619</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        teal.code::eval_code(</pre>
+                      <pre class="language-r">      if (color_settings) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">457</td>
+                    <td class="num">620</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          data(),</pre>
+                      <pre class="language-r">        if (input$coloring) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">458</td>
+                    <td class="num">621</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          substitute(</pre>
+                      <pre class="language-r">          coloring_cl &lt;- coloring_ggplot_call(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">459</td>
+                    <td class="num">622</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            expr = ANL &lt;- anl_name[, selected_vars, drop = FALSE], # nolint: object_name.</pre>
+                      <pre class="language-r">            colour = color_name,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">460</td>
+                    <td class="num">623</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            env = list(anl_name = as.name(dataname), selected_vars = selected_vars())</pre>
+                      <pre class="language-r">            fill = fill_name,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">461</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">624</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">            size = size_name,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">462</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">625</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">            is_point = any(grepl("geom_point", cl %&gt;% deparse()))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">463</td>
+                    <td class="num">626</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">464</td>
+                    <td class="num">627</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        teal.code::eval_code(</pre>
+                      <pre class="language-r">          legend_lbls &lt;- substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">465</td>
+                    <td class="num">628</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          data(),</pre>
+                      <pre class="language-r">            expr = labs(color = color_name, fill = fill_name, size = size_name),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">466</td>
+                    <td class="num">629</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          substitute(expr = ANL &lt;- anl_name, env = list(anl_name = as.name(dataname))) # nolint: object_name.</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">467</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">            env = list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">468</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">630</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">              color_name = varname_w_label(color_name, ANL),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">469</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">631</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">              fill_name = varname_w_label(fill_name, ANL),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">470</td>
+                    <td class="num">632</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (input$summary_type == "By Variable Levels" &amp;&amp; !is.null(group_var) &amp;&amp; !(group_var %in% selected_vars())) {</pre>
+                      <pre class="language-r">              size_name = varname_w_label(size_name, ANL)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">471</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">633</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        qenv &lt;- teal.code::eval_code(</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">472</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">634</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          qenv,</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">473</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">635</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          substitute(</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">474</td>
+                    <td class="num">636</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            expr = ANL[[group_var]] &lt;- anl_name[[group_var]], # nolint: object_name.</pre>
+                      <pre class="language-r">        if (!is.null(coloring_cl)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">475</td>
+                    <td class="num">637</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            env = list(group_var = group_var, anl_name = as.name(dataname))</pre>
+                      <pre class="language-r">          cl &lt;- call("+", call("+", cl, coloring_cl), legend_lbls)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">476</td>
+                    <td class="num">638</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">477</td>
+                    <td class="num">639</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">478</td>
+                    <td class="num">640</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">479</td>
+                    <td class="num">641</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      # Add labels to facets</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">480</td>
+                    <td class="num">642</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      new_col_name &lt;- "**anyna**"</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">481</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      nulled_row_facet_name &lt;- varname_w_label(row_facet_name, ANL)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">482</td>
+                    <td class="num">643</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      qenv &lt;- teal.code::eval_code(</pre>
+                      <pre class="language-r">      nulled_col_facet_name &lt;- varname_w_label(col_facet_name, ANL)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">483</td>
+                    <td class="num">644</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        qenv,</pre>
+                      <pre class="language-r">      without_facet &lt;- (is.null(nulled_row_facet_name) &amp;&amp; is.null(nulled_col_facet_name)) || !facetting</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">484</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">645</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        substitute(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">485</td>
+                    <td class="num">646</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          expr =</pre>
+                      <pre class="language-r">      print_call &lt;- if (without_facet) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">486</td>
+                    <td class="num">647</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            create_cols_labels &lt;- function(cols, just_label = FALSE) {</pre>
+                      <pre class="language-r">        quote(print(p))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">487</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">              column_labels &lt;- column_labels_value</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">488</td>
+                    <td class="num">649</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              column_labels[is.na(column_labels) | length(column_labels) == 0] &lt;- ""</pre>
+                      <pre class="language-r">        substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">489</td>
+                    <td class="num">650</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              if (just_label) {</pre>
+                      <pre class="language-r">          expr = {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">490</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">651</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                labels &lt;- column_labels[cols]</pre>
+                      <pre class="language-r">            # Add facetting labels</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">491</td>
+                    <td class="num">652</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              } else {</pre>
+                      <pre class="language-r">            # optional: grid.newpage() # nolint: commented_code.</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">492</td>
+                    <td class="num">653</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                labels &lt;- ifelse(cols == new_col_name | cols == "", cols, paste0(column_labels[cols], " [", cols, "]"))</pre>
+                      <pre class="language-r">            p &lt;- add_facet_labels(p, xfacet_label = nulled_col_facet_name, yfacet_label = nulled_row_facet_name)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">493</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">654</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              }</pre>
+                      <pre class="language-r">            grid::grid.newpage()</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">494</td>
+                    <td class="num">655</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              return(labels)</pre>
+                      <pre class="language-r">            grid::grid.draw(p)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">495</td>
+                    <td class="num">656</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">496</td>
+                    <td class="num">657</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          env = list(</pre>
+                      <pre class="language-r">          env = list(nulled_col_facet_name = nulled_col_facet_name, nulled_row_facet_name = nulled_row_facet_name)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">497</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">658</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            new_col_name = new_col_name,</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">498</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">659</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            column_labels_value = c(teal.data::col_labels(data_r())[selected_vars()],</pre>
+                      <pre class="language-r">      }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">660</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">499</td>
+                    <td class="num">661</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              new_col_name = new_col_name</pre>
+                      <pre class="language-r">      teal.code::eval_code(merged$anl_q_r(), substitute(expr = p &lt;- cl, env = list(cl = cl))) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">500</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">662</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">        teal.code::eval_code(print_call)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">501</td>
+                    <td class="num">663</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">502</td>
+                    <td class="num">664</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">503</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">665</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">    plot_r &lt;- shiny::reactive({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">504</td>
+                    <td class="num">666</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      qenv</pre>
+                      <pre class="language-r">      output_q()[["p"]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">505</td>
+                    <td class="num">667</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">506</td>
+                    <td class="num">668</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">507</td>
+                    <td class="num">669</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    selected_vars &lt;- reactive({</pre>
+                      <pre class="language-r">    pws &lt;- teal.widgets::plot_with_settings_srv(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">508</td>
+                    <td class="num">670</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      req(input$variables_select)</pre>
+                      <pre class="language-r">      id = "myplot",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">509</td>
+                    <td class="num">671</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      keys &lt;- data_keys()</pre>
+                      <pre class="language-r">      plot_r = plot_r,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">510</td>
+                    <td class="num">672</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      vars &lt;- unique(c(keys, input$variables_select))</pre>
+                      <pre class="language-r">      height = plot_height,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">511</td>
+                    <td class="num">673</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      vars</pre>
+                      <pre class="language-r">      width = plot_width</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">512</td>
+                    <td class="num">674</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">513</td>
+                    <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">514</td>
+                    <td class="num">676</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    vars_summary &lt;- reactive({</pre>
+                      <pre class="language-r">    teal.widgets::verbatim_popup_srv(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">515</td>
+                    <td class="num">677</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      na_count &lt;- data_r() %&gt;%</pre>
+                      <pre class="language-r">      id = "warning",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">516</td>
+                    <td class="num">678</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        sapply(function(x) mean(is.na(x)), USE.NAMES = TRUE) %&gt;%</pre>
+                      <pre class="language-r">      verbatim_content = reactive(teal.code::get_warnings(output_q())),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">517</td>
+                    <td class="num">679</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        sort(decreasing = TRUE)</pre>
+                      <pre class="language-r">      title = "Warning",</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">680</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      disabled = reactive(is.null(teal.code::get_warnings(output_q())))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">518</td>
+                    <td class="num">681</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">682</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">519</td>
+                    <td class="num">683</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      tibble::tibble(</pre>
+                      <pre class="language-r">    teal.widgets::verbatim_popup_srv(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">520</td>
+                    <td class="num">684</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        key = names(na_count),</pre>
+                      <pre class="language-r">      id = "rcode",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">521</td>
+                    <td class="num">685</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        value = unname(na_count),</pre>
+                      <pre class="language-r">      verbatim_content = reactive(teal.code::get_code(output_q())),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">522</td>
+                    <td class="num">686</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        label = cut(na_count, breaks = seq(from = 0, to = 1, by = 0.1), include.lowest = TRUE)</pre>
+                      <pre class="language-r">      title = "Bivariate Plot"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">523</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">524</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">525</td>
+                    <td class="num">689</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    ### REPORTER</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">526</td>
+                    <td class="num">690</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    output$variables &lt;- renderUI({</pre>
+                      <pre class="language-r">    if (with_reporter) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">527</td>
+                    <td class="num">691</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      choices &lt;- split(x = vars_summary()$key, f = vars_summary()$label, drop = TRUE) %&gt;% rev()</pre>
+                      <pre class="language-r">      card_fun &lt;- function(comment, label) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">528</td>
+                    <td class="num">692</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      selected &lt;- choices &lt;- unname(unlist(choices))</pre>
+                      <pre class="language-r">        card &lt;- teal::report_card_template(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">529</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">693</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          title = "Bivariate Plot",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">530</td>
+                    <td class="num">694</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.widgets::optionalSelectInput(</pre>
+                      <pre class="language-r">          label = label,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">531</td>
+                    <td class="num">695</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        session$ns("variables_select"),</pre>
+                      <pre class="language-r">          with_filter = with_filter,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">532</td>
+                    <td class="num">696</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        label = "Select variables",</pre>
+                      <pre class="language-r">          filter_panel_api = filter_panel_api</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">533</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">697</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        label_help = HTML(paste0("Dataset: ", tags$code(dataname))),</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">534</td>
+                    <td class="num">698</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        choices = teal.transform::variable_choices(data_r(), choices),</pre>
+                      <pre class="language-r">        card$append_text("Plot", "header3")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">535</td>
+                    <td class="num">699</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        selected = selected,</pre>
+                      <pre class="language-r">        card$append_plot(plot_r(), dim = pws$dim())</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">536</td>
+                    <td class="num">700</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        multiple = TRUE</pre>
+                      <pre class="language-r">        if (!comment == "") {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">537</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">701</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">          card$append_text("Comment", "header3")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">538</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">702</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">          card$append_text(comment)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">539</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="missed">
-                    <td class="num">540</td>
+                    <td class="num">704</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    observeEvent(input$filter_na, {</pre>
+                      <pre class="language-r">        card$append_src(teal.code::get_code(output_q()))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">541</td>
+                    <td class="num">705</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      choices &lt;- vars_summary() %&gt;%</pre>
+                      <pre class="language-r">        card</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">542</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">706</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        dplyr::select(!!as.name("key")) %&gt;%</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">543</td>
+                    <td class="num">707</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        getElement(name = 1)</pre>
+                      <pre class="language-r">      teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">544</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="missed">
-                    <td class="num">545</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">709</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      selected &lt;- vars_summary() %&gt;%</pre>
+                      <pre class="language-r">    ###</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">546</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">710</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        dplyr::filter(!!as.name("value") &gt; 0) %&gt;%</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">547</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">711</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        dplyr::select(!!as.name("key")) %&gt;%</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">548</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">712</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        getElement(name = 1)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">549</td>
+                    <td class="num">713</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">550</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">714</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.widgets::updateOptionalSelectInput(</pre>
+                      <pre class="language-r">#' Get Substituted ggplot call</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">551</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">715</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        session = session,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">552</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">716</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        inputId = "variables_select",</pre>
+                      <pre class="language-r">#' @noRd</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">553</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">717</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        choices = teal.transform::variable_choices(data_r()),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">554</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">718</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        selected = selected</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">555</td>
+                    <td class="num">719</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">556</td>
+                    <td class="num">720</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">#' bivariate_plot_call("ANL", "BAGE", "RACE", "numeric", "factor")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">557</td>
+                    <td class="num">721</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' bivariate_plot_call("ANL", "BAGE", character(0), "numeric", "NULL")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">558</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">722</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    output$group_by_var_ui &lt;- renderUI({</pre>
+                      <pre class="language-r">bivariate_plot_call &lt;- function(data_name,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">559</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">723</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      all_choices &lt;- teal.transform::variable_choices(data_r())</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">560</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      cat_choices &lt;- all_choices[!sapply(data_r(), function(x) is.numeric(x) || inherits(x, "POSIXct"))]</pre>
+                      <pre class="language-r">                                x = character(0),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">561</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">724</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      validate(</pre>
+                      <pre class="language-r">                                y = character(0),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">562</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">725</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        need(cat_choices, "Dataset does not have any non-numeric or non-datetime variables to use to group data with")</pre>
+                      <pre class="language-r">                                x_class = "NULL",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">563</td>
+                    <td class="num">726</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">                                y_class = "NULL",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">564</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">727</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.widgets::optionalSelectInput(</pre>
+                      <pre class="language-r">                                x_label = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">565</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">728</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        session$ns("group_by_var"),</pre>
+                      <pre class="language-r">                                y_label = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">566</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">729</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        label = "Group by variable",</pre>
+                      <pre class="language-r">                                freq = TRUE,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">567</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">730</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        choices = cat_choices,</pre>
+                      <pre class="language-r">                                theme = "gray",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">568</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">731</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        selected = `if`(</pre>
+                      <pre class="language-r">                                rotate_xaxis_labels = FALSE,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">569</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">732</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          is.null(isolate(input$group_by_var)),</pre>
+                      <pre class="language-r">                                swap_axes = FALSE,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">570</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">733</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          cat_choices[1],</pre>
+                      <pre class="language-r">                                alpha = double(0),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">571</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">734</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          isolate(input$group_by_var)</pre>
+                      <pre class="language-r">                                size = 2,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">572</td>
+                    <td class="num">735</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ),</pre>
+                      <pre class="language-r">                                ggplot2_args = teal.widgets::ggplot2_args()) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">573</td>
+                    <td class="num">736</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        multiple = FALSE,</pre>
+                      <pre class="language-r">  supported_types &lt;- c("NULL", "numeric", "integer", "factor", "character", "logical")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">574</td>
+                    <td class="num">737</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        label_help = paste0("Dataset: ", dataname)</pre>
+                      <pre class="language-r">  validate(need(x_class %in% supported_types, paste0("Data type '", x_class, "' is not supported.")))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">575</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">738</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">  validate(need(y_class %in% supported_types, paste0("Data type '", y_class, "' is not supported.")))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">576</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">577</td>
+                    <td class="num">740</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">578</td>
+                    <td class="num">741</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    output$group_by_vals_ui &lt;- renderUI({</pre>
+                      <pre class="language-r">  if (identical(x, character(0))) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">579</td>
+                    <td class="num">742</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      req(input$group_by_var)</pre>
+                      <pre class="language-r">    x &lt;- x_label &lt;- "-"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">580</td>
+                    <td class="num">743</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">581</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      choices &lt;- teal.transform::value_choices(data_r(), input$group_by_var, input$group_by_var)</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">582</td>
+                    <td class="num">744</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      prev_choices &lt;- isolate(input$group_by_vals)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">583</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">584</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      # determine selected value based on filtered data</pre>
+                      <pre class="language-r">    x &lt;- if (is.call(x)) x else as.name(x)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">585</td>
+                    <td class="num">745</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # display those previously selected values that are still available</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">586</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      selected &lt;- if (!is.null(prev_choices) &amp;&amp; any(prev_choices %in% choices)) {</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">587</td>
+                    <td class="num">746</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        prev_choices[match(choices[choices %in% prev_choices], prev_choices)]</pre>
+                      <pre class="language-r">  if (identical(y, character(0))) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">588</td>
+                    <td class="num">747</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else if (!is.null(prev_choices) &amp;&amp;</pre>
+                      <pre class="language-r">    y &lt;- y_label &lt;- "-"</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">589</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">748</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        !any(prev_choices %in% choices) &amp;&amp;</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">590</td>
+                    <td class="num">749</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        isolate(prev_group_by_var()) == input$group_by_var) {</pre>
+                      <pre class="language-r">    y &lt;- if (is.call(y)) y else as.name(y)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">591</td>
+                    <td class="num">750</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # if not any previously selected value is available and the grouping variable is the same,</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">592</td>
+                    <td class="num">751</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # then display NULL</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">593</td>
+                    <td class="num">752</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        NULL</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">594</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">595</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        # if new grouping variable (i.e. not any previously selected value is available),</pre>
+                      <pre class="language-r">  cl &lt;- bivariate_ggplot_call(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">596</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">753</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # then display all choices</pre>
+                      <pre class="language-r">    x_class = x_class,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">597</td>
+                    <td class="num">754</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        choices</pre>
+                      <pre class="language-r">    y_class = y_class,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">598</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">755</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">    freq = freq,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">599</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">756</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    theme = theme,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">600</td>
+                    <td class="num">757</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      prev_group_by_var(input$group_by_var) # set current group_by_var</pre>
+                      <pre class="language-r">    rotate_xaxis_labels = rotate_xaxis_labels,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">601</td>
+                    <td class="num">758</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      validate(need(length(choices) &lt; 100, "Please select group-by variable with fewer than 100 unique values"))</pre>
+                      <pre class="language-r">    swap_axes = swap_axes,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">602</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">759</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    alpha = alpha,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">603</td>
+                    <td class="num">760</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.widgets::optionalSelectInput(</pre>
+                      <pre class="language-r">    size = size,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">604</td>
+                    <td class="num">761</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        session$ns("group_by_vals"),</pre>
+                      <pre class="language-r">    ggplot2_args = ggplot2_args,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">605</td>
+                    <td class="num">762</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        label = "Filter levels",</pre>
+                      <pre class="language-r">    x = x,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">606</td>
+                    <td class="num">763</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        choices = choices,</pre>
+                      <pre class="language-r">    y = y,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">607</td>
+                    <td class="num">764</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        selected = selected,</pre>
+                      <pre class="language-r">    xlab = x_label,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">608</td>
+                    <td class="num">765</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        multiple = TRUE,</pre>
+                      <pre class="language-r">    ylab = y_label,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">609</td>
+                    <td class="num">766</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        label_help = paste0("Dataset: ", dataname)</pre>
+                      <pre class="language-r">    data_name = data_name</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">610</td>
+                    <td class="num">767</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">611</td>
+                    <td class="num">768</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">612</td>
+                    <td class="num">769</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
+                  <tr class="never">
+                    <td class="num">770</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">substitute_q &lt;- function(x, env) {</pre>
+                    </td>
+                  </tr>
                   <tr class="missed">
-                    <td class="num">613</td>
+                    <td class="num">771</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    summary_plot_q &lt;- reactive({</pre>
+                      <pre class="language-r">  stopifnot(is.language(x))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">614</td>
+                    <td class="num">772</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      req(input$summary_type == "Summary") # needed to trigger show r code update on tab change</pre>
+                      <pre class="language-r">  call &lt;- substitute(substitute(x, env), list(x = x))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">615</td>
+                    <td class="num">773</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal::validate_has_data(data_r(), 1)</pre>
+                      <pre class="language-r">  eval(call)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">616</td>
+                    <td class="num">774</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">617</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">775</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      qenv &lt;- common_code_q()</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">618</td>
+                    <td class="num">776</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <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">777</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (input$any_na) {</pre>
+                      <pre class="language-r">#' Create ggplot part of plot call</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">620</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">778</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        new_col_name &lt;- "**anyna**"</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">621</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">779</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        qenv &lt;- teal.code::eval_code(</pre>
+                      <pre class="language-r">#' Due to the type of the x and y variable the plot type is chosen</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">622</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">780</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          qenv,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">623</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">781</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          substitute(</pre>
+                      <pre class="language-r">#' @noRd</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">624</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">782</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            expr = ANL[[new_col_name]] &lt;- ifelse(rowSums(is.na(ANL)) &gt; 0, NA, FALSE), # nolint: object_name.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">625</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">783</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            env = list(new_col_name = new_col_name)</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">626</td>
+                    <td class="num">784</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">#' bivariate_ggplot_call("numeric", "NULL")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">627</td>
+                    <td class="num">785</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#' bivariate_ggplot_call("numeric", "NULL", freq = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">628</td>
+                    <td class="num">786</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">629</td>
+                    <td class="num">787</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' bivariate_ggplot_call("NULL", "numeric")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">630</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">788</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      qenv &lt;- teal.code::eval_code(</pre>
+                      <pre class="language-r">#' bivariate_ggplot_call("NULL", "numeric", freq = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">631</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">789</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        qenv,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">632</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">790</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        substitute(</pre>
+                      <pre class="language-r">#' bivariate_ggplot_call("NULL", "factor")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">633</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">791</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          expr = analysis_vars &lt;- setdiff(colnames(ANL), data_keys),</pre>
+                      <pre class="language-r">#' bivariate_ggplot_call("NULL", "factor", freq = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">634</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">792</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          env = list(data_keys = data_keys())</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">635</td>
+                    <td class="num">793</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#' bivariate_ggplot_call("factor", "NULL")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">636</td>
+                    <td class="num">794</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ) %&gt;%</pre>
+                      <pre class="language-r">#' bivariate_ggplot_call("factor", "NULL", freq = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">637</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">795</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        teal.code::eval_code(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">638</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">796</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          substitute(</pre>
+                      <pre class="language-r">#' bivariate_ggplot_call("numeric", "numeric")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">639</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">797</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            expr = summary_plot_obs &lt;- data_frame_call[, analysis_vars] %&gt;%</pre>
+                      <pre class="language-r">#' bivariate_ggplot_call("numeric", "factor")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">640</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">798</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              dplyr::summarise_all(list(function(x) sum(is.na(x)))) %&gt;%</pre>
+                      <pre class="language-r">#' bivariate_ggplot_call("factor", "numeric")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">641</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">799</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              tidyr::pivot_longer(tidyselect::everything(), names_to = "col", values_to = "n_na") %&gt;%</pre>
+                      <pre class="language-r">#' bivariate_ggplot_call("factor", "factor")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">642</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">800</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              dplyr::mutate(n_not_na = nrow(ANL) - n_na) %&gt;%</pre>
+                      <pre class="language-r">bivariate_ggplot_call &lt;- function(x_class = c("NULL", "numeric", "integer", "factor", "character", "logical"),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">643</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">801</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              tidyr::pivot_longer(-col, names_to = "isna", values_to = "n") %&gt;%</pre>
+                      <pre class="language-r">                                  y_class = c("NULL", "numeric", "integer", "factor", "character", "logical"),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">644</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">802</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              dplyr::mutate(isna = isna == "n_na", n_pct = n / nrow(ANL) * 100),</pre>
+                      <pre class="language-r">                                  freq = TRUE,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">645</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">803</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            env = list(data_frame_call = if (!inherits(data_r(), "tbl_df")) {</pre>
+                      <pre class="language-r">                                  theme = "gray",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">646</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">804</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              quote(tibble::as_tibble(ANL))</pre>
+                      <pre class="language-r">                                  rotate_xaxis_labels = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">647</td>
+                    <td class="num">805</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            } else {</pre>
+                      <pre class="language-r">                                  swap_axes = FALSE,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">648</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">806</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              quote(ANL)</pre>
+                      <pre class="language-r">                                  size = double(0),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">649</td>
+                    <td class="num">807</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            })</pre>
+                      <pre class="language-r">                                  alpha = double(0),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">650</td>
+                    <td class="num">808</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">                                  x = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">651</td>
+                    <td class="num">809</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ) %&gt;%</pre>
+                      <pre class="language-r">                                  y = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">652</td>
+                    <td class="num">810</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # x axis ordering according to number of missing values and alphabet</pre>
+                      <pre class="language-r">                                  xlab = "-",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">653</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">811</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        teal.code::eval_code(</pre>
+                      <pre class="language-r">                                  ylab = "-",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">654</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">812</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          quote(</pre>
+                      <pre class="language-r">                                  data_name = "ANL",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">655</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">813</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            expr = x_levels &lt;- dplyr::filter(summary_plot_obs, isna) %&gt;%</pre>
+                      <pre class="language-r">                                  ggplot2_args = teal.widgets::ggplot2_args()) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">656</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">814</td>
+                    <td class="coverage">42<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              dplyr::arrange(n_pct, dplyr::desc(col)) %&gt;%</pre>
+                      <pre class="language-r">  x_class &lt;- match.arg(x_class)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">657</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">815</td>
+                    <td class="coverage">42<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              dplyr::pull(col) %&gt;%</pre>
+                      <pre class="language-r">  y_class &lt;- match.arg(y_class)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">816</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">817</td>
+                    <td class="coverage">42<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  if (x_class %in% c("character", "logical")) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">818</td>
+                    <td class="coverage">12<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    x_class &lt;- "factor"</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">819</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  }</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">820</td>
+                    <td class="coverage">42<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  if (x_class %in% c("integer")) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">658</td>
+                    <td class="num">821</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              create_cols_labels()</pre>
+                      <pre class="language-r">    x_class &lt;- "numeric"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">659</td>
+                    <td class="num">822</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">823</td>
+                    <td class="coverage">42<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  if (y_class %in% c("character", "logical")) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">824</td>
+                    <td class="coverage">8<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    y_class &lt;- "factor"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">660</td>
+                    <td class="num">825</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">826</td>
+                    <td class="coverage">42<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  if (y_class %in% c("integer")) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">827</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    y_class &lt;- "numeric"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">661</td>
+                    <td class="num">828</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">662</td>
+                    <td class="num">829</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # always set "**anyna**" level as the last one</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">663</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">830</td>
+                    <td class="coverage">42<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (isolate(input$any_na)) {</pre>
+                      <pre class="language-r">  if (all(c(x_class, y_class) == "NULL")) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">664</td>
+                    <td class="num">831</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        qenv &lt;- teal.code::eval_code(</pre>
+                      <pre class="language-r">    stop("either x or y is required")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">665</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">832</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          qenv,</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">666</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">833</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          quote(x_levels &lt;- c(setdiff(x_levels, "**anyna**"), "**anyna**"))</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">834</td>
+                    <td class="coverage">42<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  reduce_plot_call &lt;- function(...) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">835</td>
+                    <td class="coverage">104<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    args &lt;- Filter(Negate(is.null), list(...))</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">836</td>
+                    <td class="coverage">104<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    Reduce(function(x, y) call("+", x, y), args)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">667</td>
+                    <td class="num">837</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">668</td>
+                    <td class="num">838</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">839</td>
+                    <td class="coverage">42<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  plot_call &lt;- substitute(ggplot(data_name), env = list(data_name = as.name(data_name)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">669</td>
+                    <td class="num">840</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">670</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">841</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dev_ggplot2_args &lt;- teal.widgets::ggplot2_args(</pre>
+                      <pre class="language-r">  # Single data plots</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">671</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">842</td>
+                    <td class="coverage">42<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        labs = list(x = "Variable", y = "Missing observations"),</pre>
+                      <pre class="language-r">  if (x_class == "numeric" &amp;&amp; y_class == "NULL") {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">672</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">843</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        theme = list(legend.position = "bottom", axis.text.x = quote(element_text(angle = 45, hjust = 1)))</pre>
+                      <pre class="language-r">    plot_call &lt;- reduce_plot_call(plot_call, substitute(aes(x = xval), env = list(xval = x)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">673</td>
+                    <td class="num">844</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">845</td>
+                    <td class="coverage">6<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    if (freq) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">846</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      plot_call &lt;- reduce_plot_call(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">847</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        plot_call,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">848</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        quote(geom_histogram(bins = 30)),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">849</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        quote(ylab("Frequency"))</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">850</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="num">851</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">675</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">852</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      all_ggplot2_args &lt;- teal.widgets::resolve_ggplot2_args(</pre>
+                      <pre class="language-r">      plot_call &lt;- reduce_plot_call(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">676</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">853</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        user_plot = ggplot2_args[["Summary Obs"]],</pre>
+                      <pre class="language-r">        plot_call,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">677</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">854</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        user_default = ggplot2_args$default,</pre>
+                      <pre class="language-r">        quote(geom_histogram(bins = 30, aes(y = after_stat(density)))),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">678</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">855</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        module_plot = dev_ggplot2_args</pre>
+                      <pre class="language-r">        quote(geom_density(aes(y = after_stat(density)))),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">856</td>
+                    <td class="coverage">2<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        quote(ylab("Density"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">679</td>
+                    <td class="num">857</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">680</td>
+                    <td class="num">858</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    }</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">859</td>
+                    <td class="coverage">36<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  } else if (x_class == "NULL" &amp;&amp; y_class == "numeric") {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">860</td>
+                    <td class="coverage">6<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    plot_call &lt;- reduce_plot_call(plot_call, substitute(aes(x = yval), env = list(yval = y)))</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">861</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>
+                  <tr class="covered">
+                    <td class="num">862</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      parsed_ggplot2_args &lt;- teal.widgets::parse_ggplot2_args(</pre>
+                      <pre class="language-r">    if (freq) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">682</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">863</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        all_ggplot2_args,</pre>
+                      <pre class="language-r">      plot_call &lt;- reduce_plot_call(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">683</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">864</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ggtheme = input$ggtheme</pre>
+                      <pre class="language-r">        plot_call,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">865</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        quote(geom_histogram(bins = 30)),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">866</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        quote(ylab("Frequency"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">684</td>
+                    <td class="num">867</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">685</td>
+                    <td class="num">868</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">686</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">869</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      qenv &lt;- teal.code::eval_code(</pre>
+                      <pre class="language-r">      plot_call &lt;- reduce_plot_call(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">687</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">870</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        qenv,</pre>
+                      <pre class="language-r">        plot_call,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">688</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">871</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        substitute(</pre>
+                      <pre class="language-r">        quote(geom_histogram(bins = 30, aes(y = after_stat(density)))),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">689</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">872</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          p1 &lt;- summary_plot_obs %&gt;%</pre>
+                      <pre class="language-r">        quote(geom_density(aes(y = after_stat(density)))),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">690</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">873</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ggplot() +</pre>
+                      <pre class="language-r">        quote(ylab("Density"))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">691</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">874</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            aes(</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">692</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">875</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              x = factor(create_cols_labels(col), levels = x_levels),</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">693</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">876</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              y = n_pct,</pre>
+                      <pre class="language-r">  } else if (x_class == "factor" &amp;&amp; y_class == "NULL") {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">694</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">877</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              fill = isna</pre>
+                      <pre class="language-r">    plot_call &lt;- reduce_plot_call(plot_call, substitute(aes(x = xval), env = list(xval = x)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">695</td>
+                    <td class="num">878</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">696</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">879</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            geom_bar(position = "fill", stat = "identity") +</pre>
+                      <pre class="language-r">    if (freq) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">697</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">880</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            scale_fill_manual(</pre>
+                      <pre class="language-r">      plot_call &lt;- reduce_plot_call(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">698</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">881</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              name = "",</pre>
+                      <pre class="language-r">        plot_call,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">699</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">882</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              values = c("grey90", c(getOption("ggplot2.discrete.colour")[2], "#ff2951ff")[1]),</pre>
+                      <pre class="language-r">        quote(geom_bar()),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">700</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">883</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              labels = c("Present", "Missing")</pre>
+                      <pre class="language-r">        quote(ylab("Frequency"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">701</td>
+                    <td class="num">884</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">702</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">885</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            scale_y_continuous(labels = scales::percent_format(), breaks = seq(0, 1, by = 0.1), expand = c(0, 0)) +</pre>
+                      <pre class="language-r">    } else {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">703</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">886</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            geom_text(</pre>
+                      <pre class="language-r">      plot_call &lt;- reduce_plot_call(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">704</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">887</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              aes(label = ifelse(isna == TRUE, sprintf("%d [%.02f%%]", n, n_pct), ""), y = 1),</pre>
+                      <pre class="language-r">        plot_call,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">705</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">888</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              hjust = 1,</pre>
+                      <pre class="language-r">        quote(geom_bar(aes(y = after_stat(prop), group = 1))),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">706</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">889</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              color = "black"</pre>
+                      <pre class="language-r">        quote(ylab("Fraction"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">707</td>
+                    <td class="num">890</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">708</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">891</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            labs +</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">709</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">892</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ggthemes +</pre>
+                      <pre class="language-r">  } else if (x_class == "NULL" &amp;&amp; y_class == "factor") {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">710</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">893</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            themes +</pre>
+                      <pre class="language-r">    plot_call &lt;- reduce_plot_call(plot_call, substitute(aes(x = yval), env = list(yval = y)))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">711</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">894</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            coord_flip(),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">712</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">895</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          env = list(</pre>
+                      <pre class="language-r">    if (freq) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">713</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">896</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            labs = parsed_ggplot2_args$labs,</pre>
+                      <pre class="language-r">      plot_call &lt;- reduce_plot_call(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">714</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">897</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            themes = parsed_ggplot2_args$theme,</pre>
+                      <pre class="language-r">        plot_call,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">715</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">898</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ggthemes = parsed_ggplot2_args$ggtheme</pre>
+                      <pre class="language-r">        quote(geom_bar()),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">899</td>
+                    <td class="coverage">2<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        quote(ylab("Frequency"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">716</td>
+                    <td class="num">900</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">717</td>
+                    <td class="num">901</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">902</td>
+                    <td class="coverage">2<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      plot_call &lt;- reduce_plot_call(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">903</td>
+                    <td class="coverage">2<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        plot_call,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">904</td>
+                    <td class="coverage">2<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        quote(geom_bar(aes(y = after_stat(prop), group = 1))),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">905</td>
+                    <td class="coverage">2<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        quote(ylab("Fraction"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">718</td>
+                    <td class="num">906</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">719</td>
+                    <td class="num">907</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">720</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">908</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (isTRUE(input$if_patients_plot)) {</pre>
+                      <pre class="language-r">    # Numeric Plots</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">721</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">909</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        qenv &lt;- teal.code::eval_code(</pre>
+                      <pre class="language-r">  } else if (x_class == "numeric" &amp;&amp; y_class == "numeric") {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">722</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">910</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          qenv,</pre>
+                      <pre class="language-r">    plot_call &lt;- reduce_plot_call(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">723</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">911</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          substitute(</pre>
+                      <pre class="language-r">      plot_call,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">724</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">912</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            expr = parent_keys &lt;- keys,</pre>
+                      <pre class="language-r">      substitute(aes(x = xval, y = yval), env = list(xval = x, yval = y)),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">725</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">913</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            env = list(keys = data_parent_keys())</pre>
+                      <pre class="language-r">      # pch = 21 for consistent coloring behaviour b/w all geoms (outline and fill properties)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">726</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">914</td>
+                    <td class="coverage">2<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">727</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">915</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ) %&gt;%</pre>
+                      <pre class="language-r">        !is.null(size),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">728</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">916</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          teal.code::eval_code(quote(ndistinct_subjects &lt;- dplyr::n_distinct(ANL[, parent_keys]))) %&gt;%</pre>
+                      <pre class="language-r">        substitute(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">729</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">917</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          teal.code::eval_code(</pre>
+                      <pre class="language-r">          geom_point(alpha = alphaval, size = sizeval, pch = 21),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">730</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">918</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            quote(</pre>
+                      <pre class="language-r">          env = list(alphaval = alpha, sizeval = size)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">731</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">919</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              summary_plot_patients &lt;- ANL[, c(parent_keys, analysis_vars)] %&gt;%</pre>
+                      <pre class="language-r">        ),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">732</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">920</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                dplyr::group_by_at(parent_keys) %&gt;%</pre>
+                      <pre class="language-r">        substitute(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">921</td>
+                    <td class="coverage">2<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          geom_point(alpha = alphaval, pch = 21),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">922</td>
+                    <td class="coverage">2<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          env = list(alphaval = alpha)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">733</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">923</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                dplyr::summarise_all(anyNA) %&gt;%</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">734</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">924</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                tidyr::pivot_longer(cols = !tidyselect::all_of(parent_keys), names_to = "col", values_to = "anyna") %&gt;%</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">735</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">925</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                dplyr::group_by_at(c("col")) %&gt;%</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">736</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">926</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                dplyr::summarise(count_na = sum(anyna)) %&gt;%</pre>
+                      <pre class="language-r">  } else if ((x_class == "numeric" &amp;&amp; y_class == "factor") || (x_class == "factor" &amp;&amp; y_class == "numeric")) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">737</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">927</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                dplyr::mutate(count_not_na = ndistinct_subjects - count_na) %&gt;%</pre>
+                      <pre class="language-r">    plot_call &lt;- reduce_plot_call(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">738</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">928</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                tidyr::pivot_longer(-c(col), names_to = "isna", values_to = "n") %&gt;%</pre>
+                      <pre class="language-r">      plot_call,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">739</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">929</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                dplyr::mutate(isna = isna == "count_na", n_pct = n / ndistinct_subjects * 100) %&gt;%</pre>
+                      <pre class="language-r">      substitute(aes(x = xval, y = yval), env = list(xval = x, yval = y)),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">740</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">930</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                dplyr::arrange_at(c("isna", "n"), .funs = dplyr::desc)</pre>
+                      <pre class="language-r">      quote(geom_boxplot())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">741</td>
+                    <td class="num">931</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">742</td>
+                    <td class="num">932</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">    # Factor and character plots</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">743</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">933</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  } else if (x_class == "factor" &amp;&amp; y_class == "factor") {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">744</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">934</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        dev_ggplot2_args &lt;- teal.widgets::ggplot2_args(</pre>
+                      <pre class="language-r">    plot_call &lt;- reduce_plot_call(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">745</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">935</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          labs = list(x = "", y = "Missing patients"),</pre>
+                      <pre class="language-r">      plot_call,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">746</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">936</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          theme = list(</pre>
+                      <pre class="language-r">      substitute(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">747</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">937</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            legend.position = "bottom",</pre>
+                      <pre class="language-r">        ggmosaic::geom_mosaic(aes(x = ggmosaic::product(xval), fill = yval), na.rm = TRUE),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">748</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">938</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            axis.text.x = quote(element_text(angle = 45, hjust = 1)),</pre>
+                      <pre class="language-r">        env = list(xval = x, yval = y)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">749</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">939</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            axis.text.y = quote(element_blank())</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">750</td>
+                    <td class="num">940</td>
                     <td class="coverage"></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">941</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">942</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    stop("x y type combination not allowed")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">752</td>
+                    <td class="num">943</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">944</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">753</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">945</td>
+                    <td class="coverage">42<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        all_ggplot2_args &lt;- teal.widgets::resolve_ggplot2_args(</pre>
+                      <pre class="language-r">  labs_base &lt;- if (x_class == "NULL") {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">754</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">946</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          user_plot = ggplot2_args[["Summary Patients"]],</pre>
+                      <pre class="language-r">    list(x = substitute(ylab, list(ylab = ylab)))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">755</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">947</td>
+                    <td class="coverage">42<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          user_default = ggplot2_args$default,</pre>
+                      <pre class="language-r">  } else if (y_class == "NULL") {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">756</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">948</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          module_plot = dev_ggplot2_args</pre>
+                      <pre class="language-r">    list(x = substitute(xlab, list(xlab = xlab)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">757</td>
+                    <td class="num">949</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">758</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">950</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    list(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">759</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">951</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        parsed_ggplot2_args &lt;- teal.widgets::parse_ggplot2_args(</pre>
+                      <pre class="language-r">      x = substitute(xlab, list(xlab = xlab)),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">760</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">952</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          all_ggplot2_args,</pre>
+                      <pre class="language-r">      y = substitute(ylab, list(ylab = ylab))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">761</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">953</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ggtheme = input$ggtheme</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">762</td>
+                    <td class="num">954</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">763</td>
+                    <td class="num">955</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">764</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">956</td>
+                    <td class="coverage">42<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        qenv &lt;- teal.code::eval_code(</pre>
+                      <pre class="language-r">  dev_ggplot2_args &lt;- teal.widgets::ggplot2_args(labs = labs_base)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">765</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">957</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          qenv,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">766</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">958</td>
+                    <td class="coverage">42<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          substitute(</pre>
+                      <pre class="language-r">  if (rotate_xaxis_labels) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">767</td>
+                    <td class="num">959</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            p2 &lt;- summary_plot_patients %&gt;%</pre>
+                      <pre class="language-r">    dev_ggplot2_args$theme &lt;- list(axis.text.x = quote(element_text(angle = 45, hjust = 1)))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">768</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">960</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              ggplot() +</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">769</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">961</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              aes_(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">770</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">962</td>
+                    <td class="coverage">42<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                x = ~ factor(create_cols_labels(col), levels = x_levels),</pre>
+                      <pre class="language-r">  all_ggplot2_args &lt;- teal.widgets::resolve_ggplot2_args(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">771</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">963</td>
+                    <td class="coverage">42<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                y = ~n_pct,</pre>
+                      <pre class="language-r">    user_plot = ggplot2_args,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">772</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">964</td>
+                    <td class="coverage">42<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                fill = ~isna</pre>
+                      <pre class="language-r">    module_plot = dev_ggplot2_args</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">773</td>
+                    <td class="num">965</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              ) +</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">774</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">              geom_bar(alpha = 1, stat = "identity", position = "fill") +</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">775</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">              scale_y_continuous(labels = scales::percent_format(), breaks = seq(0, 1, by = 0.1), expand = c(0, 0)) +</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">776</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">966</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              scale_fill_manual(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">777</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">967</td>
+                    <td class="coverage">42<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                name = "",</pre>
+                      <pre class="language-r">  parsed_ggplot2_args &lt;- teal.widgets::parse_ggplot2_args(all_ggplot2_args, ggtheme = theme)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">778</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">968</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                values = c("grey90", c(getOption("ggplot2.discrete.colour")[2], "#ff2951ff")[1]),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">779</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">969</td>
+                    <td class="coverage">42<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                labels = c("Present", "Missing")</pre>
+                      <pre class="language-r">  plot_call &lt;- reduce_plot_call(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">780</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">970</td>
+                    <td class="coverage">42<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              ) +</pre>
+                      <pre class="language-r">    plot_call,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">781</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">971</td>
+                    <td class="coverage">42<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              geom_text(</pre>
+                      <pre class="language-r">    parsed_ggplot2_args$labs,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">782</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">972</td>
+                    <td class="coverage">42<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                aes(label = ifelse(isna == TRUE, sprintf("%d [%.02f%%]", n, n_pct), ""), y = 1),</pre>
+                      <pre class="language-r">    parsed_ggplot2_args$ggtheme,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">783</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">973</td>
+                    <td class="coverage">42<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                hjust = 1,</pre>
+                      <pre class="language-r">    parsed_ggplot2_args$theme</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">784</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">974</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                color = "black"</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">785</td>
+                    <td class="num">975</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">786</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">976</td>
+                    <td class="coverage">42<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              labs +</pre>
+                      <pre class="language-r">  if (swap_axes) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">787</td>
+                    <td class="num">977</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              ggthemes +</pre>
+                      <pre class="language-r">    plot_call &lt;- reduce_plot_call(plot_call, quote(coord_flip()))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">788</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">978</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              themes +</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">789</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">979</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              coord_flip(),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">790</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">980</td>
+                    <td class="coverage">42<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            env = list(</pre>
+                      <pre class="language-r">  return(plot_call)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">791</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">981</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              labs = parsed_ggplot2_args$labs,</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">792</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">982</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              themes = parsed_ggplot2_args$theme,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">793</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">983</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              ggthemes = parsed_ggplot2_args$ggtheme</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">794</td>
+                    <td class="num">984</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">#' Create facet call</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">795</td>
+                    <td class="num">985</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">796</td>
+                    <td class="num">986</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ) %&gt;%</pre>
+                      <pre class="language-r">#' @noRd</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">797</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">987</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          teal.code::eval_code(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">798</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">988</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            quote({</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">799</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">989</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              g1 &lt;- ggplotGrob(p1)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">800</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">990</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              g2 &lt;- ggplotGrob(p2)</pre>
+                      <pre class="language-r">#' facet_ggplot_call(LETTERS[1:3])</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">801</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">991</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              g &lt;- gridExtra::gtable_cbind(g1, g2, size = "first")</pre>
+                      <pre class="language-r">#' facet_ggplot_call(NULL, LETTERS[23:26])</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">802</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">992</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              g$heights &lt;- grid::unit.pmax(g1$heights, g2$heights)</pre>
+                      <pre class="language-r">#' facet_ggplot_call(LETTERS[1:3], LETTERS[23:26])</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">803</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">993</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              grid::grid.newpage()</pre>
+                      <pre class="language-r">facet_ggplot_call &lt;- function(row_facet = character(0),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">804</td>
+                    <td class="num">994</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            })</pre>
+                      <pre class="language-r">                              col_facet = character(0),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">805</td>
+                    <td class="num">995</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">                              free_x_scales = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">806</td>
+                    <td class="num">996</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">                              free_y_scales = FALSE) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">807</td>
+                    <td class="num">997</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        qenv &lt;- teal.code::eval_code(</pre>
+                      <pre class="language-r">  scales &lt;- if (free_x_scales &amp;&amp; free_y_scales) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">808</td>
+                    <td class="num">998</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          qenv,</pre>
+                      <pre class="language-r">    "free"</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">809</td>
+                    <td class="num">999</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          quote({</pre>
+                      <pre class="language-r">  } else if (free_x_scales) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">810</td>
+                    <td class="num">1000</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            g &lt;- ggplotGrob(p1)</pre>
+                      <pre class="language-r">    "free_x"</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">811</td>
+                    <td class="num">1001</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            grid::grid.newpage()</pre>
+                      <pre class="language-r">  } else if (free_y_scales) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">812</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1002</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          })</pre>
+                      <pre class="language-r">    "free_y"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">813</td>
+                    <td class="num">1003</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">1004</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    "fixed"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">814</td>
+                    <td class="num">1005</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">815</td>
+                    <td class="num">1006</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">816</td>
+                    <td class="num">1007</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.code::eval_code(</pre>
+                      <pre class="language-r">  if (identical(row_facet, character(0)) &amp;&amp; identical(col_facet, character(0))) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">817</td>
+                    <td class="num">1008</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        qenv,</pre>
+                      <pre class="language-r">    NULL</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">818</td>
+                    <td class="num">1009</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        quote(grid::grid.draw(g))</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">819</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">820</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">  } else if (!identical(row_facet, character(0)) &amp;&amp; !identical(col_facet, character(0))) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">821</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1010</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    call(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">822</td>
+                    <td class="num">1011</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    summary_plot_r &lt;- reactive(summary_plot_q()[["g"]])</pre>
+                      <pre class="language-r">      "facet_grid",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">823</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1012</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      rows = call_fun_dots("vars", row_facet),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">824</td>
+                    <td class="num">1013</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    combination_cutoff_q &lt;- reactive({</pre>
+                      <pre class="language-r">      cols = call_fun_dots("vars", col_facet),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">825</td>
+                    <td class="num">1014</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      req(common_code_q())</pre>
+                      <pre class="language-r">      scales = scales</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">826</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1015</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.code::eval_code(</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">827</td>
+                    <td class="num">1016</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        common_code_q(),</pre>
+                      <pre class="language-r">  } else if (identical(row_facet, character(0)) &amp;&amp; !identical(col_facet, character(0))) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">828</td>
+                    <td class="num">1017</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        quote(</pre>
+                      <pre class="language-r">    call("facet_grid", cols = call_fun_dots("vars", col_facet), scales = scales)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">829</td>
+                    <td class="num">1018</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          combination_cutoff &lt;- ANL %&gt;%</pre>
+                      <pre class="language-r">  } else if (!identical(row_facet, character(0)) &amp;&amp; identical(col_facet, character(0))) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">830</td>
+                    <td class="num">1019</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            dplyr::mutate_all(is.na) %&gt;%</pre>
+                      <pre class="language-r">    call("facet_grid", rows = call_fun_dots("vars", row_facet), scales = scales)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">831</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1020</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            dplyr::group_by_all() %&gt;%</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">832</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1021</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            dplyr::tally() %&gt;%</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">833</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1022</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            dplyr::ungroup()</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">834</td>
+                    <td class="num">1023</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">coloring_ggplot_call &lt;- function(colour,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">835</td>
+                    <td class="num">1024</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">                                 fill,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">836</td>
+                    <td class="num">1025</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">                                 size,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">837</td>
+                    <td class="num">1026</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                                 is_point = FALSE) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">838</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">1027</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    output$cutoff &lt;- renderUI({</pre>
+                      <pre class="language-r">  if (!identical(colour, character(0)) &amp;&amp; !identical(fill, character(0)) &amp;&amp;</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">839</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">1028</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      x &lt;- combination_cutoff_q()[["combination_cutoff"]]$n</pre>
+                      <pre class="language-r">    is_point &amp;&amp; !identical(size, character(0))) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">840</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">1029</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    substitute(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">1030</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      expr = aes(colour = colour_name, fill = fill_name, size = size_name),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">1031</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      env = list(colour_name = as.name(colour), fill_name = as.name(fill), size_name = as.name(size))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">841</td>
+                    <td class="num">1032</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # select 10-th from the top</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">842</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">1033</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      n &lt;- length(x)</pre>
+                      <pre class="language-r">  } else if (identical(colour, character(0)) &amp;&amp; !identical(fill, character(0)) &amp;&amp;</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">843</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">1034</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      idx &lt;- max(1, n - 10)</pre>
+                      <pre class="language-r">    is_point &amp;&amp; identical(size, character(0))) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">844</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">1035</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      prev_value &lt;- isolate(input$combination_cutoff)</pre>
+                      <pre class="language-r">    substitute(expr = aes(fill = fill_name), env = list(fill_name = as.name(fill)))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">845</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">1036</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      value &lt;- `if`(</pre>
+                      <pre class="language-r">  } else if (!identical(colour, character(0)) &amp;&amp; !identical(fill, character(0)) &amp;&amp;</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">846</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">1037</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        is.null(prev_value) || prev_value &gt; max(x) || prev_value &lt; min(x),</pre>
+                      <pre class="language-r">    (!is_point || identical(size, character(0)))) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">847</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">1038</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        sort(x, partial = idx)[idx], prev_value</pre>
+                      <pre class="language-r">    substitute(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">848</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">1039</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">      expr = aes(colour = colour_name, fill = fill_name),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">1040</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      env = list(colour_name = as.name(colour), fill_name = as.name(fill))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">849</td>
+                    <td class="num">1041</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">850</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">1042</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.widgets::optionalSliderInputValMinMax(</pre>
+                      <pre class="language-r">  } else if (!identical(colour, character(0)) &amp;&amp; identical(fill, character(0)) &amp;&amp;</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">851</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">1043</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        session$ns("combination_cutoff"),</pre>
+                      <pre class="language-r">    (!is_point || identical(size, character(0)))) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">852</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">1044</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "Combination cut-off",</pre>
+                      <pre class="language-r">    substitute(expr = aes(colour = colour_name), env = list(colour_name = as.name(colour)))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">853</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">1045</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        c(value, range(x))</pre>
+                      <pre class="language-r">  } else if (identical(colour, character(0)) &amp;&amp; !identical(fill, character(0)) &amp;&amp;</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">854</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">1046</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">    (!is_point || identical(size, character(0)))) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">855</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">1047</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">    substitute(expr = aes(fill = fill_name), env = list(fill_name = as.name(fill)))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">856</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">1048</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  } else if (identical(colour, character(0)) &amp;&amp; identical(fill, character(0)) &amp;&amp;</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">857</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">1049</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    combination_plot_q &lt;- reactive({</pre>
+                      <pre class="language-r">    is_point &amp;&amp; !identical(size, character(0))) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">858</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">1050</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      req(input$summary_type == "Combinations", input$combination_cutoff, combination_cutoff_q())</pre>
+                      <pre class="language-r">    substitute(expr = aes(size = size_name), env = list(size_name = as.name(size)))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">859</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">1051</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal::validate_has_data(data_r(), 1)</pre>
+                      <pre class="language-r">  } else if (!identical(colour, character(0)) &amp;&amp; identical(fill, character(0)) &amp;&amp;</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">860</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">1052</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    is_point &amp;&amp; !identical(size, character(0))) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">861</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">1053</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      qenv &lt;- teal.code::eval_code(</pre>
+                      <pre class="language-r">    substitute(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">862</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">1054</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        combination_cutoff_q(),</pre>
+                      <pre class="language-r">      expr = aes(colour = colour_name, size = size_name),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">863</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">1055</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        substitute(</pre>
+                      <pre class="language-r">      env = list(colour_name = as.name(colour), size_name = as.name(size))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">864</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1056</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          expr = data_combination_plot_cutoff &lt;- combination_cutoff %&gt;%</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">865</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">1057</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            dplyr::filter(n &gt;= combination_cutoff_value) %&gt;%</pre>
+                      <pre class="language-r">  } else if (identical(colour, character(0)) &amp;&amp; !identical(fill, character(0)) &amp;&amp;</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">866</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">1058</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            dplyr::mutate(id = rank(-n, ties.method = "first")) %&gt;%</pre>
+                      <pre class="language-r">    is_point &amp;&amp; !identical(size, character(0))) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">867</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">1059</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            tidyr::pivot_longer(-c(n, id), names_to = "key", values_to = "value") %&gt;%</pre>
+                      <pre class="language-r">    substitute(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">868</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">1060</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            dplyr::arrange(n),</pre>
+                      <pre class="language-r">      expr = aes(colour = colour_name, fill = fill_name, size = size_name),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">869</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">1061</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          env = list(combination_cutoff_value = input$combination_cutoff)</pre>
+                      <pre class="language-r">      env = list(colour_name = as.name(fill), fill_name = as.name(fill), size_name = as.name(size))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">870</td>
+                    <td class="num">1062</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">871</td>
+                    <td class="num">1063</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">1064</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">872</td>
+                    <td class="num">1065</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">873</td>
+                    <td class="num">1066</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # find keys in dataset not selected in the UI and remove them from dataset</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">874</td>
-                    <td class="coverage">!</td>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/tm_g_scatterplotmatrix.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">      keys_not_selected &lt;- setdiff(data_keys(), input$variables_select)</pre>
+                      <pre class="language-r">#' Create a scatterplot matrix</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">875</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">      if (length(keys_not_selected) &gt; 0) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">876</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">#' The available datasets to choose from for each dataset selector is the same and</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">4</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' determined by the argument `variables`.</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">5</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        qenv &lt;- teal.code::eval_code(</pre>
+                      <pre class="language-r">#' @md</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">877</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">          qenv,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">878</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">          substitute(</pre>
+                      <pre class="language-r">#' @inheritParams teal::module</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">879</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">            expr = data_combination_plot_cutoff &lt;- data_combination_plot_cutoff %&gt;%</pre>
+                      <pre class="language-r">#' @inheritParams tm_g_scatterplot</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">880</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">              dplyr::filter(!key %in% keys_not_selected),</pre>
+                      <pre class="language-r">#' @inheritParams shared_params</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">881</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">            env = list(keys_not_selected = keys_not_selected)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">882</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 variables (`data_extract_spec` or `list` of multiple `data_extract_spec`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">883</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#'  Plotting variables from an incoming dataset with filtering and selecting. In case of</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">884</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#'  `data_extract_spec` use `select_spec(..., ordered = TRUE)` if plot elements should be</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">885</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'  rendered according to selection order.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">886</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">      qenv &lt;- teal.code::eval_code(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">887</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">        qenv,</pre>
+                      <pre class="language-r">#' @note For more examples, please see the vignette "Using scatterplot matrix" via</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">888</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">        quote(</pre>
+                      <pre class="language-r">#'   \code{vignette("using-scatterplot-matrix", package = "teal.modules.general")}.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">889</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">          labels &lt;- data_combination_plot_cutoff %&gt;%</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">890</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">            dplyr::filter(key == key[[1]]) %&gt;%</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">891</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">            getElement(name = 1)</pre>
+                      <pre class="language-r">#' # general data example</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">892</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#' data &lt;- teal_data()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">893</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 &lt;- within(data, {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">894</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   countries &lt;- data.frame(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">895</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">      dev_ggplot2_args1 &lt;- teal.widgets::ggplot2_args(</pre>
+                      <pre class="language-r">#'     id = c("DE", "FR", "IT", "ES", "PT", "GR", "NL", "BE", "LU", "AT"),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">896</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">        labs = list(x = "", y = ""),</pre>
+                      <pre class="language-r">#'     government = factor(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">897</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">        theme = list(</pre>
+                      <pre class="language-r">#'       c(2, 2, 2, 1, 2, 2, 1, 1, 1, 2),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">898</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">          legend.position = "bottom",</pre>
+                      <pre class="language-r">#'       labels = c("Monarchy", "Republic")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">899</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">          axis.text.x = quote(element_blank())</pre>
+                      <pre class="language-r">#'     ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">900</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#'     language_family = factor(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">901</td>
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#'       c(1, 3, 3, 3, 3, 2, 1, 1, 3, 1),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">902</td>
+                    <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'       labels = c("Germanic", "Hellenic", "Romance")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">903</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">      all_ggplot2_args1 &lt;- teal.widgets::resolve_ggplot2_args(</pre>
+                      <pre class="language-r">#'     ),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">904</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">        user_plot = ggplot2_args[["Combinations Hist"]],</pre>
+                      <pre class="language-r">#'     population = c(83, 67, 60, 47, 10, 11, 17, 11, 0.6, 9),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">905</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">        user_default = ggplot2_args$default,</pre>
+                      <pre class="language-r">#'     area = c(357, 551, 301, 505, 92, 132, 41, 30, 2.6, 83),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">906</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">        module_plot = dev_ggplot2_args1</pre>
+                      <pre class="language-r">#'     gdp = c(3.4, 2.7, 2.1, 1.4, 0.3, 0.2, 0.7, 0.5, 0.1, 0.4),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">907</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#'     debt = c(2.1, 2.3, 2.4, 2.6, 2.3, 2.4, 2.3, 2.4, 2.3, 2.4)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">908</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="missed">
-                    <td class="num">909</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">      parsed_ggplot2_args1 &lt;- teal.widgets::parse_ggplot2_args(</pre>
+                      <pre class="language-r">#'   sales &lt;- data.frame(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">910</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">        all_ggplot2_args1,</pre>
+                      <pre class="language-r">#'     id = 1:50,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">911</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">        ggtheme = "void"</pre>
+                      <pre class="language-r">#'     country_id = sample(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">912</td>
+                    <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#'       c("DE", "FR", "IT", "ES", "PT", "GR", "NL", "BE", "LU", "AT"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">913</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'       size = 50,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">914</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">      dev_ggplot2_args2 &lt;- teal.widgets::ggplot2_args(</pre>
+                      <pre class="language-r">#'       replace = TRUE</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">915</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">        labs = list(x = "", y = ""),</pre>
+                      <pre class="language-r">#'     ),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">916</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">        theme = list(</pre>
+                      <pre class="language-r">#'     year = sort(sample(2010:2020, 50, replace = TRUE)),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">917</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">          legend.position = "bottom",</pre>
+                      <pre class="language-r">#'     venue = sample(c("small", "medium", "large", "online"), 50, replace = TRUE),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">918</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">          axis.text.x = quote(element_blank()),</pre>
+                      <pre class="language-r">#'     cancelled = sample(c(TRUE, FALSE), 50, replace = TRUE),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">919</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">          axis.ticks = quote(element_blank()),</pre>
+                      <pre class="language-r">#'     quantity = rnorm(50, 100, 20),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">920</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">          panel.grid.major = quote(element_blank())</pre>
+                      <pre class="language-r">#'     costs = rnorm(50, 80, 20),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">921</td>
+                    <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#'     profit = rnorm(50, 20, 10)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">922</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">923</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="missed">
-                    <td class="num">924</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">      all_ggplot2_args2 &lt;- teal.widgets::resolve_ggplot2_args(</pre>
+                      <pre class="language-r">#' datanames(data) &lt;- c("countries", "sales")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">925</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">        user_plot = ggplot2_args[["Combinations Main"]],</pre>
+                      <pre class="language-r">#' join_keys(data) &lt;- join_keys(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">926</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">        user_default = ggplot2_args$default,</pre>
+                      <pre class="language-r">#'   join_key("countries", "countries", "id"),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">927</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">        module_plot = dev_ggplot2_args2</pre>
+                      <pre class="language-r">#'   join_key("sales", "sales", "id"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">928</td>
+                    <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#'   join_key("countries", "sales", c("id" = "country_id"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">929</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">930</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">      parsed_ggplot2_args2 &lt;- teal.widgets::parse_ggplot2_args(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">931</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">        all_ggplot2_args2,</pre>
+                      <pre class="language-r">#' app &lt;- init(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">932</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">        ggtheme = input$ggtheme</pre>
+                      <pre class="language-r">#'   data = data,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">933</td>
+                    <td class="num">62</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">934</td>
+                    <td class="num">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'     tm_g_scatterplotmatrix(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">935</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">      teal.code::eval_code(</pre>
+                      <pre class="language-r">#'       label = "Scatterplot matrix",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">936</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">        qenv,</pre>
+                      <pre class="language-r">#'       variables = list(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">937</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">        substitute(</pre>
+                      <pre class="language-r">#'         data_extract_spec(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">938</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">          expr = {</pre>
+                      <pre class="language-r">#'           dataname = "countries",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">939</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">            p1 &lt;- data_combination_plot_cutoff %&gt;%</pre>
+                      <pre class="language-r">#'           select = select_spec(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">940</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">              dplyr::select(id, n) %&gt;%</pre>
+                      <pre class="language-r">#'             label = "Select variables:",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">941</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">              dplyr::distinct() %&gt;%</pre>
+                      <pre class="language-r">#'             choices = variable_choices(data[["countries"]]),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">942</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">              ggplot(aes(x = id, y = n)) +</pre>
+                      <pre class="language-r">#'             selected = c("area", "gdp", "debt"),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">943</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">              geom_bar(stat = "identity", fill = c(getOption("ggplot2.discrete.colour")[2], "#ff2951ff")[1]) +</pre>
+                      <pre class="language-r">#'             multiple = TRUE,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">944</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">              geom_text(aes(label = n), position = position_dodge(width = 0.9), vjust = -0.25) +</pre>
+                      <pre class="language-r">#'             ordered = TRUE,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">945</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">              ylim(c(0, max(data_combination_plot_cutoff$n) * 1.5)) +</pre>
+                      <pre class="language-r">#'             fixed = FALSE</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">946</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">75</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              labs1 +</pre>
+                      <pre class="language-r">#'           )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">947</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">              ggthemes1 +</pre>
+                      <pre class="language-r">#'         ),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">948</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">              themes1</pre>
+                      <pre class="language-r">#'         data_extract_spec(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">949</td>
+                    <td class="num">78</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'           dataname = "sales",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">950</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">            graph_number_rows &lt;- length(unique(data_combination_plot_cutoff$id))</pre>
+                      <pre class="language-r">#'           filter = filter_spec(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">951</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">            graph_number_cols &lt;- nrow(data_combination_plot_cutoff) / graph_number_rows</pre>
+                      <pre class="language-r">#'             label = "Select variable:",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">952</td>
+                    <td class="num">81</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'             vars = "country_id",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">953</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">            p2 &lt;- data_combination_plot_cutoff %&gt;% ggplot() +</pre>
+                      <pre class="language-r">#'             choices = value_choices(data[["sales"]], "country_id"),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">954</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">              aes(x = create_cols_labels(key), y = id - 0.5, fill = value) +</pre>
+                      <pre class="language-r">#'             selected = c("DE", "FR", "IT", "ES", "PT", "GR", "NL", "BE", "LU", "AT"),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">955</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">              geom_tile(alpha = 0.85, height = 0.95) +</pre>
+                      <pre class="language-r">#'             multiple = TRUE</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">956</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">              scale_fill_manual(</pre>
+                      <pre class="language-r">#'           ),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">957</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">                name = "",</pre>
+                      <pre class="language-r">#'           select = select_spec(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">958</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">                values = c("grey90", c(getOption("ggplot2.discrete.colour")[2], "#ff2951ff")[1]),</pre>
+                      <pre class="language-r">#'             label = "Select variables:",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">959</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">                labels = c("Present", "Missing")</pre>
+                      <pre class="language-r">#'             choices = variable_choices(data[["sales"]], c("quantity", "costs", "profit")),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">960</td>
+                    <td class="num">89</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              ) +</pre>
+                      <pre class="language-r">#'             selected = c("quantity", "costs", "profit"),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">961</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">              geom_hline(yintercept = seq_len(1 + graph_number_rows) - 1) +</pre>
+                      <pre class="language-r">#'             multiple = TRUE,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">962</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">91</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              geom_vline(xintercept = seq_len(1 + graph_number_cols) - 0.5, linetype = "dotted") +</pre>
+                      <pre class="language-r">#'             ordered = TRUE,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">963</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">92</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              coord_flip() +</pre>
+                      <pre class="language-r">#'             fixed = FALSE</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">964</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">              labs2 +</pre>
+                      <pre class="language-r">#'           )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">965</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">              ggthemes2 +</pre>
+                      <pre class="language-r">#'         )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">966</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">              themes2</pre>
+                      <pre class="language-r">#'       )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">967</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="missed">
-                    <td class="num">968</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">            g1 &lt;- ggplotGrob(p1)</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">969</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">            g2 &lt;- ggplotGrob(p2)</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">970</td>
+                    <td class="num">99</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="missed">
-                    <td class="num">971</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">100</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            g &lt;- gridExtra::gtable_rbind(g1, g2, size = "last")</pre>
+                      <pre class="language-r">#'   shinyApp(app$ui, app$server)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">972</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">            g$heights[7] &lt;- grid::unit(0.2, "null") # rescale to get the bar chart smaller</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">973</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">            grid::grid.newpage()</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">974</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">            grid::grid.draw(g)</pre>
+                      <pre class="language-r">#' # CDISC data example</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">975</td>
+                    <td class="num">104</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          },</pre>
+                      <pre class="language-r">#' data &lt;- teal_data()</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">976</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">          env = list(</pre>
+                      <pre class="language-r">#' data &lt;- within(data, {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">977</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">            labs1 = parsed_ggplot2_args1$labs,</pre>
+                      <pre class="language-r">#'   ADSL &lt;- rADSL</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">978</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">            themes1 = parsed_ggplot2_args1$theme,</pre>
+                      <pre class="language-r">#'   ADRS &lt;- rADRS</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">979</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">            ggthemes1 = parsed_ggplot2_args1$ggtheme,</pre>
+                      <pre class="language-r">#' })</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">980</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">            labs2 = parsed_ggplot2_args2$labs,</pre>
+                      <pre class="language-r">#' datanames(data) &lt;- c("ADSL", "ADRS")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">981</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">110</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            themes2 = parsed_ggplot2_args2$theme,</pre>
+                      <pre class="language-r">#' join_keys(data) &lt;- default_cdisc_join_keys[datanames(data)]</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">982</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">            ggthemes2 = parsed_ggplot2_args2$ggtheme</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">983</td>
+                    <td class="num">112</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">984</td>
+                    <td class="num">113</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">985</td>
+                    <td class="num">114</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">986</td>
+                    <td class="num">115</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">#'     tm_g_scatterplotmatrix(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">987</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 = "Scatterplot matrix",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">988</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">    combination_plot_r &lt;- reactive(combination_plot_q()[["g"]])</pre>
+                      <pre class="language-r">#'       variables = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">989</td>
+                    <td class="num">118</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'         data_extract_spec(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">990</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">119</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    summary_table_q &lt;- reactive({</pre>
+                      <pre class="language-r">#'           dataname = "ADSL",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">991</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">      req(</pre>
+                      <pre class="language-r">#'           select = select_spec(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">992</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">        input$summary_type == "By Variable Levels", # needed to trigger show r code update on tab change</pre>
+                      <pre class="language-r">#'             label = "Select variables:",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">993</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">122</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        common_code_q()</pre>
+                      <pre class="language-r">#'             choices = variable_choices(data[["ADSL"]]),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">994</td>
+                    <td class="num">123</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#'             selected = c("AGE", "RACE", "SEX"),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">995</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">      teal::validate_has_data(data_r(), 1)</pre>
+                      <pre class="language-r">#'             multiple = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">996</td>
+                    <td class="num">125</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'             ordered = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">997</td>
+                    <td class="num">126</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # extract the ANL dataset for use in further validation</pre>
+                      <pre class="language-r">#'             fixed = FALSE</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">998</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">      anl &lt;- common_code_q()[["ANL"]]</pre>
+                      <pre class="language-r">#'           )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">999</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">1000</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">      group_var &lt;- input$group_by_var</pre>
+                      <pre class="language-r">#'         data_extract_spec(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1001</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">130</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      validate(</pre>
+                      <pre class="language-r">#'           dataname = "ADRS",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1002</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">131</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        need(</pre>
+                      <pre class="language-r">#'           filter = filter_spec(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1003</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">132</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          is.null(group_var) ||</pre>
+                      <pre class="language-r">#'             label = "Select endpoints:",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1004</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">133</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            length(unique(anl[[group_var]])) &lt; 100,</pre>
+                      <pre class="language-r">#'             vars = c("PARAMCD", "AVISIT"),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1005</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">134</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "Please select group-by variable with fewer than 100 unique values"</pre>
+                      <pre class="language-r">#'             choices = value_choices(data[["ADRS"]], c("PARAMCD", "AVISIT"), c("PARAM", "AVISIT")),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1006</td>
+                    <td class="num">135</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#'             selected = "INVET - END OF INDUCTION",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1007</td>
+                    <td class="num">136</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="never">
-                    <td class="num">1008</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="missed">
-                    <td class="num">1009</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">      group_vals &lt;- input$group_by_vals</pre>
+                      <pre class="language-r">#'           select = select_spec(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1010</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">      variables_select &lt;- input$variables_select</pre>
+                      <pre class="language-r">#'             label = "Select variables:",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1011</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">140</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      vars &lt;- unique(variables_select, group_var)</pre>
+                      <pre class="language-r">#'             choices = variable_choices(data[["ADRS"]]),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1012</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">      count_type &lt;- input$count_type</pre>
+                      <pre class="language-r">#'             selected = c("AGE", "AVAL", "ADY"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1013</td>
+                    <td class="num">142</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">1014</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">      if (!is.null(selected_vars()) &amp;&amp; length(selected_vars()) != ncol(anl)) {</pre>
+                      <pre class="language-r">#'             ordered = TRUE,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1015</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">144</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        variables &lt;- selected_vars()</pre>
+                      <pre class="language-r">#'             fixed = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1016</td>
+                    <td class="num">145</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">1017</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">146</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        variables &lt;- colnames(anl)</pre>
+                      <pre class="language-r">#'         )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1018</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">1019</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="missed">
-                    <td class="num">1020</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">      summ_fn &lt;- if (input$count_type == "counts") {</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1021</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">150</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        function(x) sum(is.na(x))</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1022</td>
+                    <td class="num">151</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">#' if (interactive()) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1023</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">152</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        function(x) round(sum(is.na(x)) / length(x), 4)</pre>
+                      <pre class="language-r">#'   shinyApp(app$ui, app$server)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1024</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">1025</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>
-                  <tr class="missed">
-                    <td class="num">1026</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">155</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      qenv &lt;- common_code_q()</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1027</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="missed">
-                    <td class="num">1028</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">      if (!is.null(group_var)) {</pre>
+                      <pre class="language-r">tm_g_scatterplotmatrix &lt;- function(label = "Scatterplot Matrix",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1029</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">        qenv &lt;- teal.code::eval_code(</pre>
+                      <pre class="language-r">                                   variables,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1030</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">          qenv,</pre>
+                      <pre class="language-r">                                   plot_height = c(600, 200, 2000),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1031</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">          substitute(</pre>
+                      <pre class="language-r">                                   plot_width = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1032</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">            expr = {</pre>
+                      <pre class="language-r">                                   pre_output = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1033</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">              summary_data &lt;- ANL %&gt;%</pre>
+                      <pre class="language-r">                                   post_output = NULL) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1034</td>
+                    <td class="num">163</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                dplyr::mutate(group_var_name := forcats::fct_na_value_to_level(as.factor(group_var_name), "NA")) %&gt;%</pre>
+                      <pre class="language-r">  logger::log_info("Initializing tm_g_scatterplotmatrix")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1035</td>
+                    <td class="num">164</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                dplyr::group_by_at(group_var) %&gt;%</pre>
+                      <pre class="language-r">  if (!requireNamespace("lattice", quietly = TRUE)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1036</td>
+                    <td class="num">165</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                dplyr::filter(group_var_name %in% group_vals)</pre>
+                      <pre class="language-r">    stop("Cannot load lattice - please install the package or restart your session.")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1037</td>
+                    <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="missed">
-                    <td class="num">1038</td>
+                    <td class="num">167</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              count_data &lt;- dplyr::summarise(summary_data, n = dplyr::n())</pre>
+                      <pre class="language-r">  if (inherits(variables, "data_extract_spec")) variables &lt;- list(variables)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1039</td>
+                    <td class="num">168</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1040</td>
+                    <td class="num">169</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              summary_data &lt;- dplyr::summarise_all(summary_data, summ_fn) %&gt;%</pre>
+                      <pre class="language-r">  checkmate::assert_string(label)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1041</td>
+                    <td class="num">170</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                dplyr::mutate(group_var_name := paste0(group_var, ":", group_var_name, "(N=", count_data$n, ")")) %&gt;%</pre>
+                      <pre class="language-r">  checkmate::assert_list(variables, types = "data_extract_spec")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1042</td>
+                    <td class="num">171</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                tidyr::pivot_longer(!tidyselect::all_of(group_var), names_to = "Variable", values_to = "out") %&gt;%</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(plot_height, len = 3, any.missing = FALSE, finite = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1043</td>
+                    <td class="num">172</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                tidyr::pivot_wider(names_from = group_var, values_from = "out") %&gt;%</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(plot_height[1], lower = plot_height[2], upper = plot_height[3], .var.name = "plot_height")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1044</td>
+                    <td class="num">173</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                dplyr::mutate(`Variable label` = create_cols_labels(Variable, just_label = TRUE), .after = Variable)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">1045</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            },</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(plot_width, len = 3, any.missing = FALSE, null.ok = TRUE, finite = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1046</td>
+                    <td class="num">174</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            env = list(</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1047</td>
+                    <td class="num">175</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              group_var = group_var, group_var_name = as.name(group_var), group_vals = group_vals, summ_fn = summ_fn</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">1048</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">    plot_width[1],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1049</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">    lower = plot_width[2], upper = plot_width[3], null.ok = TRUE, .var.name = "plot_width"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1050</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">1051</td>
+                    <td class="num">178</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">1052</td>
+                    <td class="num">179</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        qenv &lt;- teal.code::eval_code(</pre>
+                      <pre class="language-r">  args &lt;- as.list(environment())</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1053</td>
+                    <td class="num">180</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          qenv,</pre>
+                      <pre class="language-r">  module(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1054</td>
+                    <td class="num">181</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          substitute(</pre>
+                      <pre class="language-r">    label = label,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1055</td>
+                    <td class="num">182</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            expr = summary_data &lt;- ANL %&gt;%</pre>
+                      <pre class="language-r">    server = srv_g_scatterplotmatrix,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1056</td>
+                    <td class="num">183</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              dplyr::summarise_all(summ_fn) %&gt;%</pre>
+                      <pre class="language-r">    ui = ui_g_scatterplotmatrix,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1057</td>
+                    <td class="num">184</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              tidyr::pivot_longer(tidyselect::everything(),</pre>
+                      <pre class="language-r">    ui_args = args,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1058</td>
+                    <td class="num">185</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                names_to = "Variable",</pre>
+                      <pre class="language-r">    server_args = list(variables = variables, plot_height = plot_height, plot_width = plot_width),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1059</td>
+                    <td class="num">186</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                values_to = paste0("Missing (N=", nrow(ANL), ")")</pre>
+                      <pre class="language-r">    datanames = teal.transform::get_extract_datanames(variables)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1060</td>
+                    <td class="num">187</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              ) %&gt;%</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">1061</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">              dplyr::mutate(`Variable label` = create_cols_labels(Variable), .after = Variable),</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1062</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">            env = list(summ_fn = summ_fn)</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1063</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">1064</td>
+                    <td class="num">190</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">ui_g_scatterplotmatrix &lt;- function(id, ...) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1065</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">191</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">  args &lt;- list(...)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1066</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"></pre>
+                      <pre class="language-r">  is_single_dataset_value &lt;- teal.transform::is_single_dataset(args$variables)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1067</td>
+                    <td class="num">193</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.code::eval_code(qenv, quote(summary_data))</pre>
+                      <pre class="language-r">  ns &lt;- NS(id)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1068</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">    })</pre>
+                      <pre class="language-r">  teal.widgets::standard_layout(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1069</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"></pre>
+                      <pre class="language-r">    output = teal.widgets::white_small_well(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1070</td>
+                    <td class="num">196</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    summary_table_r &lt;- reactive(summary_table_q()[["summary_data"]])</pre>
+                      <pre class="language-r">      textOutput(ns("message")),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1071</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"></pre>
+                      <pre class="language-r">      br(),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1072</td>
+                    <td class="num">198</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    by_subject_plot_q &lt;- reactive({</pre>
+                      <pre class="language-r">      teal.widgets::plot_with_settings_ui(id = ns("myplot"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1073</td>
+                    <td class="num">199</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # needed to trigger show r code update on tab change</pre>
+                      <pre class="language-r">    ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1074</td>
+                    <td class="num">200</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      req(input$summary_type == "Grouped by Subject", common_code_q())</pre>
+                      <pre class="language-r">    encoding = div(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1075</td>
+                    <td class="num">201</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      ### Reporter</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1076</td>
+                    <td class="num">202</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal::validate_has_data(data_r(), 1)</pre>
+                      <pre class="language-r">      teal.reporter::simple_reporter_ui(ns("simple_reporter")),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1077</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="missed">
-                    <td class="num">1078</td>
+                    <td class="num">204</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dev_ggplot2_args &lt;- teal.widgets::ggplot2_args(</pre>
+                      <pre class="language-r">      tags$label("Encodings", class = "text-primary"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1079</td>
+                    <td class="num">205</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        labs = list(x = "", y = ""),</pre>
+                      <pre class="language-r">      teal.transform::datanames_input(args$variables),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1080</td>
+                    <td class="num">206</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        theme = list(legend.position = "bottom", axis.text.x = quote(element_blank()))</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">1081</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">1082</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      teal.transform::data_extract_ui(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1083</td>
+                    <td class="num">207</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      all_ggplot2_args &lt;- teal.widgets::resolve_ggplot2_args(</pre>
+                      <pre class="language-r">        id = ns("variables"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1084</td>
+                    <td class="num">208</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        user_plot = ggplot2_args[["By Subject"]],</pre>
+                      <pre class="language-r">        label = "Variables",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1085</td>
+                    <td class="num">209</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        user_default = ggplot2_args$default,</pre>
+                      <pre class="language-r">        data_extract_spec = args$variables,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1086</td>
+                    <td class="num">210</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        module_plot = dev_ggplot2_args</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">1087</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">        is_single_dataset = is_single_dataset_value</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1088</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="missed">
-                    <td class="num">1089</td>
+                    <td class="num">212</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      parsed_ggplot2_args &lt;- teal.widgets::parse_ggplot2_args(</pre>
+                      <pre class="language-r">      hr(),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1090</td>
+                    <td class="num">213</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        all_ggplot2_args,</pre>
+                      <pre class="language-r">      teal.widgets::panel_group(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1091</td>
+                    <td class="num">214</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ggtheme = input$ggtheme</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">1092</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">1093</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        teal.widgets::panel_item(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1094</td>
+                    <td class="num">215</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.code::eval_code(</pre>
+                      <pre class="language-r">          title = "Plot settings",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1095</td>
+                    <td class="num">216</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        common_code_q(),</pre>
+                      <pre class="language-r">          sliderInput(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1096</td>
+                    <td class="num">217</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        substitute(</pre>
+                      <pre class="language-r">            ns("alpha"), "Opacity:",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1097</td>
+                    <td class="num">218</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          expr = parent_keys &lt;- keys,</pre>
+                      <pre class="language-r">            min = 0, max = 1,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1098</td>
+                    <td class="num">219</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          env = list(keys = data_parent_keys())</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">1099</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">            step = .05, value = .5, ticks = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1100</td>
+                    <td class="num">220</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ) %&gt;%</pre>
+                      <pre class="language-r">          ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1101</td>
+                    <td class="num">221</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        teal.code::eval_code(</pre>
+                      <pre class="language-r">          sliderInput(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1102</td>
+                    <td class="num">222</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          substitute(</pre>
+                      <pre class="language-r">            ns("cex"), "Points size:",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1103</td>
+                    <td class="num">223</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            expr = analysis_vars &lt;- setdiff(colnames(ANL), data_keys),</pre>
+                      <pre class="language-r">            min = 0.2, max = 3,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1104</td>
+                    <td class="num">224</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            env = list(data_keys = data_keys())</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">1105</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">            step = .05, value = .65, ticks = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1106</td>
+                    <td class="num">225</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ) %&gt;%</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">1107</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        teal.code::eval_code(</pre>
+                      <pre class="language-r">          ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1108</td>
+                    <td class="num">226</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          quote({</pre>
+                      <pre class="language-r">          checkboxInput(ns("cor"), "Add Correlation", value = FALSE),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1109</td>
+                    <td class="num">227</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            summary_plot_patients &lt;- ANL[, c(parent_keys, analysis_vars)] %&gt;%</pre>
+                      <pre class="language-r">          radioButtons(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1110</td>
+                    <td class="num">228</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              dplyr::group_by_at(parent_keys) %&gt;%</pre>
+                      <pre class="language-r">            ns("cor_method"), "Select Correlation Method",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1111</td>
+                    <td class="num">229</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              dplyr::mutate(id = dplyr::cur_group_id()) %&gt;%</pre>
+                      <pre class="language-r">            choiceNames = c("Pearson", "Kendall", "Spearman"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1112</td>
+                    <td class="num">230</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              dplyr::ungroup() %&gt;%</pre>
+                      <pre class="language-r">            choiceValues = c("pearson", "kendall", "spearman"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1113</td>
+                    <td class="num">231</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              dplyr::group_by_at(c(parent_keys, "id")) %&gt;%</pre>
+                      <pre class="language-r">            inline = TRUE</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1114</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">232</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              dplyr::summarise_all(anyNA) %&gt;%</pre>
+                      <pre class="language-r">          ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1115</td>
+                    <td class="num">233</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              dplyr::ungroup()</pre>
+                      <pre class="language-r">          checkboxInput(ns("cor_na_omit"), "Omit Missing Values", value = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1116</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">1117</td>
+                    <td class="num">235</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            # order subjects by decreasing number of missing and then by</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1118</td>
+                    <td class="num">236</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            # missingness pattern (defined using sha1)</pre>
+                      <pre class="language-r">    ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1119</td>
+                    <td class="num">237</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            order_subjects &lt;- summary_plot_patients %&gt;%</pre>
+                      <pre class="language-r">    forms = tagList(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1120</td>
+                    <td class="num">238</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              dplyr::select(-"id", -tidyselect::all_of(parent_keys)) %&gt;%</pre>
+                      <pre class="language-r">      teal.widgets::verbatim_popup_ui(ns("warning"), "Show Warnings"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1121</td>
+                    <td class="num">239</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              dplyr::transmute(</pre>
+                      <pre class="language-r">      teal.widgets::verbatim_popup_ui(ns("rcode"), "Show R code")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1122</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">                id = dplyr::row_number(),</pre>
+                      <pre class="language-r">    ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1123</td>
+                    <td class="num">241</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                number_NA = apply(., 1, sum),</pre>
+                      <pre class="language-r">    pre_output = args$pre_output,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1124</td>
+                    <td class="num">242</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                sha = apply(., 1, rlang::hash)</pre>
+                      <pre class="language-r">    post_output = args$post_output</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1125</td>
+                    <td class="num">243</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              ) %&gt;%</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">}</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>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">246</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">srv_g_scatterplotmatrix &lt;- function(id, data, reporter, filter_panel_api, variables, plot_height, plot_width) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1126</td>
+                    <td class="num">247</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              dplyr::arrange(dplyr::desc(number_NA), sha) %&gt;%</pre>
+                      <pre class="language-r">  with_reporter &lt;- !missing(reporter) &amp;&amp; inherits(reporter, "Reporter")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1127</td>
+                    <td class="num">248</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              getElement(name = "id")</pre>
+                      <pre class="language-r">  with_filter &lt;- !missing(filter_panel_api) &amp;&amp; inherits(filter_panel_api, "FilterPanelAPI")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1128</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"></pre>
+                      <pre class="language-r">  checkmate::assert_class(data, "reactive")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1129</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">            # order columns by decreasing percent of missing values</pre>
+                      <pre class="language-r">  checkmate::assert_class(isolate(data()), "teal_data")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1130</td>
+                    <td class="num">251</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ordered_columns &lt;- summary_plot_patients %&gt;%</pre>
+                      <pre class="language-r">  moduleServer(id, function(input, output, session) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1131</td>
+                    <td class="num">252</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              dplyr::select(-"id", -tidyselect::all_of(parent_keys)) %&gt;%</pre>
+                      <pre class="language-r">    selector_list &lt;- teal.transform::data_extract_multiple_srv(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1132</td>
+                    <td class="num">253</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              dplyr::summarise(</pre>
+                      <pre class="language-r">      data_extract = list(variables = variables),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1133</td>
+                    <td class="num">254</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                column = create_cols_labels(colnames(.)),</pre>
+                      <pre class="language-r">      datasets = data,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1134</td>
+                    <td class="num">255</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                na_count = apply(., MARGIN = 2, FUN = sum),</pre>
+                      <pre class="language-r">      select_validation_rule = list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1135</td>
+                    <td class="num">256</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                na_percent = na_count / nrow(.) * 100</pre>
+                      <pre class="language-r">        variables = ~ if (length(.) &lt;= 1) "Please select at least 2 columns."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1136</td>
+                    <td class="num">257</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              ) %&gt;%</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1137</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">258</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              dplyr::arrange(na_percent, dplyr::desc(column))</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1138</td>
+                    <td class="num">259</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1139</td>
+                    <td class="num">260</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            summary_plot_patients &lt;- summary_plot_patients %&gt;%</pre>
+                      <pre class="language-r">    iv_r &lt;- reactive({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1140</td>
+                    <td class="num">261</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              tidyr::gather("col", "isna", -"id", -tidyselect::all_of(parent_keys)) %&gt;%</pre>
+                      <pre class="language-r">      iv &lt;- shinyvalidate::InputValidator$new()</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1141</td>
+                    <td class="num">262</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              dplyr::mutate(col = create_cols_labels(col))</pre>
+                      <pre class="language-r">      teal.transform::compose_and_enable_validators(iv, selector_list)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1142</td>
+                    <td class="num">263</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          })</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1143</td>
+                    <td class="num">264</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ) %&gt;%</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1144</td>
+                    <td class="num">265</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        teal.code::eval_code(</pre>
+                      <pre class="language-r">    anl_merged_input &lt;- teal.transform::merge_expression_srv(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1145</td>
+                    <td class="num">266</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          substitute(</pre>
+                      <pre class="language-r">      datasets = data,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1146</td>
+                    <td class="num">267</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            expr = {</pre>
+                      <pre class="language-r">      selector_list = selector_list</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>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">269</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1147</td>
+                    <td class="num">270</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              g &lt;- ggplot(summary_plot_patients, aes(</pre>
+                      <pre class="language-r">    anl_merged_q &lt;- reactive({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1148</td>
+                    <td class="num">271</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                x = factor(id, levels = order_subjects),</pre>
+                      <pre class="language-r">      req(anl_merged_input())</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1149</td>
+                    <td class="num">272</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                y = factor(col, levels = ordered_columns[["column"]]),</pre>
+                      <pre class="language-r">      data() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1150</td>
+                    <td class="num">273</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                fill = isna</pre>
+                      <pre class="language-r">        teal.code::eval_code(as.expression(anl_merged_input()$expr))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1151</td>
+                    <td class="num">274</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">1152</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">275</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                geom_raster() +</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1153</td>
+                    <td class="num">276</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                annotate(</pre>
+                      <pre class="language-r">    merged &lt;- list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1154</td>
+                    <td class="num">277</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  "text",</pre>
+                      <pre class="language-r">      anl_input_r = anl_merged_input,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1155</td>
+                    <td class="num">278</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  x = length(order_subjects),</pre>
+                      <pre class="language-r">      anl_q_r = anl_merged_q</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1156</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">279</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  y = seq_len(nrow(ordered_columns)),</pre>
+                      <pre class="language-r">    )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">280</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">281</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    # plot</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1157</td>
+                    <td class="num">282</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  hjust = 1,</pre>
+                      <pre class="language-r">    output_q &lt;- reactive({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1158</td>
+                    <td class="num">283</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  label = sprintf("%d [%.02f%%]", ordered_columns[["na_count"]], ordered_columns[["na_percent"]])</pre>
+                      <pre class="language-r">      teal::validate_inputs(iv_r())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1159</td>
+                    <td class="num">284</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">1160</td>
+                    <td class="num">285</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                scale_fill_manual(</pre>
+                      <pre class="language-r">      qenv &lt;- merged$anl_q_r()</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1161</td>
+                    <td class="num">286</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  name = "",</pre>
+                      <pre class="language-r">      ANL &lt;- qenv[["ANL"]] # nolint: object_name.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1162</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">287</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  values = c("grey90", c(getOption("ggplot2.discrete.colour")[2], "#ff2951ff")[1]),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1163</td>
+                    <td class="num">288</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  labels = c("Present", "Missing (at least one)")</pre>
+                      <pre class="language-r">      cols_names &lt;- merged$anl_input_r()$columns_source$variables</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1164</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">                ) +</pre>
+                      <pre class="language-r">      alpha &lt;- input$alpha</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1165</td>
+                    <td class="num">290</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                labs +</pre>
+                      <pre class="language-r">      cex &lt;- input$cex</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1166</td>
+                    <td class="num">291</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                ggthemes +</pre>
+                      <pre class="language-r">      add_cor &lt;- input$cor</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1167</td>
+                    <td class="num">292</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                themes</pre>
+                      <pre class="language-r">      cor_method &lt;- input$cor_method</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1168</td>
+                    <td class="num">293</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              print(g)</pre>
+                      <pre class="language-r">      cor_na_omit &lt;- input$cor_na_omit</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1169</td>
+                    <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="missed">
-                    <td class="num">1170</td>
+                    <td class="num">295</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            env = list(</pre>
+                      <pre class="language-r">      cor_na_action &lt;- if (isTruthy(cor_na_omit)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1171</td>
+                    <td class="num">296</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              labs = parsed_ggplot2_args$labs,</pre>
+                      <pre class="language-r">        "na.omit"</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1172</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">297</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              themes = parsed_ggplot2_args$theme,</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1173</td>
+                    <td class="num">298</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              ggthemes = parsed_ggplot2_args$ggtheme</pre>
+                      <pre class="language-r">        "na.fail"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1174</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">1175</td>
+                    <td class="num">300</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1176</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">301</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">      teal::validate_has_data(ANL, 10)</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">302</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      teal::validate_has_data(ANL[, cols_names, drop = FALSE], 10, complete = TRUE, allow_inf = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1177</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">1178</td>
+                    <td class="num">304</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      # get labels and proper variable names</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1179</td>
+                    <td class="num">305</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    by_subject_plot_r &lt;- reactive(by_subject_plot_q()[["g"]])</pre>
+                      <pre class="language-r">      varnames &lt;- varname_w_label(cols_names, ANL, wrap_width = 20)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1180</td>
+                    <td class="num">306</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="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      # check character columns. If any, then those are converted to factors</pre>
+                    </td>
+                  </tr>
                   <tr class="missed">
-                    <td class="num">1181</td>
+                    <td class="num">308</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    output$levels_table &lt;- DT::renderDataTable(</pre>
+                      <pre class="language-r">      check_char &lt;- vapply(ANL[, cols_names], is.character, logical(1))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1182</td>
+                    <td class="num">309</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      expr = {</pre>
+                      <pre class="language-r">      if (any(check_char)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1183</td>
+                    <td class="num">310</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (length(input$variables_select) == 0) {</pre>
+                      <pre class="language-r">        qenv &lt;- teal.code::eval_code(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1184</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">          # so that zeroRecords message gets printed</pre>
+                      <pre class="language-r">          qenv,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1185</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">          # using tibble as it supports weird column names, such as " "</pre>
+                      <pre class="language-r">          substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1186</td>
+                    <td class="num">313</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          tibble::tibble(` ` = logical(0))</pre>
+                      <pre class="language-r">            expr = ANL &lt;- ANL[, cols_names] %&gt;% # nolint: object_name.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1187</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">        } else {</pre>
+                      <pre class="language-r">              dplyr::mutate_if(is.character, as.factor) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1188</td>
+                    <td class="num">315</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          summary_table_r()</pre>
+                      <pre class="language-r">              droplevels(),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1189</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">316</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">            env = list(cols_names = cols_names)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1190</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="missed">
-                    <td class="num">1191</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">318</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      options = list(language = list(zeroRecords = "No variable selected"), pageLength = input$levels_table_rows)</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1192</td>
+                    <td class="num">319</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">1193</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">320</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        qenv &lt;- teal.code::eval_code(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1194</td>
+                    <td class="num">321</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    pws1 &lt;- teal.widgets::plot_with_settings_srv(</pre>
+                      <pre class="language-r">          qenv,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1195</td>
+                    <td class="num">322</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      id = "summary_plot",</pre>
+                      <pre class="language-r">          substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1196</td>
+                    <td class="num">323</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      plot_r = summary_plot_r,</pre>
+                      <pre class="language-r">            expr = ANL &lt;- ANL[, cols_names] %&gt;% # nolint: object_name.</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1197</td>
+                    <td class="num">324</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      height = plot_height,</pre>
+                      <pre class="language-r">              droplevels(),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1198</td>
+                    <td class="num">325</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      width = plot_width</pre>
+                      <pre class="language-r">            env = list(cols_names = cols_names)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1199</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">1200</td>
+                    <td class="num">327</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">328</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">329</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1201</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">330</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    pws2 &lt;- teal.widgets::plot_with_settings_srv(</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">      # create plot</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1202</td>
+                    <td class="num">332</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      id = "combination_plot",</pre>
+                      <pre class="language-r">      if (add_cor) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1203</td>
+                    <td class="num">333</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      plot_r = combination_plot_r,</pre>
+                      <pre class="language-r">        shinyjs::show("cor_method")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1204</td>
+                    <td class="num">334</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      height = plot_height,</pre>
+                      <pre class="language-r">        shinyjs::show("cor_use")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1205</td>
+                    <td class="num">335</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      width = plot_width</pre>
+                      <pre class="language-r">        shinyjs::show("cor_na_omit")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1206</td>
+                    <td class="num">336</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1207</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">        qenv &lt;- teal.code::eval_code(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1208</td>
+                    <td class="num">338</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    pws3 &lt;- teal.widgets::plot_with_settings_srv(</pre>
+                      <pre class="language-r">          qenv,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1209</td>
+                    <td class="num">339</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      id = "by_subject_plot",</pre>
+                      <pre class="language-r">          substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1210</td>
+                    <td class="num">340</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      plot_r = by_subject_plot_r,</pre>
+                      <pre class="language-r">            expr = {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1211</td>
+                    <td class="num">341</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      height = plot_height,</pre>
+                      <pre class="language-r">              g &lt;- lattice::splom(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1212</td>
+                    <td class="num">342</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      width = plot_width</pre>
+                      <pre class="language-r">                ANL,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1213</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">                varnames = varnames_value,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1214</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">344</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                panel = function(x, y, ...) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1215</td>
+                    <td class="num">345</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    final_q &lt;- reactive({</pre>
+                      <pre class="language-r">                  lattice::panel.splom(x = x, y = y, ...)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1216</td>
+                    <td class="num">346</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      req(input$summary_type)</pre>
+                      <pre class="language-r">                  cpl &lt;- lattice::current.panel.limits()</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1217</td>
+                    <td class="num">347</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      sum_type &lt;- input$summary_type</pre>
+                      <pre class="language-r">                  lattice::panel.text(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1218</td>
+                    <td class="num">348</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (sum_type == "Summary") {</pre>
+                      <pre class="language-r">                    mean(cpl$xlim),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1219</td>
+                    <td class="num">349</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        summary_plot_q()</pre>
+                      <pre class="language-r">                    mean(cpl$ylim),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1220</td>
+                    <td class="num">350</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                    get_scatterplotmatrix_stats(</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">351</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                      x,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">352</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else if (sum_type == "Combinations") {</pre>
+                      <pre class="language-r">                      y,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1221</td>
+                    <td class="num">353</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        combination_plot_q()</pre>
+                      <pre class="language-r">                      .f = stats::cor.test,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1222</td>
+                    <td class="num">354</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else if (sum_type == "By Variable Levels") {</pre>
+                      <pre class="language-r">                      .f_args = list(method = cor_method, na.action = cor_na_action)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1223</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">355</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        summary_table_q()</pre>
+                      <pre class="language-r">                    ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1224</td>
+                    <td class="num">356</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else if (sum_type == "Grouped by Subject") {</pre>
+                      <pre class="language-r">                    alpha = 0.6,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1225</td>
+                    <td class="num">357</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        by_subject_plot_q()</pre>
+                      <pre class="language-r">                    fontsize = 18,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1226</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">      }</pre>
+                      <pre class="language-r">                    fontface = "bold"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1227</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">1228</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="missed">
-                    <td class="num">1229</td>
+                    <td class="num">361</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    teal.widgets::verbatim_popup_srv(</pre>
+                      <pre class="language-r">                pch = 16,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1230</td>
+                    <td class="num">362</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      id = "warning",</pre>
+                      <pre class="language-r">                alpha = alpha_value,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1231</td>
+                    <td class="num">363</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      verbatim_content = reactive(teal.code::get_warnings(final_q())),</pre>
+                      <pre class="language-r">                cex = cex_value</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1232</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">      title = "Warning",</pre>
+                      <pre class="language-r">              )</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1233</td>
+                    <td class="num">365</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      disabled = reactive(is.null(teal.code::get_warnings(final_q())))</pre>
+                      <pre class="language-r">              print(g)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1234</td>
+                    <td class="num">366</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">            },</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1235</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"></pre>
+                      <pre class="language-r">            env = list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1236</td>
+                    <td class="num">368</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    teal.widgets::verbatim_popup_srv(</pre>
+                      <pre class="language-r">              varnames_value = varnames,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1237</td>
+                    <td class="num">369</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      id = "rcode",</pre>
+                      <pre class="language-r">              cor_method = cor_method,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1238</td>
+                    <td class="num">370</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      verbatim_content = reactive(teal.code::get_code(final_q())),</pre>
+                      <pre class="language-r">              cor_na_action = cor_na_action,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1239</td>
+                    <td class="num">371</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      title = "Show R Code for Missing Data"</pre>
+                      <pre class="language-r">              alpha_value = alpha,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">372</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">              cex_value = cex</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1240</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">1241</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">1242</td>
+                    <td class="num">375</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ### REPORTER</pre>
+                      <pre class="language-r">        )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">376</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1243</td>
+                    <td class="num">377</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (with_reporter) {</pre>
+                      <pre class="language-r">        shinyjs::hide("cor_method")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1244</td>
+                    <td class="num">378</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      card_fun &lt;- function(comment, label) {</pre>
+                      <pre class="language-r">        shinyjs::hide("cor_use")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1245</td>
+                    <td class="num">379</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        card &lt;- teal::TealReportCard$new()</pre>
+                      <pre class="language-r">        shinyjs::hide("cor_na_omit")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1246</td>
+                    <td class="num">380</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        sum_type &lt;- input$summary_type</pre>
+                      <pre class="language-r">        qenv &lt;- teal.code::eval_code(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1247</td>
+                    <td class="num">381</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        title &lt;- if (sum_type == "By Variable Levels") paste0(sum_type, " Table") else paste0(sum_type, " Plot")</pre>
+                      <pre class="language-r">          qenv,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1248</td>
+                    <td class="num">382</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        title_dataname &lt;- paste(title, dataname, sep = " - ")</pre>
+                      <pre class="language-r">          substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1249</td>
+                    <td class="num">383</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        label &lt;- if (label == "") {</pre>
+                      <pre class="language-r">            expr = {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1250</td>
+                    <td class="num">384</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          paste("Missing Data", sum_type, dataname, sep = " - ")</pre>
+                      <pre class="language-r">              g &lt;- lattice::splom(ANL, varnames = varnames_value, pch = 16, alpha = alpha_value, cex = cex_value)</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">385</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">              g</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1251</td>
+                    <td class="num">386</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">1252</td>
+                    <td class="num">387</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          label</pre>
+                      <pre class="language-r">            env = list(varnames_value = varnames, alpha_value = alpha, cex_value = cex)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1253</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="missed">
-                    <td class="num">1254</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">389</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        card$set_name(label)</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1255</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">390</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        card$append_text(title_dataname, "header2")</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1256</td>
+                    <td class="num">391</td>
                     <td class="coverage">!</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">      qenv</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1257</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">392</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (sum_type == "Summary") {</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1258</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">393</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          card$append_text("Plot", "header3")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1259</td>
+                    <td class="num">394</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          card$append_plot(summary_plot_r(), dim = pws1$dim())</pre>
+                      <pre class="language-r">    plot_r &lt;- reactive(output_q()[["g"]])</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1260</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">395</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        } else if (sum_type == "Combinations") {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1261</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">396</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          card$append_text("Plot", "header3")</pre>
+                      <pre class="language-r">    # Insert the plot into a plot_with_settings module</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1262</td>
+                    <td class="num">397</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          card$append_plot(combination_plot_r(), dim = pws2$dim())</pre>
+                      <pre class="language-r">    pws &lt;- teal.widgets::plot_with_settings_srv(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1263</td>
+                    <td class="num">398</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        } else if (sum_type == "By Variable Levels") {</pre>
+                      <pre class="language-r">      id = "myplot",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1264</td>
+                    <td class="num">399</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          card$append_text("Table", "header3")</pre>
+                      <pre class="language-r">      plot_r = plot_r,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1265</td>
+                    <td class="num">400</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          card$append_table(summary_table_r[["summary_data"]])</pre>
+                      <pre class="language-r">      height = plot_height,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1266</td>
+                    <td class="num">401</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        } else if (sum_type == "Grouped by Subject") {</pre>
+                      <pre class="language-r">      width = plot_width</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1267</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">402</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          card$append_text("Plot", "header3")</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1268</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">403</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          card$append_plot(by_subject_plot_r(), dim = pws3$dim())</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1269</td>
+                    <td class="num">404</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">    # show a message if conversion to factors took place</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1270</td>
+                    <td class="num">405</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (!comment == "") {</pre>
+                      <pre class="language-r">    output$message &lt;- renderText({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1271</td>
+                    <td class="num">406</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          card$append_text("Comment", "header3")</pre>
+                      <pre class="language-r">      shiny::req(iv_r()$is_valid())</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1272</td>
+                    <td class="num">407</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          card$append_text(comment)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">1273</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">      req(selector_list()$variables())</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1274</td>
+                    <td class="num">408</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        card$append_src(teal.code::get_code(final_q()))</pre>
+                      <pre class="language-r">      ANL &lt;- merged$anl_q_r()[["ANL"]] # nolint: object_name.</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1275</td>
+                    <td class="num">409</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        card</pre>
+                      <pre class="language-r">      cols_names &lt;- unique(unname(do.call(c, merged$anl_input_r()$columns_source)))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1276</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">      }</pre>
+                      <pre class="language-r">      check_char &lt;- vapply(ANL[, cols_names], is.character, logical(1))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1277</td>
+                    <td class="num">411</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun)</pre>
+                      <pre class="language-r">      if (any(check_char)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1278</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">    }</pre>
+                      <pre class="language-r">        is_single &lt;- sum(check_char) == 1</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1279</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">        paste(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1280</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">          "Character",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1281</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">}</pre>
+                      <pre class="language-r">          ifelse(is_single, "variable", "variables"),</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/tm_variable_browser.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">416</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Variable Browser Teal Module</pre>
+                      <pre class="language-r">          paste0("(", paste(cols_names[check_char], collapse = ", "), ")"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">2</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">          ifelse(is_single, "was", "were"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">3</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">#' The variable browser provides a table with variable names and labels and a</pre>
+                      <pre class="language-r">          "converted to",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">4</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">#' plot that visualizes the content of a particular variable.</pre>
+                      <pre class="language-r">          ifelse(is_single, "factor.", "factors.")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">420</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' specifically designed for use with `data.frames`.</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">421</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">7</td>
+                    <td class="num">422</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @details Numeric columns with fewer than 30 distinct values can be treated as either factors</pre>
+                      <pre class="language-r">        ""</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">423</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' or numbers with a checkbox allowing users to switch how they are treated (if &lt; 6 unique values</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">424</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' then the default is categorical, otherwise it is numeric).</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">425</td>
                     <td class="coverage"></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>
+                  <tr class="missed">
+                    <td class="num">426</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams teal::module</pre>
+                      <pre class="language-r">    teal.widgets::verbatim_popup_srv(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">12</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">#' @inheritParams shared_params</pre>
+                      <pre class="language-r">      id = "warning",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">13</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">#' @param parent_dataname (`character(1)`) If this `dataname` exists in `datasets_selected`</pre>
+                      <pre class="language-r">      verbatim_content = reactive(teal.code::get_warnings(output_q())),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">14</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">#'   then an extra checkbox will be shown to allow users to not show variables in other datasets</pre>
+                      <pre class="language-r">      title = "Warning",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">15</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">#'   which exist in this `dataname`.</pre>
+                      <pre class="language-r">      disabled = reactive(is.null(teal.code::get_warnings(output_q())))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">431</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   This is typically used to remove `ADSL` columns in `CDISC` data. In non `CDISC` data this</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">432</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   can be ignored. Defaults to `"ADSL"`.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">18</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">#' @param datasets_selected (`character`) A vector of datasets which should be</pre>
+                      <pre class="language-r">    teal.widgets::verbatim_popup_srv(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">19</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">434</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   shown and in what order. Names in the vector have to correspond with datasets names.</pre>
+                      <pre class="language-r">      id = "rcode",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">20</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">435</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   If vector of length zero (default) then all datasets are shown.</pre>
+                      <pre class="language-r">      verbatim_content = reactive(teal.code::get_code(output_q())),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">21</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">436</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   Note: Only datasets of the `data.frame` class are compatible; using other types will cause an error.</pre>
+                      <pre class="language-r">      title = "Show R Code for Scatterplotmatrix"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">437</td>
                     <td class="coverage"></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">438</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @aliases</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">439</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   tm_variable_browser_ui,</pre>
+                      <pre class="language-r">    ### REPORTER</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">25</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">440</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   tm_variable_browser_srv,</pre>
+                      <pre class="language-r">    if (with_reporter) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">26</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">441</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   tm_variable_browser,</pre>
+                      <pre class="language-r">      card_fun &lt;- function(comment, label) {</pre>
                     </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">27</td>
-                    <td class="coverage"></td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">442</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   variable_browser_ui,</pre>
+                      <pre class="language-r">        card &lt;- teal::report_card_template(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">28</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">443</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   variable_browser_srv,</pre>
+                      <pre class="language-r">          title = "Scatter Plot Matrix",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">29</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">444</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   variable_browser</pre>
+                      <pre class="language-r">          label = label,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">30</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">445</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          with_filter = with_filter,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">31</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">446</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">          filter_panel_api = filter_panel_api</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">32</td>
+                    <td class="num">447</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(teal.widgets)</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">448</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        card$append_text("Plot", "header3")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">34</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">449</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # module specification used in apps below</pre>
+                      <pre class="language-r">        card$append_plot(plot_r(), dim = pws$dim())</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">35</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">450</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' tm_variable_browser_module &lt;- tm_variable_browser(</pre>
+                      <pre class="language-r">        if (!comment == "") {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">36</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">451</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   label = "Variable browser",</pre>
+                      <pre class="language-r">          card$append_text("Comment", "header3")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">37</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">452</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ggplot2_args = ggplot2_args(</pre>
+                      <pre class="language-r">          card$append_text(comment)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">453</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     labs = list(subtitle = "Plot generated by Variable Browser Module")</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">454</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">        card$append_src(teal.code::get_code(output_q()))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">40</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">        card</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</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">42</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">457</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # general data example</pre>
+                      <pre class="language-r">      teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <td class="num">458</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' data &lt;- teal_data()</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">44</td>
+                    <td class="num">459</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' data &lt;- within(data, {</pre>
+                      <pre class="language-r">    ###</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">45</td>
+                    <td class="num">460</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   iris &lt;- iris</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">46</td>
+                    <td class="num">461</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   mtcars &lt;- mtcars</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">47</td>
+                    <td class="num">462</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   women &lt;- women</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">48</td>
+                    <td class="num">463</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   faithful &lt;- faithful</pre>
+                      <pre class="language-r">#' Get stats for x-y pairs in scatterplot matrix</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">49</td>
+                    <td class="num">464</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   CO2 &lt;- CO2</pre>
+                      <pre class="language-r">#' @description uses stats::cor.test per default for all numerical input variables and converts results</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">50</td>
+                    <td class="num">465</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' })</pre>
+                      <pre class="language-r">#'  to character vector. Could be extended if different stats for different variable</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">51</td>
+                    <td class="num">466</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' datanames(data) &lt;- c("iris", "mtcars", "women", "faithful", "CO2")</pre>
+                      <pre class="language-r">#'  types are needed. Meant to be called from \code{lattice::panel.text}.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">52</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 x \code{numeric}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">53</td>
+                    <td class="num">468</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' app &lt;- init(</pre>
+                      <pre class="language-r">#' @param y \code{numeric}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">54</td>
+                    <td class="num">469</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = data,</pre>
+                      <pre class="language-r">#' @param .f \code{function}, function that accepts x and y as formula input \code{~ x + y}.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">55</td>
+                    <td class="num">470</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   modules = modules(tm_variable_browser_module)</pre>
+                      <pre class="language-r">#' Default \code{stats::cor.test}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">56</td>
+                    <td class="num">471</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#' @param .f_args \code{list} of arguments to be passed to \code{.f}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">57</td>
+                    <td class="num">472</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' if (interactive()) {</pre>
+                      <pre class="language-r">#' @param round_stat \code{integer}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">58</td>
+                    <td class="num">473</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   shinyApp(app$ui, app$server)</pre>
+                      <pre class="language-r">#' @param round_pval \code{integer}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">59</td>
+                    <td class="num">474</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">#' @details presently we need to use a formula input for \code{stats::cor.test} because</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">60</td>
+                    <td class="num">475</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' \code{na.fail} only gets evaluated when a formula is passed (see below).</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">61</td>
+                    <td class="num">476</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # CDISC example data</pre>
+                      <pre class="language-r">#' \preformatted{</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">62</td>
+                    <td class="num">477</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' data &lt;- teal_data()</pre>
+                      <pre class="language-r">#' x = c(1,3,5,7,NA)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">63</td>
+                    <td class="num">478</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' data &lt;- within(data, {</pre>
+                      <pre class="language-r">#' y = c(3,6,7,8,1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">64</td>
+                    <td class="num">479</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ADSL &lt;- rADSL</pre>
+                      <pre class="language-r">#' stats::cor.test(x, y, na.action = "na.fail")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">65</td>
+                    <td class="num">480</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ADTTE &lt;- rADTTE</pre>
+                      <pre class="language-r">#' stats::cor.test(~ x + y,  na.action = "na.fail")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">66</td>
+                    <td class="num">481</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' })</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">67</td>
+                    <td class="num">482</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' datanames(data) &lt;- c("ADSL", "ADTTE")</pre>
+                      <pre class="language-r">#' @return \code{character} with stats. For \code{stats::cor.test} correlation coefficient and p-value.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">68</td>
+                    <td class="num">483</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' join_keys(data) &lt;- default_cdisc_join_keys[datanames(data)]</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">69</td>
+                    <td class="num">484</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">70</td>
+                    <td class="num">485</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' app &lt;- init(</pre>
+                      <pre class="language-r">#' set.seed(1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">71</td>
+                    <td class="num">486</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = data,</pre>
+                      <pre class="language-r">#' x &lt;- runif(25, 0, 1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">72</td>
+                    <td class="num">487</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   modules = modules(tm_variable_browser_module)</pre>
+                      <pre class="language-r">#' y &lt;- runif(25, 0, 1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">73</td>
+                    <td class="num">488</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#' x[c(3, 10, 18)] &lt;- NA</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">74</td>
+                    <td class="num">489</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">75</td>
+                    <td class="num">490</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_scatterplotmatrix_stats(x, y, .f = stats::cor.test, .f_args = list(method = "pearson"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">76</td>
+                    <td class="num">491</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">#' get_scatterplotmatrix_stats(x, y, .f = stats::cor.test, .f_args = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">77</td>
+                    <td class="num">492</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   method = "pearson",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">78</td>
+                    <td class="num">493</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#'   na.action = na.fail</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">79</td>
+                    <td class="num">494</td>
                     <td class="coverage"></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">495</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">tm_variable_browser &lt;- function(label = "Variable Browser",</pre>
+                      <pre class="language-r">get_scatterplotmatrix_stats &lt;- function(x, y,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">81</td>
+                    <td class="num">496</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                datasets_selected = character(0),</pre>
+                      <pre class="language-r">                                        .f = stats::cor.test,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">82</td>
+                    <td class="num">497</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                parent_dataname = "ADSL",</pre>
+                      <pre class="language-r">                                        .f_args = list(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">83</td>
+                    <td class="num">498</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                pre_output = NULL,</pre>
+                      <pre class="language-r">                                        round_stat = 2,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">84</td>
+                    <td class="num">499</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                post_output = NULL,</pre>
+                      <pre class="language-r">                                        round_pval = 4) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">85</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">500</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                ggplot2_args = teal.widgets::ggplot2_args()) {</pre>
+                      <pre class="language-r">  if (is.numeric(x) &amp;&amp; is.numeric(y)) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">86</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">501</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  logger::log_info("Initializing tm_variable_browser")</pre>
+                      <pre class="language-r">    stat &lt;- tryCatch(do.call(.f, c(list(~ x + y), .f_args)), error = function(e) NA)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">87</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">502</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!requireNamespace("sparkline", quietly = TRUE)) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">88</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">503</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stop("Cannot load sparkline - please install the package or restart your session.")</pre>
+                      <pre class="language-r">    if (anyNA(stat)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">89</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">504</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">      return("NA")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">90</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">505</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!requireNamespace("htmlwidgets", quietly = TRUE)) {</pre>
+                      <pre class="language-r">    } else if (all(c("estimate", "p.value") %in% names(stat))) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">91</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">506</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stop("Cannot load htmlwidgets - please install the package or restart your session.")</pre>
+                      <pre class="language-r">      return(paste(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">92</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">507</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">        c(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">93</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">508</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!requireNamespace("jsonlite", quietly = TRUE)) {</pre>
+                      <pre class="language-r">          paste0(names(stat$estimate), ":", round(stat$estimate, round_stat)),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">94</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">509</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stop("Cannot load jsonlite - please install the package or restart your session.")</pre>
+                      <pre class="language-r">          paste0("P:", round(stat$p.value, round_pval))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">95</td>
+                    <td class="num">510</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">96</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">511</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(label)</pre>
+                      <pre class="language-r">        collapse = "\n"</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">97</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">512</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(datasets_selected)</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">513</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(parent_dataname, min.len = 0, max.len = 1)</pre>
+                      <pre class="language-r">    } else {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">99</td>
+                    <td class="num">514</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(ggplot2_args, "ggplot2_args")</pre>
+                      <pre class="language-r">      stop("function not supported")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">100</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">515</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  datasets_selected &lt;- unique(datasets_selected)</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">101</td>
+                    <td class="num">516</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">102</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">517</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  module(</pre>
+                      <pre class="language-r">    if ("method" %in% names(.f_args)) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">103</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">518</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    label,</pre>
+                      <pre class="language-r">      if (.f_args$method == "pearson") {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">104</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">519</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    server = srv_variable_browser,</pre>
+                      <pre class="language-r">        return("cor:-")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">105</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">520</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ui = ui_variable_browser,</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">106</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">521</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    datanames = "all",</pre>
+                      <pre class="language-r">      if (.f_args$method == "kendall") {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">107</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">522</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    server_args = list(</pre>
+                      <pre class="language-r">        return("tau:-")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">108</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">523</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      datasets_selected = datasets_selected,</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">109</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">524</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      parent_dataname = parent_dataname,</pre>
+                      <pre class="language-r">      if (.f_args$method == "spearman") {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">110</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">525</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ggplot2_args = ggplot2_args</pre>
+                      <pre class="language-r">        return("rho:-")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">111</td>
+                    <td class="num">526</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ),</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">112</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="missed">
-                    <td class="num">113</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">527</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      pre_output = pre_output,</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">114</td>
+                    <td class="num">528</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      post_output = post_output</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>
+                      <pre class="language-r">    return("-")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">116</td>
+                    <td class="num">529</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">117</td>
+                    <td class="num">530</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/tm_front_page.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">118</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' Front page 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"># ui function</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">ui_variable_browser &lt;- function(id,</pre>
+                      <pre class="language-r">#' @description This `teal` module creates a simple front page for `teal` applications</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">                                pre_output = NULL,</pre>
+                      <pre class="language-r">#'</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">                                post_output = NULL) {</pre>
+                      <pre class="language-r">#' @inheritParams teal::module</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">123</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">  ns &lt;- NS(id)</pre>
+                      <pre class="language-r">#' @param header_text `character vector` text to be shown at the top of the module, for each</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"></pre>
+                      <pre class="language-r">#'   element, if named the name is shown first in bold as a header followed by the value. The first</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">125</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">  shiny::tagList(</pre>
+                      <pre class="language-r">#'   element's header is displayed larger than the others</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">126</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">    include_css_files("custom"),</pre>
+                      <pre class="language-r">#' @param tables `named list of dataframes` tables to be shown in the module</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">127</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">    shinyjs::useShinyjs(),</pre>
+                      <pre class="language-r">#' @param additional_tags `shiny.tag.list` or `html` additional shiny tags or `html` to be included after the table,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">128</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">    teal.widgets::standard_layout(</pre>
+                      <pre class="language-r">#'   for example to include an image, `tagList(tags$img(src = "image.png"))` or to include further `html`,</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">      output = fluidRow(</pre>
+                      <pre class="language-r">#'   `HTML("html text here")`</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">        htmlwidgets::getDependency("sparkline"), # needed for sparklines to work</pre>
+                      <pre class="language-r">#' @param footnotes `character vector` text to be shown at the bottom of the module, for each</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">131</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">        column(</pre>
+                      <pre class="language-r">#'   element, if named the name is shown first in bold, followed by the value</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">          6,</pre>
+                      <pre class="language-r">#' @param show_metadata `logical` should the metadata of the datasets be available on the module?</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">          # variable browser</pre>
+                      <pre class="language-r">#' @return A `teal` module to be used in `teal` applications</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">134</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">          teal.widgets::white_small_well(</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">135</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">            uiOutput(ns("ui_variable_browser")),</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">136</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">            shinyjs::hidden({</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">137</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">              checkboxInput(ns("show_parent_vars"), "Show parent dataset variables", value = FALSE)</pre>
+                      <pre class="language-r">#' data &lt;- teal_data()</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">#' data &lt;- within(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">#'   library(nestcolor)</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">        ),</pre>
+                      <pre class="language-r">#'   ADSL &lt;- teal.modules.general::rADSL</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">141</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">        column(</pre>
+                      <pre class="language-r">#'   attr(ADSL, "metadata") &lt;- list("Author" = "NEST team", "data_source" = "synthetic data")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">142</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">          6,</pre>
+                      <pre class="language-r">#' })</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">143</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">          teal.widgets::white_small_well(</pre>
+                      <pre class="language-r">#' datanames &lt;- c("ADSL")</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">            ### Reporter</pre>
+                      <pre class="language-r">#' datanames(data) &lt;- datanames</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">145</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">            teal.reporter::simple_reporter_ui(ns("simple_reporter")),</pre>
+                      <pre class="language-r">#' join_keys(data) &lt;- default_cdisc_join_keys[datanames]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">146</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="missed">
-                    <td class="num">147</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">            div(</pre>
+                      <pre class="language-r">#' table_1 &lt;- data.frame(Info = c("A", "B"), Text = c("A", "B"))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">148</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">              class = "block",</pre>
+                      <pre class="language-r">#' table_2 &lt;- data.frame(`Column 1` = c("C", "D"), `Column 2` = c(5.5, 6.6), `Column 3` = c("A", "B"))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">149</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">              uiOutput(ns("ui_histogram_display"))</pre>
+                      <pre class="language-r">#' table_3 &lt;- data.frame(Info = c("E", "F"), Text = c("G", "H"))</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">            ),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">151</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">            div(</pre>
+                      <pre class="language-r">#' table_input &lt;- list(</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">              class = "block",</pre>
+                      <pre class="language-r">#'   "Table 1" = table_1,</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">              uiOutput(ns("ui_numeric_display"))</pre>
+                      <pre class="language-r">#'   "Table 2" = table_2,</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">#'   "Table 3" = table_3</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">155</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">            teal.widgets::plot_with_settings_ui(ns("variable_plot")),</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">156</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">            br(),</pre>
+                      <pre class="language-r">#'</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">            # input user-defined text size</pre>
+                      <pre class="language-r">#' app &lt;- teal::init(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">158</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">            teal.widgets::panel_item(</pre>
+                      <pre class="language-r">#'   data = data,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">159</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">              title = "Plot settings",</pre>
+                      <pre class="language-r">#'   modules = teal::modules(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">160</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">              collapsed = TRUE,</pre>
+                      <pre class="language-r">#'     teal.modules.general::tm_front_page(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">161</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">              selectInput(</pre>
+                      <pre class="language-r">#'       header_text = c(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">162</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">                inputId = ns("ggplot_theme"), label = "ggplot2 theme",</pre>
+                      <pre class="language-r">#'         "Important information" = "It can go here.",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">163</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">                choices = ggplot_themes,</pre>
+                      <pre class="language-r">#'         "Other information" = "Can go here."</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">164</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">                selected = "grey"</pre>
+                      <pre class="language-r">#'       ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">165</td>
+                    <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              ),</pre>
+                      <pre class="language-r">#'       tables = table_input,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">166</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">              fluidRow(</pre>
+                      <pre class="language-r">#'       additional_tags = HTML("Additional HTML or shiny tags go here &lt;br&gt;"),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">167</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">50</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                column(6, sliderInput(</pre>
+                      <pre class="language-r">#'       footnotes = c("X" = "is the first footnote", "Y is the second footnote"),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">168</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">                  inputId = ns("font_size"), label = "font size",</pre>
+                      <pre class="language-r">#'       show_metadata = TRUE</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">169</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">                  min = 5L, max = 30L, value = 15L, step = 1L, ticks = FALSE</pre>
+                      <pre class="language-r">#'     )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">170</td>
+                    <td class="num">53</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">171</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">                column(6, sliderInput(</pre>
+                      <pre class="language-r">#'   header = tags$h1("Sample Application"),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">172</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">                  inputId = ns("label_rotation"), label = "rotate x labels",</pre>
+                      <pre class="language-r">#'   footer = tags$p("Application footer"),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">173</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">                  min = 0L, max = 90L, value = 45L, step = 1, ticks = FALSE</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">174</td>
+                    <td class="num">57</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">175</td>
+                    <td class="num">58</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">176</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="missed">
-                    <td class="num">177</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">            br(),</pre>
+                      <pre class="language-r">tm_front_page &lt;- function(label = "Front page",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">178</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">            teal.widgets::get_dt_rows(ns("variable_summary_table"), ns("variable_summary_table_rows")),</pre>
+                      <pre class="language-r">                          header_text = character(0),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">179</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">            DT::dataTableOutput(ns("variable_summary_table"))</pre>
+                      <pre class="language-r">                          tables = list(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">180</td>
+                    <td class="num">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">                          additional_tags = tagList(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">181</td>
+                    <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">                          footnotes = character(0),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">182</td>
+                    <td class="num">65</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ),</pre>
+                      <pre class="language-r">                          show_metadata = FALSE) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">183</td>
+                    <td class="num">66</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      pre_output = pre_output,</pre>
+                      <pre class="language-r">  checkmate::assert_string(label)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">184</td>
+                    <td class="num">67</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      post_output = post_output</pre>
+                      <pre class="language-r">  checkmate::assert_character(header_text, min.len = 0, any.missing = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">185</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">68</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">  checkmate::assert_list(tables, types = "data.frame", names = "named", any.missing = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">186</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">  checkmate::assert_multi_class(additional_tags, classes = c("shiny.tag.list", "html"))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">187</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">}</pre>
+                      <pre class="language-r">  checkmate::assert_character(footnotes, min.len = 0, any.missing = FALSE)</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">71</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  checkmate::assert_flag(show_metadata)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">188</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">189</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">srv_variable_browser &lt;- function(id,</pre>
+                      <pre class="language-r">  logger::log_info("Initializing tm_front_page")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">190</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">                                 data,</pre>
+                      <pre class="language-r">  args &lt;- as.list(environment())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">191</td>
+                    <td class="num">75</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 reporter,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">192</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">76</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 filter_panel_api,</pre>
+                      <pre class="language-r">  module(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">193</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">77</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 datasets_selected, parent_dataname, ggplot2_args) {</pre>
+                      <pre class="language-r">    label = label,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">194</td>
+                    <td class="num">78</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  with_reporter &lt;- !missing(reporter) &amp;&amp; inherits(reporter, "Reporter")</pre>
+                      <pre class="language-r">    server = srv_front_page,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">195</td>
+                    <td class="num">79</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  with_filter &lt;- !missing(filter_panel_api) &amp;&amp; inherits(filter_panel_api, "FilterPanelAPI")</pre>
+                      <pre class="language-r">    ui = ui_front_page,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">196</td>
+                    <td class="num">80</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(data, "reactive")</pre>
+                      <pre class="language-r">    ui_args = args,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">197</td>
+                    <td class="num">81</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">    server_args = list(tables = tables, show_metadata = show_metadata),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">198</td>
+                    <td class="num">82</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">    datanames = if (show_metadata) "all" else NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">199</td>
+                    <td class="num">83</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # if there are &lt; this number of unique records then a numeric</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">200</td>
+                    <td class="num">84</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # variable can be treated as a factor and all factors with &lt; this groups</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">201</td>
+                    <td class="num">85</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # have their values plotted</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">202</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    .unique_records_for_factor &lt;- 30</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">203</td>
+                    <td class="num">86</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # if there are &lt; this number of unique records then a numeric</pre>
+                      <pre class="language-r">ui_front_page &lt;- function(id, ...) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">204</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">87</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # variable is by default treated as a factor</pre>
+                      <pre class="language-r">  args &lt;- list(...)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">205</td>
+                    <td class="num">88</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .unique_records_default_as_factor &lt;- 6 # nolint: object_length.</pre>
+                      <pre class="language-r">  ns &lt;- NS(id)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">206</td>
+                    <td class="num">89</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">207</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    datanames &lt;- isolate(teal.data::datanames(data()))</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">208</td>
+                    <td class="num">90</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    datanames &lt;- Filter(function(name) {</pre>
+                      <pre class="language-r">  tagList(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">209</td>
+                    <td class="num">91</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      is.data.frame(isolate(data())[[name]])</pre>
+                      <pre class="language-r">    include_css_files("custom"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">210</td>
+                    <td class="num">92</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }, datanames)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">211</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">212</td>
+                    <td class="num">93</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_character(datasets_selected)</pre>
+                      <pre class="language-r">      id = "front_page_content",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">213</td>
+                    <td class="num">94</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_subset(datasets_selected, datanames)</pre>
+                      <pre class="language-r">      class = "ml-8",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">214</td>
+                    <td class="num">95</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (!identical(datasets_selected, character(0))) {</pre>
+                      <pre class="language-r">      tags$div(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">215</td>
+                    <td class="num">96</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::assert_subset(datasets_selected, datanames)</pre>
+                      <pre class="language-r">        id = "front_page_headers",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">216</td>
+                    <td class="num">97</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      datanames &lt;- datasets_selected</pre>
+                      <pre class="language-r">        get_header_tags(args$header_text)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">217</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">218</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">      tags$div(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">219</td>
+                    <td class="num">100</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    output$ui_variable_browser &lt;- renderUI({</pre>
+                      <pre class="language-r">        id = "front_page_tables",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">220</td>
+                    <td class="num">101</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ns &lt;- session$ns</pre>
+                      <pre class="language-r">        class = "ml-4",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">221</td>
+                    <td class="num">102</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      do.call(</pre>
+                      <pre class="language-r">        get_table_tags(args$tables, ns)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">222</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">        tabsetPanel,</pre>
+                      <pre class="language-r">      ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">223</td>
+                    <td class="num">104</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        c(</pre>
+                      <pre class="language-r">      tags$div(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">224</td>
+                    <td class="num">105</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          id = ns("tabset_panel"),</pre>
+                      <pre class="language-r">        id = "front_page_custom_html",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">225</td>
+                    <td class="num">106</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          do.call(</pre>
+                      <pre class="language-r">        class = "my-4",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">226</td>
+                    <td class="num">107</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            tagList,</pre>
+                      <pre class="language-r">        args$additional_tags</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">227</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">            lapply(datanames, function(dataname) {</pre>
+                      <pre class="language-r">      ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">228</td>
+                    <td class="num">109</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              tabPanel(</pre>
+                      <pre class="language-r">      if (args$show_metadata) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">229</td>
+                    <td class="num">110</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                dataname,</pre>
+                      <pre class="language-r">        tags$div(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">230</td>
+                    <td class="num">111</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                div(</pre>
+                      <pre class="language-r">          id = "front_page_metabutton",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">231</td>
+                    <td class="num">112</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  class = "mt-4",</pre>
+                      <pre class="language-r">          class = "m-4",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">232</td>
+                    <td class="num">113</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  textOutput(ns(paste0("dataset_summary_", dataname)))</pre>
+                      <pre class="language-r">          actionButton(ns("metadata_button"), "Show metadata")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">233</td>
+                    <td class="num">114</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                ),</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">234</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">235</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">                  class = "mt-4",</pre>
+                      <pre class="language-r">      },</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">236</td>
+                    <td class="num">116</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  teal.widgets::get_dt_rows(</pre>
+                      <pre class="language-r">      tags$footer(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">237</td>
+                    <td class="num">117</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    ns(paste0("variable_browser_", dataname)),</pre>
+                      <pre class="language-r">        class = ".small",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">238</td>
+                    <td class="num">118</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    ns(paste0("variable_browser_", dataname, "_rows"))</pre>
+                      <pre class="language-r">        get_footer_tags(args$footnotes)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">239</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="missed">
-                    <td class="num">240</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">                  DT::dataTableOutput(ns(paste0("variable_browser_", dataname)), width = "100%")</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">241</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">242</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">243</td>
+                    <td class="num">123</td>
                     <td class="coverage"></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="num">124</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">get_header_tags &lt;- function(header_text) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">245</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">  if (length(header_text) == 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">246</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">      )</pre>
+                      <pre class="language-r">    return(list())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">247</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">248</td>
+                    <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">249</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">    # conditionally display checkbox</pre>
+                      <pre class="language-r">  get_single_header_tags &lt;- function(header_text, p_text, header_tag = tags$h4) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">250</td>
+                    <td class="num">130</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    shinyjs::toggle(</pre>
+                      <pre class="language-r">    tagList(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">251</td>
+                    <td class="num">131</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      id = "show_parent_vars",</pre>
+                      <pre class="language-r">      tags$div(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">252</td>
+                    <td class="num">132</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      condition = length(parent_dataname) &gt; 0 &amp;&amp; parent_dataname %in% datanames</pre>
+                      <pre class="language-r">        if (!is.null(header_text) &amp;&amp; nchar(header_text) &gt; 0) header_tag(header_text),</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">133</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        tags$p(p_text)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">253</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">135</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">254</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">137</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">255</td>
+                    <td class="num">138</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    columns_names &lt;- new.env()</pre>
+                      <pre class="language-r">  header_tags &lt;- get_single_header_tags(names(header_text[1]), header_text[1], header_tag = tags$h3)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">256</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"></pre>
+                      <pre class="language-r">  c(header_tags, mapply(get_single_header_tags, utils::tail(names(header_text), -1), utils::tail(header_text, -1)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">257</td>
+                    <td class="num">140</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # plot_var$data holds the name of the currently selected dataset</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">258</td>
+                    <td class="num">141</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # plot_var$variable[[&lt;dataset_name&gt;]] holds the name of the currently selected</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">259</td>
+                    <td class="num">142</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # variable for dataset &lt;dataset_name&gt;</pre>
+                      <pre class="language-r">get_table_tags &lt;- function(tables, ns) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">260</td>
+                    <td class="num">143</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    plot_var &lt;- reactiveValues(data = NULL, variable = list())</pre>
+                      <pre class="language-r">  if (length(tables) == 0) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">144</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    return(list())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">261</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="missed">
-                    <td class="num">262</td>
+                    <td class="num">146</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    establish_updating_selection(datanames, input, plot_var, columns_names)</pre>
+                      <pre class="language-r">  table_tags &lt;- c(lapply(seq_along(tables), function(idx) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">147</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    list(</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">148</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      tableOutput(ns(paste0("table_", idx)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">263</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="never">
-                    <td class="num">264</td>
+                    <td class="num">150</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # validations</pre>
+                      <pre class="language-r">  }))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">265</td>
+                    <td class="num">151</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    validation_checks &lt;- validate_input(input, plot_var, data)</pre>
+                      <pre class="language-r">  return(table_tags)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">266</td>
+                    <td class="num">152</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">267</td>
+                    <td class="num">153</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # data_for_analysis is a list with two elements: a column from a dataset and the column label</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">268</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">154</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    plotted_data &lt;- reactive({</pre>
+                      <pre class="language-r">get_footer_tags &lt;- function(footnotes) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">269</td>
+                    <td class="num">155</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      validation_checks()</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">  if (length(footnotes) == 0) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">271</td>
+                    <td class="num">156</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      get_plotted_data(input, plot_var, data)</pre>
+                      <pre class="language-r">    return(list())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">272</td>
+                    <td class="num">157</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">273</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">  bold_texts &lt;- if (is.null(names(footnotes))) rep("", length(footnotes)) else names(footnotes)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">274</td>
+                    <td class="num">159</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    treat_numeric_as_factor &lt;- reactive({</pre>
+                      <pre class="language-r">  footnote_tags &lt;- mapply(function(bold_text, value) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">275</td>
+                    <td class="num">160</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (is_num_var_short(.unique_records_for_factor, input, plotted_data)) {</pre>
+                      <pre class="language-r">    list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">276</td>
+                    <td class="num">161</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        input$numeric_as_factor</pre>
+                      <pre class="language-r">      tags$div(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">277</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">162</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">        tags$b(bold_text),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">278</td>
+                    <td class="num">163</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        FALSE</pre>
+                      <pre class="language-r">        value,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">279</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">164</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">        tags$br()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">280</td>
+                    <td class="num">165</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">281</td>
+                    <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="missed">
-                    <td class="num">282</td>
+                    <td class="num">167</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    render_tabset_panel_content(</pre>
+                      <pre class="language-r">  }, bold_text = bold_texts, value = footnotes)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">283</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">168</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      input = input,</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">284</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">      output = output,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">285</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">      data = data,</pre>
+                      <pre class="language-r">srv_front_page &lt;- function(id, data, tables, show_metadata) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">286</td>
+                    <td class="num">171</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      datanames = datanames,</pre>
+                      <pre class="language-r">  checkmate::assert_class(data, "reactive")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">287</td>
+                    <td class="num">172</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      parent_dataname = parent_dataname,</pre>
+                      <pre class="language-r">  checkmate::assert_class(isolate(data()), "teal_data")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">288</td>
+                    <td class="num">173</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      columns_names = columns_names,</pre>
+                      <pre class="language-r">  moduleServer(id, function(input, output, session) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">289</td>
+                    <td class="num">174</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      plot_var = plot_var</pre>
+                      <pre class="language-r">    ns &lt;- session$ns</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">290</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">291</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">    # add used-defined text size to ggplot arguments passed from caller frame</pre>
+                      <pre class="language-r">    lapply(seq_along(tables), function(idx) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">292</td>
+                    <td class="num">177</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    all_ggplot2_args &lt;- reactive({</pre>
+                      <pre class="language-r">      output[[paste0("table_", idx)]] &lt;- renderTable(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">293</td>
+                    <td class="num">178</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      user_text &lt;- teal.widgets::ggplot2_args(</pre>
+                      <pre class="language-r">        tables[[idx]],</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">294</td>
+                    <td class="num">179</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        theme = list(</pre>
+                      <pre class="language-r">        bordered = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">295</td>
+                    <td class="num">180</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "text" = ggplot2::element_text(size = input[["font_size"]]),</pre>
+                      <pre class="language-r">        caption = names(tables)[idx],</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">296</td>
+                    <td class="num">181</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "axis.text.x" = ggplot2::element_text(angle = input[["label_rotation"]], hjust = 1)</pre>
+                      <pre class="language-r">        caption.placement = "top"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">297</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">298</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="missed">
-                    <td class="num">299</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">      user_theme &lt;- utils::getFromNamespace(sprintf("theme_%s", input[["ggplot_theme"]]), ns = "ggplot2")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">300</td>
+                    <td class="num">185</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      user_theme &lt;- user_theme()</pre>
+                      <pre class="language-r">    if (show_metadata) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">301</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">      # temporary fix to circumvent assertion issue with resolve_ggplot2_args</pre>
+                      <pre class="language-r">      observeEvent(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">302</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">      # drop problematic elements</pre>
+                      <pre class="language-r">        input$metadata_button, showModal(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">303</td>
+                    <td class="num">188</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      user_theme &lt;- user_theme[grep("strip.text.y.left", names(user_theme), fixed = TRUE, invert = TRUE)]</pre>
+                      <pre class="language-r">          modalDialog(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">304</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"></pre>
+                      <pre class="language-r">            title = "Metadata",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">305</td>
+                    <td class="num">190</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.widgets::resolve_ggplot2_args(</pre>
+                      <pre class="language-r">            dataTableOutput(ns("metadata_table")),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">306</td>
+                    <td class="num">191</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        user_plot = user_text,</pre>
+                      <pre class="language-r">            size = "l",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">307</td>
+                    <td class="num">192</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        user_default = teal.widgets::ggplot2_args(theme = user_theme),</pre>
+                      <pre class="language-r">            easyClose = TRUE</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">308</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">        module_plot = ggplot2_args</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">309</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">310</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">311</td>
+                    <td class="num">196</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">312</td>
+                    <td class="num">197</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    output$ui_numeric_display &lt;- renderUI({</pre>
+                      <pre class="language-r">      metadata_data_frame &lt;- reactive({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">313</td>
+                    <td class="num">198</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      validation_checks()</pre>
+                      <pre class="language-r">        datanames &lt;- teal.data::datanames(data())</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">314</td>
+                    <td class="num">199</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dataname &lt;- input$tabset_panel</pre>
+                      <pre class="language-r">        convert_metadata_to_dataframe(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">315</td>
+                    <td class="num">200</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      varname &lt;- plot_var$variable[[dataname]]</pre>
+                      <pre class="language-r">          lapply(datanames, function(dataname) attr(data()[[dataname]], "metadata")),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">316</td>
+                    <td class="num">201</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      df &lt;- data()[[dataname]]</pre>
+                      <pre class="language-r">          datanames</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">317</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="missed">
-                    <td class="num">318</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">203</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      numeric_ui &lt;- tagList(</pre>
+                      <pre class="language-r">      })</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">319</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">        fluidRow(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">320</td>
+                    <td class="num">205</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          div(</pre>
+                      <pre class="language-r">      output$metadata_table &lt;- renderDataTable({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">321</td>
+                    <td class="num">206</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            class = "col-md-4",</pre>
+                      <pre class="language-r">        validate(need(nrow(metadata_data_frame()) &gt; 0, "The data has no associated metadata"))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">322</td>
+                    <td class="num">207</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            br(),</pre>
+                      <pre class="language-r">        metadata_data_frame()</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">323</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">208</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            shinyWidgets::switchInput(</pre>
+                      <pre class="language-r">      })</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">324</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">209</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              inputId = session$ns("display_density"),</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">325</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">210</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              label = "Show density",</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">326</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">211</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              value = `if`(is.null(isolate(input$display_density)), TRUE, isolate(input$display_density)),</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">327</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">212</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              width = "50%",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">328</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">213</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              labelWidth = "100px",</pre>
+                      <pre class="language-r"># take a list of metadata, one item per dataset (raw_metadata each element from datasets$get_metadata())</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">329</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">214</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              handleWidth = "50px"</pre>
+                      <pre class="language-r"># and the corresponding datanames and output a data.frame with columns {Dataset, Name, Value}.</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">            )</pre>
+                      <pre class="language-r"># which are, the Dataset the metadata came from, the metadata's name and value</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>
+                      <pre class="language-r">convert_metadata_to_dataframe &lt;- function(raw_metadata, datanames) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">332</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">217</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          div(</pre>
+                      <pre class="language-r">  output &lt;- mapply(function(metadata, dataname) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">333</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">218</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            class = "col-md-4",</pre>
+                      <pre class="language-r">    if (is.null(metadata)) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">334</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">219</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            br(),</pre>
+                      <pre class="language-r">      return(data.frame(Dataset = character(0), Name = character(0), Value = character(0)))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">335</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">220</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            shinyWidgets::switchInput(</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">336</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">221</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              inputId = session$ns("remove_outliers"),</pre>
+                      <pre class="language-r">    return(data.frame(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">337</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">222</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              label = "Remove outliers",</pre>
+                      <pre class="language-r">      Dataset = dataname,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">338</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">223</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              value = `if`(is.null(isolate(input$remove_outliers)), FALSE, isolate(input$remove_outliers)),</pre>
+                      <pre class="language-r">      Name = names(metadata),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">339</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">224</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              width = "50%",</pre>
+                      <pre class="language-r">      Value = unname(unlist(lapply(metadata, as.character)))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">340</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">              labelWidth = "100px",</pre>
+                      <pre class="language-r">    ))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">341</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">226</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              handleWidth = "50px"</pre>
+                      <pre class="language-r">  }, raw_metadata, datanames, SIMPLIFY = FALSE)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">227</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  do.call(rbind, output)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">342</td>
+                    <td class="num">228</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/tm_a_pca.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">343</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ),</pre>
+                      <pre class="language-r">#' Principal component analysis module</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">344</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">          div(</pre>
+                      <pre class="language-r">#' @md</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">345</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">            class = "col-md-4",</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">4</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            uiOutput(session$ns("outlier_definition_slider_ui"))</pre>
+                      <pre class="language-r">#' @inheritParams teal::module</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">347</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">#' @inheritParams shared_params</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">348</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ),</pre>
+                      <pre class="language-r">#' @param dat (`data_extract_spec` or `list` of multiple `data_extract_spec`)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">349</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">        div(</pre>
+                      <pre class="language-r">#'   Columns used to compute PCA.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">350</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">          class = "ml-4",</pre>
+                      <pre class="language-r">#' @param alpha optional, (`numeric`) If scalar then the plot points will have a fixed opacity. If a</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">351</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">          uiOutput(session$ns("ui_density_help")),</pre>
+                      <pre class="language-r">#'   slider should be presented to adjust the plot point opacity dynamically then it can be a vector of</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">352</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">          uiOutput(session$ns("ui_outlier_help"))</pre>
+                      <pre class="language-r">#'   length three with `c(value, min, max)`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">353</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 size optional, (`numeric`) If scalar then the plot point sizes will have a fixed size.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">354</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#'   If a slider should be presented to adjust the plot point sizes dynamically then it can be a</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">355</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   vector of length three with `c(value, min, max)`.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">356</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">      if (is.numeric(df[[varname]])) {</pre>
+                      <pre class="language-r">#' @param font_size optional, (`numeric`) font size control for title, x-axis label, y-axis label and legend.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">357</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">        unique_entries &lt;- length(unique(df[[varname]]))</pre>
+                      <pre class="language-r">#'   If scalar then the font size will have a fixed size. If a slider should be presented to adjust the plot</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">358</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">        if (unique_entries &lt; .unique_records_for_factor &amp;&amp; unique_entries &gt; 0) {</pre>
+                      <pre class="language-r">#'   point sizes dynamically then it can be a vector of length three with `c(value, min, max)`.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">359</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">          list(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">360</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">            checkboxInput(</pre>
+                      <pre class="language-r">#' @templateVar ggnames "Elbow plot", "Circle plot", "Biplot", "Eigenvector plot"</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">361</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">              session$ns("numeric_as_factor"),</pre>
+                      <pre class="language-r">#' @template ggplot2_args_multi</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">362</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">              "Treat variable as factor",</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">21</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              value = `if`(</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">364</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">                is.null(isolate(input$numeric_as_factor)),</pre>
+                      <pre class="language-r">#' # general data example</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">365</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">                unique_entries &lt; .unique_records_default_as_factor,</pre>
+                      <pre class="language-r">#' library(teal.widgets)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">366</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">                isolate(input$numeric_as_factor)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">367</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              )</pre>
+                      <pre class="language-r">#' data &lt;- teal_data()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">368</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ),</pre>
+                      <pre class="language-r">#' data &lt;- within(data, {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">369</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">            conditionalPanel("!input.numeric_as_factor", ns = session$ns, numeric_ui)</pre>
+                      <pre class="language-r">#'   library(nestcolor)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">370</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">#'   USArrests &lt;- USArrests</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">371</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">#' })</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">30</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        } else if (unique_entries &gt; 0) {</pre>
+                      <pre class="language-r">#' datanames(data) &lt;- "USArrests"</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">372</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">          numeric_ui</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">373</td>
+                    <td class="num">32</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">374</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">#'   data = data,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">375</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">        NULL</pre>
+                      <pre class="language-r">#'   modules = modules(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">376</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#'     tm_a_pca(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">377</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">#'       "PCA",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">378</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'       dat = data_extract_spec(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">379</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">    output$ui_histogram_display &lt;- renderUI({</pre>
+                      <pre class="language-r">#'         dataname = "USArrests",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">380</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">      validation_checks()</pre>
+                      <pre class="language-r">#'         select = select_spec(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">381</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">      dataname &lt;- input$tabset_panel</pre>
+                      <pre class="language-r">#'           choices = variable_choices(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">382</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">      varname &lt;- plot_var$variable[[dataname]]</pre>
+                      <pre class="language-r">#'             data = data[["USArrests"]], c("Murder", "Assault", "UrbanPop", "Rape")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">383</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">      df &lt;- data()[[dataname]]</pre>
+                      <pre class="language-r">#'           ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">384</td>
+                    <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'           selected = c("Murder", "Assault"),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">385</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">      numeric_ui &lt;- tagList(fluidRow(</pre>
+                      <pre class="language-r">#'           multiple = TRUE</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">386</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">        div(</pre>
+                      <pre class="language-r">#'         ),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">387</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">          class = "col-md-4",</pre>
+                      <pre class="language-r">#'         filter = NULL</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">388</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">          shinyWidgets::switchInput(</pre>
+                      <pre class="language-r">#'       ),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">389</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">            inputId = session$ns("remove_NA_hist"),</pre>
+                      <pre class="language-r">#'       ggplot2_args = ggplot2_args(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">390</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">            label = "Remove NA values",</pre>
+                      <pre class="language-r">#'         labs = list(subtitle = "Plot generated by PCA Module")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">391</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">50</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            value = FALSE,</pre>
+                      <pre class="language-r">#'       )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">392</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">            width = "50%",</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">52</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            labelWidth = "100px",</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">53</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            handleWidth = "50px"</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">395</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">396</td>
+                    <td class="num">55</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">397</td>
+                    <td class="num">56</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">398</td>
+                    <td class="num">57</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">399</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">      var &lt;- df[[varname]]</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">400</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">      if (anyNA(var) &amp;&amp; (is.factor(var) || is.character(var) || is.logical(var))) {</pre>
+                      <pre class="language-r">#' # CDISC data example</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">401</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">        groups &lt;- unique(as.character(var))</pre>
+                      <pre class="language-r">#' library(teal.widgets)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">402</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">        len_groups &lt;- length(groups)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">403</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">        if (len_groups &gt;= .unique_records_for_factor) {</pre>
+                      <pre class="language-r">#' data &lt;- teal_data()</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">404</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">          NULL</pre>
+                      <pre class="language-r">#' data &lt;- within(data, {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">405</td>
+                    <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        } else {</pre>
+                      <pre class="language-r">#'   library(nestcolor)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">406</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">          numeric_ui</pre>
+                      <pre class="language-r">#'   ADSL &lt;- rADSL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">407</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">408</td>
+                    <td class="num">67</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">#' datanames(data) &lt;- "ADSL"</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">409</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">        NULL</pre>
+                      <pre class="language-r">#' join_keys(data) &lt;- default_cdisc_join_keys[datanames(data)]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">410</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">411</td>
+                    <td class="num">70</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">412</td>
+                    <td class="num">71</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="missed">
-                    <td class="num">413</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">    output$outlier_definition_slider_ui &lt;- renderUI({</pre>
+                      <pre class="language-r">#'   modules = modules(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">414</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">      req(input$remove_outliers)</pre>
+                      <pre class="language-r">#'     teal.modules.general::tm_a_pca(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">415</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">      sliderInput(</pre>
+                      <pre class="language-r">#'       "PCA",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">416</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">75</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        inputId = session$ns("outlier_definition_slider"),</pre>
+                      <pre class="language-r">#'       dat = data_extract_spec(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">417</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">        div(</pre>
+                      <pre class="language-r">#'         dataname = "ADSL",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">418</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">          class = "teal-tooltip",</pre>
+                      <pre class="language-r">#'         select = select_spec(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">419</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">          tagList(</pre>
+                      <pre class="language-r">#'           choices = variable_choices(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">420</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">            "Outlier definition:",</pre>
+                      <pre class="language-r">#'             data = data[["ADSL"]], c("BMRKR1", "AGE", "EOSDY")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">421</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">            icon("circle-info"),</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">81</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            span(</pre>
+                      <pre class="language-r">#'           selected = c("BMRKR1", "AGE"),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">423</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">              class = "tooltiptext",</pre>
+                      <pre class="language-r">#'           multiple = TRUE</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">424</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">              paste(</pre>
+                      <pre class="language-r">#'         ),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">425</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">                "Use the slider to choose the cut-off value to define outliers; the larger the value the",</pre>
+                      <pre class="language-r">#'         filter = NULL</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">426</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">                "further below Q1/above Q3 points have to be in order to be classed as outliers"</pre>
+                      <pre class="language-r">#'       ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">427</td>
+                    <td class="num">86</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              )</pre>
+                      <pre class="language-r">#'       ggplot2_args = ggplot2_args(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">428</td>
+                    <td class="num">87</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">#'         labs = list(subtitle = "Plot generated by PCA Module")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">429</td>
+                    <td class="num">88</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">#'       )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">430</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="missed">
-                    <td class="num">431</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">        min = 1,</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">432</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">91</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        max = 5,</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">433</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">92</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        value = 3,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">434</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">        step = 0.5</pre>
+                      <pre class="language-r">#' if (interactive()) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">435</td>
+                    <td class="num">94</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">436</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">437</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="missed">
-                    <td class="num">438</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">    output$ui_density_help &lt;- renderUI({</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">439</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">      req(is.logical(input$display_density))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">440</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">99</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (input$display_density) {</pre>
+                      <pre class="language-r">tm_a_pca &lt;- function(label = "Principal Component Analysis",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">441</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">100</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        tags$small(helpText(paste(</pre>
+                      <pre class="language-r">                     dat,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">442</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">          "Kernel density estimation with gaussian kernel",</pre>
+                      <pre class="language-r">                     plot_height = c(600, 200, 2000),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">443</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">          "and bandwidth function bw.nrd0 (R default)"</pre>
+                      <pre class="language-r">                     plot_width = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">444</td>
+                    <td class="num">103</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )))</pre>
+                      <pre class="language-r">                     ggtheme = c("gray", "bw", "linedraw", "light", "dark", "minimal", "classic", "void"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">445</td>
+                    <td class="num">104</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">                     ggplot2_args = teal.widgets::ggplot2_args(),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">446</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">        NULL</pre>
+                      <pre class="language-r">                     rotate_xaxis_labels = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">447</td>
+                    <td class="num">106</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">                     font_size = c(12, 8, 20),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">448</td>
+                    <td class="num">107</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">                     alpha = c(1, 0, 1),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">449</td>
+                    <td class="num">108</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                     size = c(2, 1, 8),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">450</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">    output$ui_outlier_help &lt;- renderUI({</pre>
+                      <pre class="language-r">                     pre_output = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">451</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">110</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      req(is.logical(input$remove_outliers), input$outlier_definition_slider)</pre>
+                      <pre class="language-r">                     post_output = NULL) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">452</td>
+                    <td class="num">111</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (input$remove_outliers) {</pre>
+                      <pre class="language-r">  logger::log_info("Initializing tm_a_pca")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">453</td>
+                    <td class="num">112</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        tags$small(</pre>
+                      <pre class="language-r">  if (inherits(dat, "data_extract_spec")) dat &lt;- list(dat)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">454</td>
+                    <td class="num">113</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          helpText(</pre>
+                      <pre class="language-r">  if (inherits(ggplot2_args, "ggplot2_args")) ggplot2_args &lt;- list(default = ggplot2_args)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">455</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">            withMathJax(paste0(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">456</td>
+                    <td class="num">115</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              "Outlier data points (\\( X \\lt Q1 - ", input$outlier_definition_slider, "\\times IQR \\) or</pre>
+                      <pre class="language-r">  checkmate::assert_string(label)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">457</td>
+                    <td class="num">116</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            \\(Q3 + ", input$outlier_definition_slider, "\\times IQR \\lt X\\))</pre>
+                      <pre class="language-r">  checkmate::assert_list(dat, types = "data_extract_spec")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">458</td>
+                    <td class="num">117</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            have not been displayed on the graph and will not be used for any kernel density estimations, ",</pre>
+                      <pre class="language-r">  ggtheme &lt;- match.arg(ggtheme)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">459</td>
+                    <td class="num">118</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              "although their values remain in the statisics table below."</pre>
+                      <pre class="language-r">  checkmate::assert_flag(rotate_xaxis_labels)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">460</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">461</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">          )</pre>
+                      <pre class="language-r">  if (length(alpha) == 1) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">462</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">    checkmate::assert_numeric(alpha, any.missing = FALSE, finite = TRUE, lower = 0, upper = 1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">463</td>
+                    <td class="num">122</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">464</td>
+                    <td class="num">123</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        NULL</pre>
+                      <pre class="language-r">    checkmate::assert_numeric(alpha, len = 3, any.missing = FALSE, finite = TRUE, lower = 0, upper = 1)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">465</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">      }</pre>
+                      <pre class="language-r">    checkmate::assert_numeric(alpha[1], lower = alpha[2], upper = alpha[3], .var.name = "alpha")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">466</td>
+                    <td class="num">125</td>
                     <td class="coverage"></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="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">468</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">127</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  if (length(size) == 1) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">469</td>
+                    <td class="num">128</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    variable_plot_r &lt;- reactive({</pre>
+                      <pre class="language-r">    checkmate::assert_numeric(size, any.missing = FALSE, finite = TRUE, lower = 1, upper = 8)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">129</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">470</td>
+                    <td class="num">130</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      display_density &lt;- `if`(is.null(input$display_density), FALSE, input$display_density)</pre>
+                      <pre class="language-r">    checkmate::assert_numeric(size, len = 3, any.missing = FALSE, finite = TRUE, lower = 1, upper = 8)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">471</td>
+                    <td class="num">131</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      remove_outliers &lt;- `if`(is.null(input$remove_outliers), FALSE, input$remove_outliers)</pre>
+                      <pre class="language-r">    checkmate::assert_numeric(size[1], lower = size[2], upper = size[3], .var.name = "size")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">472</td>
+                    <td class="num">132</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">473</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">133</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (remove_outliers) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">474</td>
+                    <td class="num">134</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        req(input$outlier_definition_slider)</pre>
+                      <pre class="language-r">  if (length(font_size) == 1) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">475</td>
+                    <td class="num">135</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        outlier_definition &lt;- as.numeric(input$outlier_definition_slider)</pre>
+                      <pre class="language-r">    checkmate::assert_numeric(font_size, any.missing = FALSE, finite = TRUE, lower = 8, upper = 20)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">476</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">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">477</td>
+                    <td class="num">137</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        outlier_definition &lt;- 0</pre>
+                      <pre class="language-r">    checkmate::assert_numeric(font_size, len = 3, any.missing = FALSE, finite = TRUE, lower = 8, upper = 20)</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">138</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    checkmate::assert_numeric(font_size[1], lower = font_size[2], upper = font_size[3], .var.name = "font_size")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">478</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">479</td>
+                    <td class="num">140</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">480</td>
+                    <td class="num">141</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      plot_var_summary(</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(plot_height, len = 3, any.missing = FALSE, finite = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">481</td>
+                    <td class="num">142</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        var = plotted_data()$data,</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(plot_height[1], lower = plot_height[2], upper = plot_height[3], .var.name = "plot_height")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">482</td>
+                    <td class="num">143</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        var_lab = plotted_data()$var_description,</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(plot_width, len = 3, any.missing = FALSE, null.ok = TRUE, finite = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">483</td>
+                    <td class="num">144</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        wrap_character = 15,</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">484</td>
+                    <td class="num">145</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        numeric_as_factor = treat_numeric_as_factor(),</pre>
+                      <pre class="language-r">    plot_width[1],</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">485</td>
+                    <td class="num">146</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        remove_NA_hist = input$remove_NA_hist,</pre>
+                      <pre class="language-r">    lower = plot_width[2], upper = plot_width[3], null.ok = TRUE, .var.name = "plot_width"</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">486</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">147</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        display_density = display_density,</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"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">487</td>
+                    <td class="num">149</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        outlier_definition = outlier_definition,</pre>
+                      <pre class="language-r">  plot_choices &lt;- c("Elbow plot", "Circle plot", "Biplot", "Eigenvector plot")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">488</td>
+                    <td class="num">150</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        records_for_factor = .unique_records_for_factor,</pre>
+                      <pre class="language-r">  checkmate::assert_list(ggplot2_args, types = "ggplot2_args")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">489</td>
+                    <td class="num">151</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ggplot2_args = all_ggplot2_args()</pre>
+                      <pre class="language-r">  checkmate::assert_subset(names(ggplot2_args), c("default", plot_choices))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">490</td>
+                    <td class="num">152</td>
                     <td class="coverage"></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="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">  args &lt;- as.list(environment())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">492</td>
+                    <td class="num">154</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">493</td>
+                    <td class="num">155</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    pws &lt;- teal.widgets::plot_with_settings_srv(</pre>
+                      <pre class="language-r">  data_extract_list &lt;- list(dat = dat)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">494</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">156</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      id = "variable_plot",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">495</td>
+                    <td class="num">157</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      plot_r = variable_plot_r,</pre>
+                      <pre class="language-r">  module(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">496</td>
+                    <td class="num">158</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      height = c(500, 200, 2000)</pre>
+                      <pre class="language-r">    label = label,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">497</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">159</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">    server = srv_a_pca,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">498</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">160</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    ui = ui_a_pca,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">499</td>
+                    <td class="num">161</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    output$variable_summary_table &lt;- DT::renderDataTable({</pre>
+                      <pre class="language-r">    ui_args = args,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">500</td>
+                    <td class="num">162</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      var_summary_table(</pre>
+                      <pre class="language-r">    server_args = c(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">501</td>
+                    <td class="num">163</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        plotted_data()$data,</pre>
+                      <pre class="language-r">      data_extract_list,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">502</td>
+                    <td class="num">164</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        treat_numeric_as_factor(),</pre>
+                      <pre class="language-r">      list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">503</td>
+                    <td class="num">165</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        input$variable_summary_table_rows,</pre>
+                      <pre class="language-r">        plot_height = plot_height,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">504</td>
+                    <td class="num">166</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (!is.null(input$remove_outliers) &amp;&amp; input$remove_outliers) {</pre>
+                      <pre class="language-r">        plot_width = plot_width,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">505</td>
+                    <td class="num">167</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          req(input$outlier_definition_slider)</pre>
+                      <pre class="language-r">        ggplot2_args = ggplot2_args</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">506</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">168</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          as.numeric(input$outlier_definition_slider)</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">507</td>
+                    <td class="num">169</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">508</td>
+                    <td class="num">170</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          0</pre>
+                      <pre class="language-r">    datanames = teal.transform::get_extract_datanames(data_extract_list)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">509</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">510</td>
+                    <td class="num">172</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">511</td>
+                    <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">512</td>
+                    <td class="num">174</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">513</td>
+                    <td class="num">175</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ### REPORTER</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">514</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    if (with_reporter) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">515</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      card_fun &lt;- function(comment) {</pre>
+                      <pre class="language-r">ui_a_pca &lt;- function(id, ...) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">516</td>
+                    <td class="num">176</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        card &lt;- teal::TealReportCard$new()</pre>
+                      <pre class="language-r">  ns &lt;- NS(id)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">517</td>
+                    <td class="num">177</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        card$set_name("Variable Browser Plot")</pre>
+                      <pre class="language-r">  args &lt;- list(...)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">518</td>
+                    <td class="num">178</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        card$append_text("Variable Browser Plot", "header2")</pre>
+                      <pre class="language-r">  is_single_dataset_value &lt;- teal.transform::is_single_dataset(args$dat)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">519</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">        if (with_filter) card$append_fs(filter_panel_api$get_filter_state())</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">520</td>
+                    <td class="num">180</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        card$append_text("Plot", "header3")</pre>
+                      <pre class="language-r">  color_selector &lt;- args$dat</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">521</td>
+                    <td class="num">181</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        card$append_plot(variable_plot_r(), dim = pws$dim())</pre>
+                      <pre class="language-r">  for (i in seq_along(color_selector)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">522</td>
+                    <td class="num">182</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (!comment == "") {</pre>
+                      <pre class="language-r">    color_selector[[i]]$select$multiple &lt;- FALSE</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">523</td>
+                    <td class="num">183</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          card$append_text("Comment", "header3")</pre>
+                      <pre class="language-r">    color_selector[[i]]$select$always_selected &lt;- NULL</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">524</td>
+                    <td class="num">184</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          card$append_text(comment)</pre>
+                      <pre class="language-r">    color_selector[[i]]$select$selected &lt;- NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">525</td>
+                    <td class="num">185</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">526</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">527</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="missed">
-                    <td class="num">528</td>
+                    <td class="num">187</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">529</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">530</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    ###</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">531</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">532</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">533</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">534</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">#' Summarizes missings occurrence</pre>
+                      <pre class="language-r">    include_css_files("custom"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">535</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">#'</pre>
+                      <pre class="language-r">    teal.widgets::standard_layout(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">536</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">#' Summarizes missings occurrence in vector</pre>
+                      <pre class="language-r">      output = teal.widgets::white_small_well(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">537</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">191</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x vector of any type and length</pre>
+                      <pre class="language-r">        uiOutput(ns("all_plots"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">538</td>
+                    <td class="num">192</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return text describing \code{NA} occurrence.</pre>
+                      <pre class="language-r">      ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">539</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">#' @keywords internal</pre>
+                      <pre class="language-r">      encoding = div(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">540</td>
+                    <td class="num">194</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">var_missings_info &lt;- function(x) {</pre>
+                      <pre class="language-r">        ### Reporter</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">541</td>
+                    <td class="num">195</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  return(sprintf("%s [%s%%]", sum(is.na(x)), round(mean(is.na(x) * 100), 2)))</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">542</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">        teal.reporter::simple_reporter_ui(ns("simple_reporter")),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">543</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">544</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">#' S3 generic for \code{sparkline} widget HTML</pre>
+                      <pre class="language-r">        tags$label("Encodings", class = "text-primary"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">545</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">198</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        teal.transform::datanames_input(args["dat"]),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">546</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">#' Generates the \code{sparkline} HTML code corresponding to the input array.</pre>
+                      <pre class="language-r">        teal.transform::data_extract_ui(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">547</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">200</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' For numeric variables creates a box plot, for character and factors - bar plot.</pre>
+                      <pre class="language-r">          id = ns("dat"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">548</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">#' Produces an empty string for variables of other types.</pre>
+                      <pre class="language-r">          label = "Data selection",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">549</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">          data_extract_spec = args$dat,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">550</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">#' @param arr vector of any type and length</pre>
+                      <pre class="language-r">          is_single_dataset = is_single_dataset_value</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">551</td>
+                    <td class="num">204</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param width \code{numeric} the width of the \code{sparkline} widget (pixels)</pre>
+                      <pre class="language-r">        ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">552</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">#' @param ... \code{list} additional options passed to bar plots of \code{jquery.sparkline};  see</pre>
+                      <pre class="language-r">        teal.widgets::panel_group(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">553</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">#' \href{https://omnipotent.net/jquery.sparkline/#common}{\code{jquery.sparkline docs}}</pre>
+                      <pre class="language-r">          teal.widgets::panel_item(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">554</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">207</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">            title = "Display",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">555</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">#' @return character variable containing the HTML code of the \code{sparkline} HTML widget</pre>
+                      <pre class="language-r">            collapsed = FALSE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">556</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">209</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">            checkboxGroupInput(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">557</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">210</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">              ns("tables_display"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">558</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">create_sparklines &lt;- function(arr, width = 150, ...) {</pre>
+                      <pre class="language-r">              "Tables display",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">559</td>
+                    <td class="num">212</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (all(is.null(arr))) {</pre>
+                      <pre class="language-r">              choices = c("PC importance" = "importance", "Eigenvectors" = "eigenvector"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">560</td>
+                    <td class="num">213</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    return("")</pre>
+                      <pre class="language-r">              selected = c("importance", "eigenvector")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">561</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="missed">
-                    <td class="num">562</td>
+                    <td class="num">215</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  UseMethod("create_sparklines")</pre>
+                      <pre class="language-r">            radioButtons(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">563</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">}</pre>
+                      <pre class="language-r">              ns("plot_type"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">564</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"></pre>
+                      <pre class="language-r">              label = "Plot type",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">565</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">#' Default method for \code{\link{create_sparklines}}</pre>
+                      <pre class="language-r">              choices = args$plot_choices,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">566</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">#'</pre>
+                      <pre class="language-r">              selected = args$plot_choices[1]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">567</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">568</td>
+                    <td class="num">221</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">569</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">#' @keywords internal</pre>
+                      <pre class="language-r">          teal.widgets::panel_item(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">570</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">#' @rdname create_sparklines</pre>
+                      <pre class="language-r">            title = "Pre-processing",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">571</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">224</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">create_sparklines.default &lt;- function(arr, width = 150, ...) {</pre>
+                      <pre class="language-r">            radioButtons(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">572</td>
+                    <td class="num">225</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  return(as.character(tags$code("unsupported variable type", class = "text-blue")))</pre>
+                      <pre class="language-r">              ns("standardization"), "Standardization",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">573</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">}</pre>
+                      <pre class="language-r">              choices = c("None" = "none", "Center" = "center", "Center &amp; Scale" = "center_scale"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">574</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"></pre>
+                      <pre class="language-r">              selected = "center_scale"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">575</td>
+                    <td class="num">228</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Generates the HTML code for the \code{sparkline} widget</pre>
+                      <pre class="language-r">            ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">576</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">#'</pre>
+                      <pre class="language-r">            radioButtons(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">577</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">#' @param bar_spacing \code{numeric} the spacing between the bars (in pixels)</pre>
+                      <pre class="language-r">              ns("na_action"), "NA action",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">578</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">231</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param bar_width \code{numeric} the width of the bars (in pixels)</pre>
+                      <pre class="language-r">              choices = c("None" = "none", "Drop" = "drop"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">579</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">232</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">              selected = "none"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">580</td>
+                    <td class="num">233</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return \code{character} with HTML code for the \code{sparkline} widget</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">581</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">582</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">#' @export</pre>
+                      <pre class="language-r">          teal.widgets::panel_item(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">583</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">#' @keywords internal</pre>
+                      <pre class="language-r">            title = "Selected plot specific settings",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">584</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">#' @rdname create_sparklines</pre>
+                      <pre class="language-r">            collapsed = FALSE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">585</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">create_sparklines.Date &lt;- function(arr, width = 150, bar_spacing = 5, bar_width = 20, ...) {</pre>
+                      <pre class="language-r">            uiOutput(ns("plot_settings")),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">586</td>
+                    <td class="num">239</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  arr_num &lt;- as.numeric(arr)</pre>
+                      <pre class="language-r">            conditionalPanel(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">587</td>
+                    <td class="num">240</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  arr_num &lt;- sort(arr_num, decreasing = FALSE, method = "radix")</pre>
+                      <pre class="language-r">              condition = sprintf("input['%s'] == 'Biplot'", ns("plot_type")),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">588</td>
+                    <td class="num">241</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  binwidth &lt;- get_bin_width(arr_num, 1)</pre>
+                      <pre class="language-r">              list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">589</td>
+                    <td class="num">242</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  bins &lt;- floor(diff(range(arr_num)) / binwidth) + 1</pre>
+                      <pre class="language-r">                teal.transform::data_extract_ui(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">590</td>
+                    <td class="num">243</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (all(is.na(bins))) {</pre>
+                      <pre class="language-r">                  id = ns("response"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">591</td>
+                    <td class="num">244</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    return(as.character(tags$code("only NA", class = "text-blue")))</pre>
+                      <pre class="language-r">                  label = "Color by",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">592</td>
+                    <td class="num">245</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (bins == 1) {</pre>
+                      <pre class="language-r">                  data_extract_spec = color_selector,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">593</td>
+                    <td class="num">246</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    return(as.character(tags$code("one date", class = "text-blue")))</pre>
+                      <pre class="language-r">                  is_single_dataset = is_single_dataset_value</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">594</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="missed">
-                    <td class="num">595</td>
+                    <td class="num">248</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  counts &lt;- as.vector(unname(base::table(cut(arr_num, breaks = bins))))</pre>
+                      <pre class="language-r">                teal.widgets::optionalSliderInputValMinMax(ns("alpha"), "Opacity:", args$alpha, ticks = FALSE),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">596</td>
+                    <td class="num">249</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  max_value &lt;- max(counts)</pre>
+                      <pre class="language-r">                teal.widgets::optionalSliderInputValMinMax(ns("size"), "Points size:", args$size, ticks = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">597</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="never">
+                    <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">252</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">598</td>
+                    <td class="num">253</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  start_bins &lt;- as.integer(seq(1, length(arr_num), length.out = bins))</pre>
+                      <pre class="language-r">          teal.widgets::panel_item(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">599</td>
+                    <td class="num">254</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  labels_start &lt;- as.character(as.Date(arr_num[start_bins], origin = as.Date("1970-01-01")))</pre>
+                      <pre class="language-r">            title = "Plot settings",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">600</td>
+                    <td class="num">255</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  labels &lt;- paste("Start:", labels_start)</pre>
+                      <pre class="language-r">            collapsed = TRUE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">601</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">256</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">            conditionalPanel(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">602</td>
+                    <td class="num">257</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  sparkline::spk_chr(</pre>
+                      <pre class="language-r">              condition = sprintf(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">603</td>
+                    <td class="num">258</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    unname(counts),</pre>
+                      <pre class="language-r">                "input['%s'] == 'Elbow Plot' || input['%s'] == 'Eigenvector plot'",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">604</td>
+                    <td class="num">259</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    type = "bar",</pre>
+                      <pre class="language-r">                ns("plot_type"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">605</td>
+                    <td class="num">260</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    chartRangeMin = 0,</pre>
+                      <pre class="language-r">                ns("plot_type")</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>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">606</td>
+                    <td class="num">262</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    chartRangeMax = max_value,</pre>
+                      <pre class="language-r">              list(checkboxInput(ns("rotate_xaxis_labels"), "Rotate X axis labels", value = args$rotate_xaxis_labels))</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">263</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">607</td>
+                    <td class="num">264</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    width = width,</pre>
+                      <pre class="language-r">            selectInput(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">608</td>
+                    <td class="num">265</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    barWidth = bar_width,</pre>
+                      <pre class="language-r">              inputId = ns("ggtheme"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">609</td>
+                    <td class="num">266</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    barSpacing = bar_spacing,</pre>
+                      <pre class="language-r">              label = "Theme (by ggplot):",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">610</td>
+                    <td class="num">267</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tooltipFormatter = custom_sparkline_formatter(labels, counts)</pre>
+                      <pre class="language-r">              choices = ggplot_themes,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">611</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">  )</pre>
+                      <pre class="language-r">              selected = args$ggtheme,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">612</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">}</pre>
+                      <pre class="language-r">              multiple = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">613</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">614</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">#' Generates the HTML code for the \code{sparkline} widget</pre>
+                      <pre class="language-r">            teal.widgets::optionalSliderInputValMinMax(ns("font_size"), "Font Size", args$font_size, ticks = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">615</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">616</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">617</td>
+                    <td class="num">274</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param bar_spacing \code{numeric} the spacing between the bars (in pixels)</pre>
+                      <pre class="language-r">      ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">618</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">#' @param bar_width \code{numeric} the width of the bars (in pixels)</pre>
+                      <pre class="language-r">      forms = tagList(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">619</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">#'</pre>
+                      <pre class="language-r">        teal.widgets::verbatim_popup_ui(ns("warning"), "Show Warnings"),</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">277</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">620</td>
+                    <td class="num">278</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return \code{character} with HTML code for the \code{sparkline} widget</pre>
+                      <pre class="language-r">      ),</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">279</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      pre_output = args$pre_output,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">280</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      post_output = args$post_output</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">621</td>
+                    <td class="num">281</td>
                     <td class="coverage"></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">282</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">623</td>
+                    <td class="num">283</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">624</td>
+                    <td class="num">284</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname create_sparklines</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">625</td>
+                    <td class="num">285</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">create_sparklines.POSIXct &lt;- function(arr, width = 150, bar_spacing = 5, bar_width = 20, ...) {</pre>
+                      <pre class="language-r">srv_a_pca &lt;- function(id, data, reporter, filter_panel_api, dat, plot_height, plot_width, ggplot2_args) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">626</td>
+                    <td class="num">286</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  arr_num &lt;- as.numeric(arr)</pre>
+                      <pre class="language-r">  with_reporter &lt;- !missing(reporter) &amp;&amp; inherits(reporter, "Reporter")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">627</td>
+                    <td class="num">287</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  arr_num &lt;- sort(arr_num, decreasing = FALSE, method = "radix")</pre>
+                      <pre class="language-r">  with_filter &lt;- !missing(filter_panel_api) &amp;&amp; inherits(filter_panel_api, "FilterPanelAPI")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">628</td>
+                    <td class="num">288</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  binwidth &lt;- get_bin_width(arr_num, 1)</pre>
+                      <pre class="language-r">  checkmate::assert_class(data, "reactive")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">629</td>
+                    <td class="num">289</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  bins &lt;- floor(diff(range(arr_num)) / binwidth) + 1</pre>
+                      <pre class="language-r">  checkmate::assert_class(isolate(data()), "teal_data")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">630</td>
+                    <td class="num">290</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (all(is.na(bins))) {</pre>
+                      <pre class="language-r">  moduleServer(id, function(input, output, session) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">631</td>
+                    <td class="num">291</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    return(as.character(tags$code("only NA", class = "text-blue")))</pre>
+                      <pre class="language-r">    response &lt;- dat</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">632</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">292</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (bins == 1) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">633</td>
+                    <td class="num">293</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    return(as.character(tags$code("one date-time", class = "text-blue")))</pre>
+                      <pre class="language-r">    for (i in seq_along(response)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">634</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">      response[[i]]$select$multiple &lt;- FALSE</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">635</td>
+                    <td class="num">295</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  counts &lt;- as.vector(unname(base::table(cut(arr_num, breaks = bins))))</pre>
+                      <pre class="language-r">      response[[i]]$select$always_selected &lt;- NULL</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">636</td>
+                    <td class="num">296</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  max_value &lt;- max(counts)</pre>
+                      <pre class="language-r">      response[[i]]$select$selected &lt;- NULL</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">637</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">      all_cols &lt;- teal.data::col_labels(isolate(data())[[response[[i]]$dataname]])</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">638</td>
+                    <td class="num">298</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  start_bins &lt;- as.integer(seq(1, length(arr_num), length.out = bins))</pre>
+                      <pre class="language-r">      ignore_cols &lt;- unlist(teal.data::join_keys(isolate(data()))[[response[[i]]$dataname]])</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">639</td>
+                    <td class="num">299</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  labels_start &lt;- as.character(format(as.POSIXct(arr_num[start_bins], origin = as.Date("1970-01-01")), "%Y-%m-%d"))</pre>
+                      <pre class="language-r">      color_cols &lt;- all_cols[!names(all_cols) %in% ignore_cols]</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">640</td>
+                    <td class="num">300</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  labels &lt;- paste("Start:", labels_start)</pre>
+                      <pre class="language-r">      response[[i]]$select$choices &lt;- choices_labeled(names(color_cols), color_cols)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">641</td>
+                    <td class="num">301</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">642</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">302</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  sparkline::spk_chr(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">643</td>
+                    <td class="num">303</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    unname(counts),</pre>
+                      <pre class="language-r">    selector_list &lt;- teal.transform::data_extract_multiple_srv(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">644</td>
+                    <td class="num">304</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    type = "bar",</pre>
+                      <pre class="language-r">      data_extract = list(dat = dat, response = response),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">645</td>
+                    <td class="num">305</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    chartRangeMin = 0,</pre>
+                      <pre class="language-r">      datasets = data,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">646</td>
+                    <td class="num">306</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    chartRangeMax = max_value,</pre>
+                      <pre class="language-r">      select_validation_rule = list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">647</td>
+                    <td class="num">307</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    width = width,</pre>
+                      <pre class="language-r">        dat = ~ if (length(.) &lt; 2L) "Please select more than 1 variable to perform PCA.",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">648</td>
+                    <td class="num">308</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    barWidth = bar_width,</pre>
+                      <pre class="language-r">        response = shinyvalidate::compose_rules(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">649</td>
+                    <td class="num">309</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    barSpacing = bar_spacing,</pre>
+                      <pre class="language-r">          shinyvalidate::sv_optional(),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">650</td>
+                    <td class="num">310</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tooltipFormatter = custom_sparkline_formatter(labels, counts)</pre>
+                      <pre class="language-r">          ~ if (isTRUE(is.element(., selector_list()$dat()$select))) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">651</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">            "Response must not have been used for PCA."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">652</td>
+                    <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">653</td>
+                    <td class="num">313</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">654</td>
+                    <td class="num">314</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Generates the HTML code for the \code{sparkline} widget</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">655</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="never">
-                    <td class="num">656</td>
+                    <td class="num">316</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">657</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">317</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param bar_spacing \code{numeric} the spacing between the bars (in pixels)</pre>
+                      <pre class="language-r">    iv_r &lt;- reactive({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">658</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">318</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param bar_width \code{numeric} the width of the bars (in pixels)</pre>
+                      <pre class="language-r">      iv &lt;- shinyvalidate::InputValidator$new()</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">659</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">319</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      teal.transform::compose_and_enable_validators(iv, selector_list)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">660</td>
+                    <td class="num">320</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return \code{character} with HTML code for the \code{sparkline} widget</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">661</td>
+                    <td class="num">321</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">662</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">#' @export</pre>
+                      <pre class="language-r">    iv_extra &lt;- shinyvalidate::InputValidator$new()</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">663</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">323</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">    iv_extra$add_rule("x_axis", function(value) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">664</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">324</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname create_sparklines</pre>
+                      <pre class="language-r">      if (isTRUE(input$plot_type %in% c("Circle plot", "Biplot"))) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">665</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">325</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">create_sparklines.POSIXlt &lt;- function(arr, width = 150, bar_spacing = 5, bar_width = 20, ...) {</pre>
+                      <pre class="language-r">        if (!shinyvalidate::input_provided(value)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">666</td>
+                    <td class="num">326</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  arr_num &lt;- as.numeric(arr)</pre>
+                      <pre class="language-r">          "Need X axis"</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">667</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">327</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  arr_num &lt;- sort(arr_num, decreasing = FALSE, method = "radix")</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">668</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">328</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  binwidth &lt;- get_bin_width(arr_num, 1)</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">669</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">329</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  bins &lt;- floor(diff(range(arr_num)) / binwidth) + 1</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">670</td>
+                    <td class="num">330</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (all(is.na(bins))) {</pre>
+                      <pre class="language-r">    iv_extra$add_rule("y_axis", function(value) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">671</td>
+                    <td class="num">331</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    return(as.character(tags$code("only NA", class = "text-blue")))</pre>
+                      <pre class="language-r">      if (isTRUE(input$plot_type %in% c("Circle plot", "Biplot"))) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">672</td>
+                    <td class="num">332</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (bins == 1) {</pre>
+                      <pre class="language-r">        if (!shinyvalidate::input_provided(value)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">673</td>
+                    <td class="num">333</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    return(as.character(tags$code("one date-time", class = "text-blue")))</pre>
+                      <pre class="language-r">          "Need Y axis"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">674</td>
+                    <td class="num">334</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">675</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  counts &lt;- as.vector(unname(base::table(cut(arr_num, breaks = bins))))</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">676</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">335</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  max_value &lt;- max(counts)</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">677</td>
+                    <td class="num">336</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">678</td>
+                    <td class="num">337</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  start_bins &lt;- as.integer(seq(1, length(arr_num), length.out = bins))</pre>
+                      <pre class="language-r">    rule_dupl &lt;- function(...) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">679</td>
+                    <td class="num">338</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  labels_start &lt;- as.character(format(as.POSIXct(arr_num[start_bins], origin = as.Date("1970-01-01")), "%Y-%m-%d"))</pre>
+                      <pre class="language-r">      if (isTRUE(input$plot_type %in% c("Circle plot", "Biplot"))) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">680</td>
+                    <td class="num">339</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  labels &lt;- paste("Start:", labels_start)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">681</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        if (isTRUE(input$x_axis == input$y_axis)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">682</td>
+                    <td class="num">340</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  sparkline::spk_chr(</pre>
+                      <pre class="language-r">          "Please choose different X and Y axes."</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">683</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">341</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    unname(counts),</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">684</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">342</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    type = "bar",</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">685</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">343</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    chartRangeMin = 0,</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">686</td>
+                    <td class="num">344</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    chartRangeMax = max_value,</pre>
+                      <pre class="language-r">    iv_extra$add_rule("x_axis", rule_dupl)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">687</td>
+                    <td class="num">345</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    width = width,</pre>
+                      <pre class="language-r">    iv_extra$add_rule("y_axis", rule_dupl)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">688</td>
+                    <td class="num">346</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    barWidth = bar_width,</pre>
+                      <pre class="language-r">    iv_extra$add_rule("variables", function(value) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">689</td>
+                    <td class="num">347</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    barSpacing = bar_spacing,</pre>
+                      <pre class="language-r">      if (identical(input$plot_type, "Circle plot")) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">690</td>
+                    <td class="num">348</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tooltipFormatter = custom_sparkline_formatter(labels, counts)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">691</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">        if (!shinyvalidate::input_provided(value)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">692</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">349</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">          "Need Original Coordinates"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">693</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">694</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">695</td>
+                    <td class="num">352</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Generates the HTML code for the \code{sparkline} widget</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">696</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">    iv_extra$add_rule("pc", function(value) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">697</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">#' Coerces a character vector to factor and delegates to the \code{create_sparklines.factor}</pre>
+                      <pre class="language-r">      if (identical(input$plot_type, "Eigenvector plot")) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">698</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">        if (!shinyvalidate::input_provided(value)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">699</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">#'</pre>
+                      <pre class="language-r">          "Need PC"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">700</td>
+                    <td class="num">357</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return \code{character} with HTML code for the \code{sparkline} widget</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">701</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">702</td>
+                    <td class="num">359</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">703</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">#' @keywords internal</pre>
+                      <pre class="language-r">    iv_extra$enable()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">704</td>
+                    <td class="num">361</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname create_sparklines</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">705</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">create_sparklines.character &lt;- function(arr, ...) {</pre>
+                      <pre class="language-r">    anl_merged_input &lt;- teal.transform::merge_expression_srv(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">706</td>
+                    <td class="num">363</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  return(create_sparklines(as.factor(arr)))</pre>
+                      <pre class="language-r">      selector_list = selector_list,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">707</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">}</pre>
+                      <pre class="language-r">      datasets = data</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">708</td>
+                    <td class="num">365</td>
                     <td class="coverage"></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">366</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">710</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">#' Generates the HTML code for the \code{sparkline} widget</pre>
+                      <pre class="language-r">    anl_merged_q &lt;- reactive({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">711</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">#'</pre>
+                      <pre class="language-r">      req(anl_merged_input())</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">712</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">#' Coerces logical vector to factor and delegates to the \code{create_sparklines.factor}</pre>
+                      <pre class="language-r">      data() %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">713</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">#'</pre>
+                      <pre class="language-r">        teal.code::eval_code(as.expression(anl_merged_input()$expr))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">714</td>
+                    <td class="num">371</td>
                     <td class="coverage"></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">372</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return \code{character} with HTML code for the \code{sparkline} widget</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">716</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">    merged &lt;- list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">717</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">374</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">      anl_input_r = anl_merged_input,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">718</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">375</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">      anl_q_r = anl_merged_q</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">719</td>
+                    <td class="num">376</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname create_sparklines</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">720</td>
+                    <td class="num">377</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">create_sparklines.logical &lt;- function(arr, ...) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">721</td>
+                    <td class="num">378</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  return(create_sparklines(as.factor(arr)))</pre>
+                      <pre class="language-r">    validation &lt;- reactive({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">722</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">}</pre>
+                      <pre class="language-r">      req(merged$anl_q_r())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">723</td>
+                    <td class="num">380</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      # inputs</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">724</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"></pre>
+                      <pre class="language-r">      keep_cols &lt;- as.character(merged$anl_input_r()$columns_source$dat)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">725</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">#' Generates the \code{sparkline} HTML code</pre>
+                      <pre class="language-r">      na_action &lt;- input$na_action</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">726</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">383</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      standardization &lt;- input$standardization</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">727</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 bar_spacing \code{numeric} spacing between the bars (in pixels)</pre>
+                      <pre class="language-r">      center &lt;- standardization %in% c("center", "center_scale")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">728</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">385</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param bar_width \code{numeric} width of the bars (in pixels)</pre>
+                      <pre class="language-r">      scale &lt;- standardization == "center_scale"</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">729</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">#'</pre>
+                      <pre class="language-r">      ANL &lt;- merged$anl_q_r()[["ANL"]] # nolint: object_name.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">730</td>
+                    <td class="num">387</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return \code{character} with HTML code for the \code{sparkline} widget</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">731</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">      teal::validate_has_data(ANL, 10)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">732</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">389</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">      validate(need(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">733</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">390</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">        na_action != "none" | !anyNA(ANL[keep_cols]),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">734</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">#' @rdname create_sparklines</pre>
+                      <pre class="language-r">        paste(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">735</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">create_sparklines.factor &lt;- function(arr, width = 150, bar_spacing = 5, bar_width = 20, ...) {</pre>
+                      <pre class="language-r">          "There are NAs in the dataset. Please deal with them in preprocessing",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">736</td>
+                    <td class="num">393</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  decreasing_order &lt;- TRUE</pre>
+                      <pre class="language-r">          "or select \"Drop\" in the NA actions inside the encodings panel (left)."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">737</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="missed">
-                    <td class="num">738</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">395</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  counts &lt;- table(arr)</pre>
+                      <pre class="language-r">      ))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">739</td>
+                    <td class="num">396</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (length(counts) &gt;= 100) {</pre>
+                      <pre class="language-r">      if (scale) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">740</td>
+                    <td class="num">397</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    return(as.character(tags$code("&gt; 99 levels", class = "text-blue")))</pre>
+                      <pre class="language-r">        not_single &lt;- vapply(ANL[keep_cols], function(column) length(unique(column)) != 1, FUN.VALUE = logical(1))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">741</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">398</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (length(counts) == 0) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">742</td>
+                    <td class="num">399</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    return(as.character(tags$code("no levels", class = "text-blue")))</pre>
+                      <pre class="language-r">        msg &lt;- paste0(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">743</td>
+                    <td class="num">400</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (length(counts) == 1) {</pre>
+                      <pre class="language-r">          "You have selected `Center &amp; Scale` under `Standardization` in the `Pre-processing` panel, ",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">744</td>
+                    <td class="num">401</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    return(as.character(tags$code("one level", class = "text-blue")))</pre>
+                      <pre class="language-r">          "but one or more of your columns has/have a variance value of zero, indicating all values are identical"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">745</td>
+                    <td class="num">402</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">746</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">403</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        validate(need(all(not_single), msg))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">747</td>
+                    <td class="num">404</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Summarize the occurences of different levels</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">748</td>
+                    <td class="num">405</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # and get the maximum and minimum number of occurences</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">749</td>
+                    <td class="num">406</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # This is needed for the sparkline to correctly display the bar plots</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">750</td>
+                    <td class="num">407</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Otherwise they are cropped</pre>
+                      <pre class="language-r">    # computation ----</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">751</td>
+                    <td class="num">408</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  counts &lt;- sort(counts, decreasing = decreasing_order, method = "radix")</pre>
+                      <pre class="language-r">    computation &lt;- reactive({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">752</td>
+                    <td class="num">409</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  max_value &lt;- if (decreasing_order) counts[1] else counts[length[counts]]</pre>
+                      <pre class="language-r">      validation()</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">753</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">410</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  max_value &lt;- unname(max_value)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">754</td>
+                    <td class="num">411</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      # inputs</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">755</td>
+                    <td class="num">412</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  sparkline::spk_chr(</pre>
+                      <pre class="language-r">      keep_cols &lt;- as.character(merged$anl_input_r()$columns_source$dat)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">756</td>
+                    <td class="num">413</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    unname(counts),</pre>
+                      <pre class="language-r">      na_action &lt;- input$na_action</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">757</td>
+                    <td class="num">414</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    type = "bar",</pre>
+                      <pre class="language-r">      standardization &lt;- input$standardization</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">758</td>
+                    <td class="num">415</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    chartRangeMin = 0,</pre>
+                      <pre class="language-r">      center &lt;- standardization %in% c("center", "center_scale")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">759</td>
+                    <td class="num">416</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    chartRangeMax = max_value,</pre>
+                      <pre class="language-r">      scale &lt;- standardization == "center_scale"</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">760</td>
+                    <td class="num">417</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    width = width,</pre>
+                      <pre class="language-r">      ANL &lt;- merged$anl_q_r()[["ANL"]] # nolint: object_name.</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">418</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">761</td>
+                    <td class="num">419</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    barWidth = bar_width,</pre>
+                      <pre class="language-r">      qenv &lt;- teal.code::eval_code(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">762</td>
+                    <td class="num">420</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    barSpacing = bar_spacing,</pre>
+                      <pre class="language-r">        merged$anl_q_r(),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">763</td>
+                    <td class="num">421</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tooltipFormatter = custom_sparkline_formatter(names(counts), as.vector(counts))</pre>
+                      <pre class="language-r">        substitute(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">764</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">  )</pre>
+                      <pre class="language-r">          expr = keep_columns &lt;- keep_cols,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">765</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">}</pre>
+                      <pre class="language-r">          env = list(keep_cols = keep_cols)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">766</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">767</td>
+                    <td class="num">425</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Generates the \code{sparkline} HTML code</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">768</td>
+                    <td class="num">426</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">769</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">#'</pre>
+                      <pre class="language-r">      if (na_action == "drop") {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">770</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">#' @return \code{character} with HTML code for the \code{sparkline} widget</pre>
+                      <pre class="language-r">        qenv &lt;- teal.code::eval_code(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">771</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">          qenv,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">772</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">#' @export</pre>
+                      <pre class="language-r">          quote(ANL &lt;- tidyr::drop_na(ANL, keep_columns)) # nolint: object_name.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">773</td>
+                    <td class="num">431</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">774</td>
+                    <td class="num">432</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname create_sparklines</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">775</td>
+                    <td class="num">433</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">create_sparklines.numeric &lt;- function(arr, width = 150, ...) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">776</td>
+                    <td class="num">434</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (any(is.infinite(arr))) {</pre>
+                      <pre class="language-r">      qenv &lt;- teal.code::eval_code(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">777</td>
+                    <td class="num">435</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    return(as.character(tags$code("infinite values", class = "text-blue")))</pre>
+                      <pre class="language-r">        qenv,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">778</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">436</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">        substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">779</td>
+                    <td class="num">437</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (length(arr) &gt; 100000) {</pre>
+                      <pre class="language-r">          expr = pca &lt;- summary(stats::prcomp(ANL[keep_columns], center = center, scale. = scale, retx = TRUE)),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">780</td>
+                    <td class="num">438</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    return(as.character(tags$code("Too many rows (&gt;100000)", class = "text-blue")))</pre>
+                      <pre class="language-r">          env = list(center = center, scale = scale)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">781</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">782</td>
+                    <td class="num">440</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">441</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">783</td>
+                    <td class="num">442</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  arr &lt;- arr[!is.na(arr)]</pre>
+                      <pre class="language-r">      qenv &lt;- teal.code::eval_code(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">784</td>
+                    <td class="num">443</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  res &lt;- sparkline::spk_chr(unname(arr), type = "box", width = width, ...)</pre>
+                      <pre class="language-r">        qenv,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">785</td>
+                    <td class="num">444</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  return(res)</pre>
+                      <pre class="language-r">        quote({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">786</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">445</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">          tbl_importance &lt;- dplyr::as_tibble(pca$importance, rownames = "Metric")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">787</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">446</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          tbl_importance</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">788</td>
+                    <td class="num">447</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Summarizes variable</pre>
+                      <pre class="language-r">        })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">789</td>
+                    <td class="num">448</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">790</td>
+                    <td class="num">449</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Creates html summary with statistics relevant to data type. For numeric values it returns central</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">791</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">450</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' tendency measures, for factor returns level counts, for Date  date range, for other just</pre>
+                      <pre class="language-r">      teal.code::eval_code(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">792</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">451</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' number of levels.</pre>
+                      <pre class="language-r">        qenv,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">793</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">452</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x vector of any type</pre>
+                      <pre class="language-r">        quote({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">794</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">453</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param numeric_as_factor \code{logical} should the numeric variable be treated as a factor</pre>
+                      <pre class="language-r">          tbl_eigenvector &lt;- dplyr::as_tibble(pca$rotation, rownames = "Variable")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">795</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">454</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param dt_rows \code{numeric} current/latest `DT` page length</pre>
+                      <pre class="language-r">          tbl_eigenvector</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">796</td>
+                    <td class="num">455</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param outlier_definition If 0 no outliers are removed, otherwise</pre>
+                      <pre class="language-r">        })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">797</td>
+                    <td class="num">456</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   outliers (those more than outlier_definition*IQR below/above Q1/Q3 be removed)</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">798</td>
+                    <td class="num">457</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return text with simple statistics.</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">799</td>
+                    <td class="num">458</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">800</td>
+                    <td class="num">459</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">var_summary_table &lt;- function(x, numeric_as_factor, dt_rows, outlier_definition) {</pre>
+                      <pre class="language-r">    # plot args ----</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">801</td>
+                    <td class="num">460</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.null(dt_rows)) {</pre>
+                      <pre class="language-r">    output$plot_settings &lt;- renderUI({</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">802</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">    dt_rows &lt;- 10</pre>
+                      <pre class="language-r">      # reactivity triggers</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">803</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">462</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">      req(iv_r()$is_valid())</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">804</td>
+                    <td class="num">463</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.numeric(x) &amp;&amp; !numeric_as_factor) {</pre>
+                      <pre class="language-r">      req(computation())</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">805</td>
+                    <td class="num">464</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    req(!any(is.infinite(x)))</pre>
+                      <pre class="language-r">      qenv &lt;- computation()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">806</td>
+                    <td class="num">465</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">807</td>
+                    <td class="num">466</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x &lt;- remove_outliers_from(x, outlier_definition)</pre>
+                      <pre class="language-r">      ns &lt;- session$ns</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">808</td>
+                    <td class="num">467</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">809</td>
+                    <td class="num">468</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    qvals &lt;- round(stats::quantile(x, na.rm = TRUE, probs = c(0.25, 0.5, 0.75), type = 2), 2)</pre>
+                      <pre class="language-r">      pca &lt;- qenv[["pca"]]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">810</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">469</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      chcs_pcs &lt;- colnames(pca$rotation)</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">470</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # classical central tendency measures</pre>
+                      <pre class="language-r">      chcs_vars &lt;- qenv[["keep_columns"]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">811</td>
+                    <td class="num">471</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">812</td>
+                    <td class="num">472</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    summary &lt;-</pre>
+                      <pre class="language-r">      tagList(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">813</td>
+                    <td class="num">473</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      data.frame(</pre>
+                      <pre class="language-r">        conditionalPanel(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">814</td>
+                    <td class="num">474</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        Statistic = c("min", "Q1", "median", "mean", "Q3", "max", "sd", "n"),</pre>
+                      <pre class="language-r">          condition = sprintf(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">815</td>
+                    <td class="num">475</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        Value = c(</pre>
+                      <pre class="language-r">            "input['%s'] == 'Biplot' || input['%s'] == 'Circle plot'",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">816</td>
+                    <td class="num">476</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          round(min(x, na.rm = TRUE), 2),</pre>
+                      <pre class="language-r">            ns("plot_type"), ns("plot_type")</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">477</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">817</td>
+                    <td class="num">478</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          qvals[1],</pre>
+                      <pre class="language-r">          list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">818</td>
+                    <td class="num">479</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          qvals[2],</pre>
+                      <pre class="language-r">            teal.widgets::optionalSelectInput(ns("x_axis"), "X axis", choices = chcs_pcs, selected = chcs_pcs[1]),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">819</td>
+                    <td class="num">480</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          round(mean(x, na.rm = TRUE), 2),</pre>
+                      <pre class="language-r">            teal.widgets::optionalSelectInput(ns("y_axis"), "Y axis", choices = chcs_pcs, selected = chcs_pcs[2]),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">820</td>
+                    <td class="num">481</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          qvals[3],</pre>
+                      <pre class="language-r">            teal.widgets::optionalSelectInput(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">821</td>
+                    <td class="num">482</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          round(max(x, na.rm = TRUE), 2),</pre>
+                      <pre class="language-r">              ns("variables"), "Original coordinates",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">822</td>
+                    <td class="num">483</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          round(stats::sd(x, na.rm = TRUE), 2),</pre>
+                      <pre class="language-r">              choices = chcs_vars, selected = chcs_vars,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">823</td>
+                    <td class="num">484</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          length(x[!is.na(x)])</pre>
+                      <pre class="language-r">              multiple = TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">824</td>
+                    <td class="num">485</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">825</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">826</td>
+                    <td class="num">487</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">827</td>
+                    <td class="num">488</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    DT::datatable(summary, rownames = FALSE, options = list(dom = "&lt;t&gt;", pageLength = dt_rows))</pre>
+                      <pre class="language-r">        conditionalPanel(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">828</td>
+                    <td class="num">489</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (is.factor(x) || is.character(x) || (is.numeric(x) &amp;&amp; numeric_as_factor) || is.logical(x)) {</pre>
+                      <pre class="language-r">          condition = sprintf("input['%s'] == 'Elbow plot'", ns("plot_type")),</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">490</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          helpText("No plot specific settings available.")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">829</td>
+                    <td class="num">491</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # make sure factor is ordered numeric</pre>
+                      <pre class="language-r">        ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">830</td>
+                    <td class="num">492</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (is.numeric(x)) {</pre>
+                      <pre class="language-r">        conditionalPanel(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">831</td>
+                    <td class="num">493</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      x &lt;- factor(x, levels = sort(unique(x)))</pre>
+                      <pre class="language-r">          condition = paste0("input['", ns("plot_type"), "'] == 'Eigenvector plot'"),</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">494</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          teal.widgets::optionalSelectInput(ns("pc"), "PC", choices = chcs_pcs, selected = chcs_pcs[1])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">832</td>
+                    <td class="num">495</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">833</td>
+                    <td class="num">496</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">834</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">497</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    level_counts &lt;- table(x)</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">835</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">498</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    max_levels_signif &lt;- nchar(level_counts)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">836</td>
+                    <td class="num">499</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    # plot elbow ----</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">837</td>
+                    <td class="num">500</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (!all(is.na(x))) {</pre>
+                      <pre class="language-r">    plot_elbow &lt;- function(base_q) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">838</td>
+                    <td class="num">501</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      levels &lt;- names(level_counts)</pre>
+                      <pre class="language-r">      ggtheme &lt;- input$ggtheme</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">839</td>
+                    <td class="num">502</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      counts &lt;- sprintf(</pre>
+                      <pre class="language-r">      rotate_xaxis_labels &lt;- input$rotate_xaxis_labels</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">840</td>
+                    <td class="num">503</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "%s [%.2f%%]",</pre>
+                      <pre class="language-r">      font_size &lt;- input$font_size</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">504</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">841</td>
+                    <td class="num">505</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        format(level_counts, width = max_levels_signif), prop.table(level_counts) * 100</pre>
+                      <pre class="language-r">      angle_value &lt;- ifelse(isTRUE(rotate_xaxis_labels), 45, 0)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">842</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">506</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">      hjust_value &lt;- ifelse(isTRUE(rotate_xaxis_labels), 1, 0.5)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">843</td>
+                    <td class="num">507</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">844</td>
+                    <td class="num">508</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      levels &lt;- character(0)</pre>
+                      <pre class="language-r">      dev_ggplot2_args &lt;- teal.widgets::ggplot2_args(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">845</td>
+                    <td class="num">509</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      counts &lt;- numeric(0)</pre>
+                      <pre class="language-r">        labs = list(x = "Principal component", y = "Proportion of variance explained", color = "", fill = "Legend"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">846</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">510</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">        theme = list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">847</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">511</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          legend.position = "right",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">848</td>
+                    <td class="num">512</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    summary &lt;- data.frame(</pre>
+                      <pre class="language-r">          legend.spacing.y = quote(grid::unit(-5, "pt")),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">849</td>
+                    <td class="num">513</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      Level = levels,</pre>
+                      <pre class="language-r">          legend.title = quote(element_text(vjust = 25)),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">850</td>
+                    <td class="num">514</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      Count = counts,</pre>
+                      <pre class="language-r">          axis.text.x = substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">851</td>
+                    <td class="num">515</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      stringsAsFactors = FALSE</pre>
+                      <pre class="language-r">            element_text(angle = angle_value, hjust = hjust_value),</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">516</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            list(angle_value = angle_value, hjust_value = hjust_value)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">852</td>
+                    <td class="num">517</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">518</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          text = substitute(element_text(size = font_size), list(font_size = font_size))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">853</td>
+                    <td class="num">519</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">854</td>
+                    <td class="num">520</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # sort the dataset in decreasing order of counts (needed as character variables default to alphabetical)</pre>
+                      <pre class="language-r">      )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">521</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">855</td>
+                    <td class="num">522</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    summary &lt;- summary[order(summary$Count, decreasing = TRUE), ]</pre>
+                      <pre class="language-r">      parsed_ggplot2_args &lt;- teal.widgets::parse_ggplot2_args(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">856</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">523</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        teal.widgets::resolve_ggplot2_args(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">857</td>
+                    <td class="num">524</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dom_opts &lt;- if (nrow(summary) &lt;= 10) {</pre>
+                      <pre class="language-r">          user_plot = ggplot2_args[["Elbow plot"]],</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">858</td>
+                    <td class="num">525</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "&lt;t&gt;"</pre>
+                      <pre class="language-r">          user_default = ggplot2_args$default,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">526</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          module_plot = dev_ggplot2_args</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">859</td>
+                    <td class="num">527</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">860</td>
+                    <td class="num">528</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "&lt;lf&lt;t&gt;ip&gt;"</pre>
+                      <pre class="language-r">        ggtheme = ggtheme</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">861</td>
+                    <td class="num">529</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">      )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">530</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">862</td>
+                    <td class="num">531</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    DT::datatable(summary, rownames = FALSE, options = list(dom = dom_opts, pageLength = dt_rows))</pre>
+                      <pre class="language-r">      teal.code::eval_code(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">863</td>
+                    <td class="num">532</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (inherits(x, "Date") || inherits(x, "POSIXct") || inherits(x, "POSIXlt")) {</pre>
+                      <pre class="language-r">        base_q,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">864</td>
+                    <td class="num">533</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    summary &lt;-</pre>
+                      <pre class="language-r">        substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">865</td>
+                    <td class="num">534</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      data.frame(</pre>
+                      <pre class="language-r">          expr = {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">866</td>
+                    <td class="num">535</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        Statistic = c("min", "median", "max"),</pre>
+                      <pre class="language-r">            elb_dat &lt;- pca$importance[c("Proportion of Variance", "Cumulative Proportion"), ] %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">867</td>
+                    <td class="num">536</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        Value = c(</pre>
+                      <pre class="language-r">              dplyr::as_tibble(rownames = "metric") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">868</td>
+                    <td class="num">537</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          min(x, na.rm = TRUE),</pre>
+                      <pre class="language-r">              tidyr::gather("component", "value", -metric) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">869</td>
+                    <td class="num">538</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          stats::median(x, na.rm = TRUE),</pre>
+                      <pre class="language-r">              dplyr::mutate(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">870</td>
+                    <td class="num">539</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          max(x, na.rm = TRUE)</pre>
+                      <pre class="language-r">                component = factor(component, levels = unique(stringr::str_sort(component, numeric = TRUE)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">871</td>
+                    <td class="num">540</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">              )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">872</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="missed">
-                    <td class="num">873</td>
+                    <td class="num">542</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    DT::datatable(summary, rownames = FALSE, options = list(dom = "&lt;t&gt;", pageLength = dt_rows))</pre>
+                      <pre class="language-r">            cols &lt;- c(getOption("ggplot2.discrete.colour"), c("lightblue", "darkred", "black"))[1:3]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">874</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">543</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">            g &lt;- ggplot(mapping = aes_string(x = "component", y = "value")) +</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">875</td>
+                    <td class="num">544</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    NULL</pre>
+                      <pre class="language-r">              geom_bar(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">876</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">545</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">                aes(fill = "Single variance"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">877</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">546</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">                data = dplyr::filter(elb_dat, metric == "Proportion of Variance"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">878</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">547</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                color = "black",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">879</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"></pre>
+                      <pre class="language-r">                stat = "identity"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">880</td>
+                    <td class="num">549</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Plot variable</pre>
+                      <pre class="language-r">              ) +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">881</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">#'</pre>
+                      <pre class="language-r">              geom_point(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">882</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">#' Creates summary plot with statistics relevant to data type.</pre>
+                      <pre class="language-r">                aes(color = "Cumulative variance"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">883</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">#' @inheritParams shared_params</pre>
+                      <pre class="language-r">                data = dplyr::filter(elb_dat, metric == "Cumulative Proportion")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">884</td>
+                    <td class="num">553</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param var vector of any type to be plotted. For numeric variables it produces histogram with</pre>
+                      <pre class="language-r">              ) +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">885</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">#' density line, for factors it creates frequency plot</pre>
+                      <pre class="language-r">              geom_line(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">886</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">555</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param var_lab text describing selected variable to be displayed on the plot</pre>
+                      <pre class="language-r">                aes(group = 1, color = "Cumulative variance"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">887</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">556</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param wrap_character (`numeric`) number of characters at which to wrap text values of `var`</pre>
+                      <pre class="language-r">                data = dplyr::filter(elb_dat, metric == "Cumulative Proportion")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">888</td>
+                    <td class="num">557</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param numeric_as_factor (`logical`) should the numeric variable be treated as a factor</pre>
+                      <pre class="language-r">              ) +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">889</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">#' @param display_density (`logical`) should density estimation be displayed for numeric values</pre>
+                      <pre class="language-r">              labs +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">890</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">559</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param remove_NA_hist (`logical`) should (`NA`) values be removed for histogram of factor like variables</pre>
+                      <pre class="language-r">              scale_color_manual(values = c("Cumulative variance" = cols[2], "Single variance" = cols[3])) +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">891</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">#' @param outlier_definition if 0 no outliers are removed, otherwise</pre>
+                      <pre class="language-r">              scale_fill_manual(values = c("Cumulative variance" = cols[2], "Single variance" = cols[1])) +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">892</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">#'   outliers (those more than outlier_definition*IQR below/above Q1/Q3 be removed)</pre>
+                      <pre class="language-r">              ggthemes +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">893</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">#' @param records_for_factor (`numeric`) if the number of factor levels is &gt;= than this value then</pre>
+                      <pre class="language-r">              themes</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">894</td>
+                    <td class="num">563</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   a graph of the factors isn't shown, only a list of values</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">895</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">#'</pre>
+                      <pre class="language-r">            print(g)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">896</td>
+                    <td class="num">565</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return plot</pre>
+                      <pre class="language-r">          },</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">897</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">#' @keywords internal</pre>
+                      <pre class="language-r">          env = list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">898</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">plot_var_summary &lt;- function(var,</pre>
+                      <pre class="language-r">            ggthemes = parsed_ggplot2_args$ggtheme,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">899</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">                             var_lab,</pre>
+                      <pre class="language-r">            labs = parsed_ggplot2_args$labs,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">900</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">                             wrap_character = NULL,</pre>
+                      <pre class="language-r">            themes = parsed_ggplot2_args$theme</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">901</td>
+                    <td class="num">570</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             numeric_as_factor,</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">902</td>
+                    <td class="num">571</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             display_density = is.numeric(var),</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">903</td>
+                    <td class="num">572</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             remove_NA_hist = FALSE, # nolint: object_name.</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">904</td>
+                    <td class="num">573</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             outlier_definition,</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">905</td>
+                    <td class="num">574</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             records_for_factor,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">906</td>
+                    <td class="num">575</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             ggplot2_args) {</pre>
+                      <pre class="language-r">    # plot circle ----</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">907</td>
+                    <td class="num">576</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(var_lab)</pre>
+                      <pre class="language-r">    plot_circle &lt;- function(base_q) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">908</td>
+                    <td class="num">577</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(wrap_character, null.ok = TRUE)</pre>
+                      <pre class="language-r">      x_axis &lt;- input$x_axis</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">909</td>
+                    <td class="num">578</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(numeric_as_factor)</pre>
+                      <pre class="language-r">      y_axis &lt;- input$y_axis</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">910</td>
+                    <td class="num">579</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(display_density)</pre>
+                      <pre class="language-r">      variables &lt;- input$variables</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">911</td>
+                    <td class="num">580</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_logical(remove_NA_hist, null.ok = TRUE)</pre>
+                      <pre class="language-r">      ggtheme &lt;- input$ggtheme</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">912</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">581</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_number(outlier_definition, lower = 0, finite = TRUE)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">913</td>
+                    <td class="num">582</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_integerish(records_for_factor, lower = 0, len = 1, any.missing = FALSE)</pre>
+                      <pre class="language-r">      rotate_xaxis_labels &lt;- input$rotate_xaxis_labels</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">914</td>
+                    <td class="num">583</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(ggplot2_args, "ggplot2_args")</pre>
+                      <pre class="language-r">      font_size &lt;- input$font_size</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">915</td>
+                    <td class="num">584</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">916</td>
+                    <td class="num">585</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  grid::grid.newpage()</pre>
+                      <pre class="language-r">      angle &lt;- ifelse(isTRUE(rotate_xaxis_labels), 45, 0)</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">586</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      hjust &lt;- ifelse(isTRUE(rotate_xaxis_labels), 1, 0.5)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">917</td>
+                    <td class="num">587</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">918</td>
+                    <td class="num">588</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  plot_main &lt;- if (is.factor(var) || is.character(var) || is.logical(var)) {</pre>
+                      <pre class="language-r">      dev_ggplot2_args &lt;- teal.widgets::ggplot2_args(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">919</td>
+                    <td class="num">589</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    groups &lt;- unique(as.character(var))</pre>
+                      <pre class="language-r">        theme = list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">920</td>
+                    <td class="num">590</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    len_groups &lt;- length(groups)</pre>
+                      <pre class="language-r">          text = substitute(element_text(size = font_size), list(font_size = font_size)),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">921</td>
+                    <td class="num">591</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (len_groups &gt;= records_for_factor) {</pre>
+                      <pre class="language-r">          axis.text.x = substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">922</td>
+                    <td class="num">592</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      grid::textGrob(</pre>
+                      <pre class="language-r">            element_text(angle = angle_val, hjust = hjust_val),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">923</td>
+                    <td class="num">593</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        sprintf(</pre>
+                      <pre class="language-r">            list(angle_val = angle, hjust_val = hjust)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">924</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">594</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "%s unique values\n%s:\n %s\n ...\n %s",</pre>
+                      <pre class="language-r">          )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">595</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">596</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">597</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">925</td>
+                    <td class="num">598</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          len_groups,</pre>
+                      <pre class="language-r">      all_ggplot2_args &lt;- teal.widgets::resolve_ggplot2_args(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">926</td>
+                    <td class="num">599</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          var_lab,</pre>
+                      <pre class="language-r">        user_plot = ggplot2_args[["Circle plot"]],</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">927</td>
+                    <td class="num">600</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          paste(utils::head(groups), collapse = ",\n "),</pre>
+                      <pre class="language-r">        user_default = ggplot2_args$default,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">928</td>
+                    <td class="num">601</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          paste(utils::tail(groups), collapse = ",\n ")</pre>
+                      <pre class="language-r">        module_plot = dev_ggplot2_args</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">929</td>
+                    <td class="num">602</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ),</pre>
+                      <pre class="language-r">      )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">603</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">930</td>
+                    <td class="num">604</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        x = grid::unit(1, "line"),</pre>
+                      <pre class="language-r">      parsed_ggplot2_args &lt;- teal.widgets::parse_ggplot2_args(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">931</td>
+                    <td class="num">605</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        y = grid::unit(1, "npc") - grid::unit(1, "line"),</pre>
+                      <pre class="language-r">        all_ggplot2_args,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">932</td>
+                    <td class="num">606</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        just = c("left", "top")</pre>
+                      <pre class="language-r">        ggtheme = ggtheme</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">933</td>
+                    <td class="num">607</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">934</td>
+                    <td class="num">608</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">935</td>
+                    <td class="num">609</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (!is.null(wrap_character)) {</pre>
+                      <pre class="language-r">      teal.code::eval_code(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">936</td>
+                    <td class="num">610</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        var &lt;- stringr::str_wrap(var, width = wrap_character)</pre>
+                      <pre class="language-r">        base_q,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">937</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">611</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">        substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">938</td>
+                    <td class="num">612</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      var &lt;- if (isTRUE(remove_NA_hist)) as.vector(stats::na.omit(var)) else var</pre>
+                      <pre class="language-r">          expr = {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">939</td>
+                    <td class="num">613</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ggplot(data.frame(var), aes(x = forcats::fct_infreq(as.factor(var)))) +</pre>
+                      <pre class="language-r">            pca_rot &lt;- pca$rotation[, c(x_axis, y_axis)] %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">940</td>
+                    <td class="num">614</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        geom_bar(stat = "count", aes(fill = ifelse(is.na(var), "withcolor", "")), show.legend = FALSE) +</pre>
+                      <pre class="language-r">              dplyr::as_tibble(rownames = "label") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">941</td>
+                    <td class="num">615</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        scale_fill_manual(values = c("gray50", "tan"))</pre>
+                      <pre class="language-r">              dplyr::filter(label %in% variables)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">942</td>
+                    <td class="num">616</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">943</td>
+                    <td class="num">617</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (is.numeric(var)) {</pre>
+                      <pre class="language-r">            circle_data &lt;- data.frame(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">944</td>
+                    <td class="num">618</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    validate(need(any(!is.na(var)), "No data left to visualize."))</pre>
+                      <pre class="language-r">              x = cos(seq(0, 2 * pi, length.out = 100)),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">945</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">619</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">              y = sin(seq(0, 2 * pi, length.out = 100))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">946</td>
+                    <td class="num">620</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Filter out NA</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">947</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    var &lt;- var[which(!is.na(var))]</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">948</td>
+                    <td class="num">621</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">949</td>
+                    <td class="num">622</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    validate(need(!any(is.infinite(var)), "Cannot display graph when data includes infinite values"))</pre>
+                      <pre class="language-r">            g &lt;- ggplot(pca_rot) +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">950</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">623</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">              geom_point(aes_string(x = x_axis, y = y_axis)) +</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">951</td>
+                    <td class="num">624</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (numeric_as_factor) {</pre>
+                      <pre class="language-r">              geom_label(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">952</td>
+                    <td class="num">625</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      var &lt;- factor(var)</pre>
+                      <pre class="language-r">                aes_string(x = x_axis, y = y_axis, label = "label"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">953</td>
+                    <td class="num">626</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ggplot(NULL, aes(x = var)) +</pre>
+                      <pre class="language-r">                nudge_x = 0.1, nudge_y = 0.05,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">954</td>
+                    <td class="num">627</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        geom_histogram(stat = "count")</pre>
+                      <pre class="language-r">                fontface = "bold"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">955</td>
+                    <td class="num">628</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">956</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">629</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # remove outliers</pre>
+                      <pre class="language-r">              geom_path(aes(x, y, group = 1), data = circle_data) +</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">957</td>
+                    <td class="num">630</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (outlier_definition != 0) {</pre>
+                      <pre class="language-r">              geom_point(aes(x = x, y = y), data = data.frame(x = 0, y = 0), shape = "x", size = 5) +</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">958</td>
+                    <td class="num">631</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        number_records &lt;- length(var)</pre>
+                      <pre class="language-r">              labs +</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">959</td>
+                    <td class="num">632</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        var &lt;- remove_outliers_from(var, outlier_definition)</pre>
+                      <pre class="language-r">              ggthemes +</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">960</td>
+                    <td class="num">633</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        number_outliers &lt;- number_records - length(var)</pre>
+                      <pre class="language-r">              themes</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">961</td>
+                    <td class="num">634</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        outlier_text &lt;- paste0(</pre>
+                      <pre class="language-r">            print(g)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">635</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          },</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">962</td>
+                    <td class="num">636</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          number_outliers, " outliers (",</pre>
+                      <pre class="language-r">          env = list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">963</td>
+                    <td class="num">637</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          round(number_outliers / number_records * 100, 2),</pre>
+                      <pre class="language-r">            x_axis = x_axis,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">964</td>
+                    <td class="num">638</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "% of non-missing records) not shown"</pre>
+                      <pre class="language-r">            y_axis = y_axis,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">965</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">639</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">            variables = variables,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">966</td>
+                    <td class="num">640</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        validate(need(</pre>
+                      <pre class="language-r">            ggthemes = parsed_ggplot2_args$ggtheme,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">967</td>
+                    <td class="num">641</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          length(var) &gt; 1,</pre>
+                      <pre class="language-r">            labs = `if`(is.null(parsed_ggplot2_args$labs), quote(labs()), parsed_ggplot2_args$labs),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">968</td>
+                    <td class="num">642</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "At least two data points must remain after removing outliers for this graph to be displayed"</pre>
+                      <pre class="language-r">            themes = parsed_ggplot2_args$theme</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">969</td>
+                    <td class="num">643</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ))</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">970</td>
+                    <td class="num">644</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">971</td>
+                    <td class="num">645</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ## histogram</pre>
+                      <pre class="language-r">      )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">646</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">647</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">648</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    # plot biplot ----</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">972</td>
+                    <td class="num">649</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      binwidth &lt;- get_bin_width(var)</pre>
+                      <pre class="language-r">    plot_biplot &lt;- function(base_q) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">973</td>
+                    <td class="num">650</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      p &lt;- ggplot(data = data.frame(var = var), aes(x = var, y = after_stat(count))) +</pre>
+                      <pre class="language-r">      qenv &lt;- base_q</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">651</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">974</td>
+                    <td class="num">652</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        geom_histogram(binwidth = binwidth) +</pre>
+                      <pre class="language-r">      ANL &lt;- qenv[["ANL"]] # nolint: object_name.</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">653</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">975</td>
+                    <td class="num">654</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        scale_y_continuous(</pre>
+                      <pre class="language-r">      resp_col &lt;- as.character(merged$anl_input_r()$columns_source$response)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">976</td>
+                    <td class="num">655</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          sec.axis = sec_axis(</pre>
+                      <pre class="language-r">      dat_cols &lt;- as.character(merged$anl_input_r()$columns_source$dat)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">977</td>
+                    <td class="num">656</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            trans = ~ . / nrow(data.frame(var = var)),</pre>
+                      <pre class="language-r">      x_axis &lt;- input$x_axis</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">978</td>
+                    <td class="num">657</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            labels = scales::percent,</pre>
+                      <pre class="language-r">      y_axis &lt;- input$y_axis</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">979</td>
+                    <td class="num">658</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            name = "proportion (in %)"</pre>
+                      <pre class="language-r">      variables &lt;- input$variables</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">659</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      pca &lt;- qenv[["pca"]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">980</td>
+                    <td class="num">660</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">661</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      ggtheme &lt;- input$ggtheme</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">981</td>
+                    <td class="num">662</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">663</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      rotate_xaxis_labels &lt;- input$rotate_xaxis_labels</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">664</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      alpha &lt;- input$alpha</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">665</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      size &lt;- input$size</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">666</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      font_size &lt;- input$font_size</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">982</td>
+                    <td class="num">667</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">668</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      qenv &lt;- teal.code::eval_code(</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">669</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        qenv,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">670</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">983</td>
+                    <td class="num">671</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (display_density) {</pre>
+                      <pre class="language-r">          expr = pca_rot &lt;- dplyr::as_tibble(pca$x[, c(x_axis, y_axis)]),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">984</td>
+                    <td class="num">672</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        p &lt;- p + geom_density(aes(y = after_stat(count * binwidth)))</pre>
+                      <pre class="language-r">          env = list(x_axis = x_axis, y_axis = y_axis)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">985</td>
+                    <td class="num">673</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">986</td>
+                    <td class="num">674</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">987</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">675</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (outlier_definition != 0) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">988</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">676</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        p &lt;- p + annotate(</pre>
+                      <pre class="language-r">      # rot_vars = data frame that displays arrows in the plot, need to be scaled to data</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">989</td>
+                    <td class="num">677</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          geom = "text",</pre>
+                      <pre class="language-r">      if (!is.null(input$variables)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">990</td>
+                    <td class="num">678</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          label = outlier_text,</pre>
+                      <pre class="language-r">        qenv &lt;- teal.code::eval_code(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">991</td>
+                    <td class="num">679</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          x = Inf, y = Inf,</pre>
+                      <pre class="language-r">          qenv,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">992</td>
+                    <td class="num">680</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          hjust = 1.02, vjust = 1.2,</pre>
+                      <pre class="language-r">          substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">993</td>
+                    <td class="num">681</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          color = "black",</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">994</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          # explicitly modify geom text size according</pre>
+                      <pre class="language-r">            expr = {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">995</td>
+                    <td class="num">682</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          size = ggplot2_args[["theme"]][["text"]][["size"]] / 3.5</pre>
+                      <pre class="language-r">              r &lt;- sqrt(qchisq(0.69, df = 2)) * prod(colMeans(pca_rot ^ 2)) ^ (1 / 4) # styler: off</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">996</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">683</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">              v_scale &lt;- rowSums(pca$rotation ^ 2) # styler: off</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">997</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="missed">
-                    <td class="num">998</td>
+                    <td class="num">685</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      p</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">999</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">              rot_vars &lt;- pca$rotation[, c(x_axis, y_axis)] %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1000</td>
+                    <td class="num">686</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (inherits(var, "Date") || inherits(var, "POSIXct") || inherits(var, "POSIXlt")) {</pre>
+                      <pre class="language-r">                dplyr::as_tibble(rownames = "label") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1001</td>
+                    <td class="num">687</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    var_num &lt;- as.numeric(var)</pre>
+                      <pre class="language-r">                dplyr::mutate_at(vars(c(x_axis, y_axis)), function(x) r * x / sqrt(max(v_scale)))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1002</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">688</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    binwidth &lt;- get_bin_width(var_num, 1)</pre>
+                      <pre class="language-r">            },</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1003</td>
+                    <td class="num">689</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    p &lt;- ggplot(data = data.frame(var = var), aes(x = var, y = after_stat(count))) +</pre>
+                      <pre class="language-r">            env = list(x_axis = x_axis, y_axis = y_axis)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1004</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">690</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      geom_histogram(binwidth = binwidth)</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1005</td>
+                    <td class="num">691</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">        ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1006</td>
+                    <td class="num">692</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    grid::textGrob(</pre>
+                      <pre class="language-r">          teal.code::eval_code(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1007</td>
+                    <td class="num">693</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      paste(strwrap(</pre>
+                      <pre class="language-r">            if (is.logical(pca$center) &amp;&amp; !pca$center) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1008</td>
+                    <td class="num">694</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        utils::capture.output(utils::str(var)),</pre>
+                      <pre class="language-r">              substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1009</td>
+                    <td class="num">695</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        width = .9 * grid::convertWidth(grid::unit(1, "npc"), "char", TRUE)</pre>
+                      <pre class="language-r">                expr = {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1010</td>
+                    <td class="num">696</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ), collapse = "\n"),</pre>
+                      <pre class="language-r">                  rot_vars &lt;- rot_vars %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1011</td>
+                    <td class="num">697</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      x = grid::unit(1, "line"), y = grid::unit(1, "npc") - grid::unit(1, "line"), just = c("left", "top")</pre>
+                      <pre class="language-r">                    tibble::column_to_rownames("label") %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1012</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">698</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">                    sweep(1, apply(ANL[keep_columns], 2, mean, na.rm = TRUE)) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1013</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">699</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">                    tibble::rownames_to_column("label") %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1014</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">700</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                    dplyr::mutate(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1015</td>
+                    <td class="num">701</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  dev_ggplot2_args &lt;- teal.widgets::ggplot2_args(</pre>
+                      <pre class="language-r">                      xstart = mean(pca$x[, x_axis], na.rm = TRUE),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1016</td>
+                    <td class="num">702</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    labs = list(x = var_lab)</pre>
+                      <pre class="language-r">                      ystart = mean(pca$x[, y_axis], na.rm = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1017</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="never">
-                    <td class="num">1018</td>
+                    <td class="num">704</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ###</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">1019</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  all_ggplot2_args &lt;- teal.widgets::resolve_ggplot2_args(</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">1020</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    ggplot2_args,</pre>
+                      <pre class="language-r">                },</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1021</td>
+                    <td class="num">705</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    module_plot = dev_ggplot2_args</pre>
+                      <pre class="language-r">                env = list(x_axis = x_axis, y_axis = y_axis)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1022</td>
+                    <td class="num">706</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">              )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1023</td>
+                    <td class="num">707</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">1024</td>
+                    <td class="num">708</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.ggplot(plot_main)) {</pre>
+                      <pre class="language-r">              quote(rot_vars &lt;- rot_vars %&gt;% dplyr::mutate(xstart = 0, ystart = 0))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1025</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">709</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (is.numeric(var) &amp;&amp; !numeric_as_factor) {</pre>
+                      <pre class="language-r">            }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1026</td>
+                    <td class="num">710</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # numeric not as factor</pre>
+                      <pre class="language-r">          ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1027</td>
+                    <td class="num">711</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      plot_main &lt;- plot_main +</pre>
+                      <pre class="language-r">          teal.code::eval_code(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1028</td>
+                    <td class="num">712</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        theme_light() +</pre>
+                      <pre class="language-r">            substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1029</td>
+                    <td class="num">713</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        list(</pre>
+                      <pre class="language-r">              expr = rot_vars &lt;- rot_vars %&gt;% dplyr::filter(label %in% variables),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1030</td>
+                    <td class="num">714</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          labs = do.call("labs", all_ggplot2_args$labs),</pre>
+                      <pre class="language-r">              env = list(variables = variables)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1031</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">715</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          theme = do.call("theme", all_ggplot2_args$theme)</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1032</td>
+                    <td class="num">716</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1033</td>
+                    <td class="num">717</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">1034</td>
+                    <td class="num">718</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # factor low number of levels OR numeric as factor OR Date</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1035</td>
+                    <td class="num">719</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      plot_main &lt;- plot_main +</pre>
+                      <pre class="language-r">      pca_plot_biplot_expr &lt;- list(quote(ggplot()))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1036</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">720</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        theme_light() +</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1037</td>
+                    <td class="num">721</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        list(</pre>
+                      <pre class="language-r">      if (length(resp_col) == 0) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1038</td>
+                    <td class="num">722</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          labs = do.call("labs", all_ggplot2_args$labs),</pre>
+                      <pre class="language-r">        pca_plot_biplot_expr &lt;- c(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1039</td>
+                    <td class="num">723</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          theme = do.call("theme", all_ggplot2_args$theme)</pre>
+                      <pre class="language-r">          pca_plot_biplot_expr,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1040</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">724</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">          substitute(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1041</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">            geom_point(aes_string(x = x_axis, y = y_axis), data = pca_rot, alpha = alpha, size = size),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1042</td>
+                    <td class="num">726</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    plot_main &lt;- ggplotGrob(plot_main)</pre>
+                      <pre class="language-r">            list(x_axis = input$x_axis, y_axis = input$y_axis, alpha = input$alpha, size = input$size)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1043</td>
+                    <td class="num">727</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1044</td>
+                    <td class="num">728</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">1045</td>
+                    <td class="num">729</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  grid::grid.draw(plot_main)</pre>
+                      <pre class="language-r">        dev_labs &lt;- list()</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">730</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1046</td>
+                    <td class="num">731</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  plot_main</pre>
+                      <pre class="language-r">        rp_keys &lt;- setdiff(colnames(ANL), as.character(unlist(merged$anl_input_r()$columns_source)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1047</td>
+                    <td class="num">732</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1048</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">733</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        response &lt;- ANL[[resp_col]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1049</td>
+                    <td class="num">734</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">is_num_var_short &lt;- function(.unique_records_for_factor, input, data_for_analysis) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1050</td>
+                    <td class="num">735</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  length(unique(data_for_analysis()$data)) &lt; .unique_records_for_factor &amp;&amp; !is.null(input$numeric_as_factor)</pre>
+                      <pre class="language-r">        aes_biplot &lt;- substitute(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1051</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">736</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">          aes_string(x = x_axis, y = y_axis, color = "response"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1052</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">737</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          env = list(x_axis = x_axis, y_axis = y_axis)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1053</td>
+                    <td class="num">738</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Validates the variable browser inputs</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1054</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">1055</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">740</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param input (`session$input`) the shiny session input</pre>
+                      <pre class="language-r">        qenv &lt;- teal.code::eval_code(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1056</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">741</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param plot_var (`list`) list of a data frame and an array of variable names</pre>
+                      <pre class="language-r">          qenv,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1057</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">742</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param data (`tdata`) the datasets passed to the module</pre>
+                      <pre class="language-r">          substitute(response &lt;- ANL[[resp_col]], env = list(resp_col = resp_col))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1058</td>
+                    <td class="num">743</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1059</td>
+                    <td class="num">744</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @returns `logical` TRUE if validations pass; a Shiny validation error otherwise</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1060</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">745</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">        dev_labs &lt;- list(color = varname_w_label(resp_col, ANL))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1061</td>
+                    <td class="num">746</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">validate_input &lt;- function(input, plot_var, data) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1062</td>
+                    <td class="num">747</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  reactive({</pre>
+                      <pre class="language-r">        scales_biplot &lt;-</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1063</td>
+                    <td class="num">748</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dataset_name &lt;- req(input$tabset_panel)</pre>
+                      <pre class="language-r">          if (is.character(response) || is.factor(response) || (is.numeric(response) &amp;&amp; length(unique(response)) &lt;= 6)) { # nolint: line_length.</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1064</td>
+                    <td class="num">749</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    varname &lt;- plot_var$variable[[dataset_name]]</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">1065</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">            qenv &lt;- teal.code::eval_code(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1066</td>
+                    <td class="num">750</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    validate(need(dataset_name, "No data selected"))</pre>
+                      <pre class="language-r">              qenv,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1067</td>
+                    <td class="num">751</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    validate(need(varname, "No variable selected"))</pre>
+                      <pre class="language-r">              quote(pca_rot$response &lt;- as.factor(response))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1068</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">752</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    df &lt;- data()[[dataset_name]]</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1069</td>
+                    <td class="num">753</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    teal::validate_has_data(df, 1)</pre>
+                      <pre class="language-r">            quote(scale_color_brewer(palette = "Dark2"))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1070</td>
+                    <td class="num">754</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    teal::validate_has_variable(varname = varname, data = df, "Variable not available")</pre>
+                      <pre class="language-r">          } else if (inherits(response, "Date")) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1071</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">755</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">            qenv &lt;- teal.code::eval_code(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1072</td>
+                    <td class="num">756</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    TRUE</pre>
+                      <pre class="language-r">              qenv,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1073</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">757</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
+                      <pre class="language-r">              quote(pca_rot$response &lt;- numeric(response))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1074</td>
+                    <td class="num">758</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1075</td>
+                    <td class="num">759</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1076</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">get_plotted_data &lt;- function(input, plot_var, data) {</pre>
-                    </td>
-                  </tr>
                   <tr class="missed">
-                    <td class="num">1077</td>
+                    <td class="num">760</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  dataset_name &lt;- input$tabset_panel</pre>
+                      <pre class="language-r">            quote(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1078</td>
+                    <td class="num">761</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  varname &lt;- plot_var$variable[[dataset_name]]</pre>
+                      <pre class="language-r">              scale_color_gradient(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1079</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  df &lt;- data()[[dataset_name]]</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">1080</td>
-                    <td class="coverage"></td>
+                    <td class="num">762</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                low = c(getOption("ggplot2.discrete.colour")[2], "darkred")[1],</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1081</td>
+                    <td class="num">763</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  var_description &lt;- teal.data::col_labels(df)[[varname]]</pre>
+                      <pre class="language-r">                high = c(getOption("ggplot2.discrete.colour"), "lightblue")[1],</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1082</td>
+                    <td class="num">764</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  list(data = df[[varname]], var_description = var_description)</pre>
+                      <pre class="language-r">                labels = function(x) as.Date(x, origin = "1970-01-01")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1083</td>
+                    <td class="num">765</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">              )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1084</td>
+                    <td class="num">766</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1085</td>
+                    <td class="num">767</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Renders the left-hand side `tabset` panel of the module</pre>
+                      <pre class="language-r">          } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1086</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">768</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">            qenv &lt;- teal.code::eval_code(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1087</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">769</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param datanames (`character`) the name of the dataset</pre>
+                      <pre class="language-r">              qenv,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1088</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">770</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param parent_dataname (`character`) the name of a parent `dataname` to filter out variables from</pre>
+                      <pre class="language-r">              quote(pca_rot$response &lt;- response)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1089</td>
+                    <td class="num">771</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param data (`tdata`) the object containing all datasets</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1090</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">772</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param input (`session$input`) the shiny session input</pre>
+                      <pre class="language-r">            quote(scale_color_gradient(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1091</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">773</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param output (`session$output`) the shiny session output</pre>
+                      <pre class="language-r">              low = c(getOption("ggplot2.discrete.colour")[2], "darkred")[1],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1092</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">774</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param columns_names (`environment`) the environment containing bindings for each dataset</pre>
+                      <pre class="language-r">              high = c(getOption("ggplot2.discrete.colour"), "lightblue")[1]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1093</td>
+                    <td class="num">775</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param plot_var (`list`) the list containing the currently selected dataset (tab) and its column names</pre>
+                      <pre class="language-r">            ))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1094</td>
+                    <td class="num">776</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">1095</td>
+                    <td class="num">777</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">render_tabset_panel_content &lt;- function(datanames, parent_dataname, output, data, input, columns_names, plot_var) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1096</td>
+                    <td class="num">778</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lapply(datanames, render_single_tab,</pre>
+                      <pre class="language-r">        pca_plot_biplot_expr &lt;- c(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1097</td>
+                    <td class="num">779</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    input = input,</pre>
+                      <pre class="language-r">          pca_plot_biplot_expr,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1098</td>
+                    <td class="num">780</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    output = output,</pre>
+                      <pre class="language-r">          substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1099</td>
+                    <td class="num">781</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    data = data,</pre>
+                      <pre class="language-r">            geom_point(aes_biplot, data = pca_rot, alpha = alpha, size = size),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1100</td>
+                    <td class="num">782</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    parent_dataname = parent_dataname,</pre>
+                      <pre class="language-r">            env = list(aes_biplot = aes_biplot, alpha = alpha, size = size)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1101</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">783</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    columns_names = columns_names,</pre>
+                      <pre class="language-r">          ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1102</td>
+                    <td class="num">784</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    plot_var = plot_var</pre>
+                      <pre class="language-r">          scales_biplot</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1103</td>
+                    <td class="num">785</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1104</td>
+                    <td class="num">786</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1105</td>
+                    <td class="num">787</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1106</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' Renders a single tab in the left-hand side tabset panel</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">1107</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">788</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      if (!is.null(input$variables)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1108</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">789</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description</pre>
+                      <pre class="language-r">        pca_plot_biplot_expr &lt;- c(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1109</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">790</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Renders a single tab in the left-hand side tabset panel. The rendered tab contains</pre>
+                      <pre class="language-r">          pca_plot_biplot_expr,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1110</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">791</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' information about one dataset out of many presented in the module.</pre>
+                      <pre class="language-r">          substitute(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1111</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">792</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">            geom_segment(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1112</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">793</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param dataset_name (`character`) the name of the dataset contained in the rendered tab</pre>
+                      <pre class="language-r">              aes_string(x = "xstart", y = "ystart", xend = x_axis, yend = y_axis),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1113</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">794</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param parent_dataname (`character`) the name of a parent `dataname` to filter out variables from</pre>
+                      <pre class="language-r">              data = rot_vars,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1114</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">795</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams render_tabset_panel_content</pre>
+                      <pre class="language-r">              lineend = "round", linejoin = "round",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1115</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">796</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">              arrow = grid::arrow(length = grid::unit(0.5, "cm"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1116</td>
+                    <td class="num">797</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">render_single_tab &lt;- function(dataset_name, parent_dataname, output, data, input, columns_names, plot_var) {</pre>
+                      <pre class="language-r">            ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1117</td>
+                    <td class="num">798</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  render_tab_header(dataset_name, output, data)</pre>
+                      <pre class="language-r">            env = list(x_axis = x_axis, y_axis = y_axis)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1118</td>
+                    <td class="num">799</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">1119</td>
+                    <td class="num">800</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  render_tab_table(</pre>
+                      <pre class="language-r">          substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1120</td>
+                    <td class="num">801</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dataset_name = dataset_name,</pre>
+                      <pre class="language-r">            geom_label(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1121</td>
+                    <td class="num">802</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    parent_dataname = parent_dataname,</pre>
+                      <pre class="language-r">              aes_string(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1122</td>
+                    <td class="num">803</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    output = output,</pre>
+                      <pre class="language-r">                x = x_axis,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1123</td>
+                    <td class="num">804</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    data = data,</pre>
+                      <pre class="language-r">                y = y_axis,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1124</td>
+                    <td class="num">805</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    input = input,</pre>
+                      <pre class="language-r">                label = "label"</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1125</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">806</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    columns_names = columns_names,</pre>
+                      <pre class="language-r">              ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1126</td>
+                    <td class="num">807</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    plot_var = plot_var</pre>
+                      <pre class="language-r">              data = rot_vars,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1127</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">808</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">              nudge_y = 0.1,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1128</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">809</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">              fontface = "bold"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1129</td>
+                    <td class="num">810</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">            ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1130</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">811</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Renders the text headlining a single tab in the left-hand side tabset panel</pre>
+                      <pre class="language-r">            env = list(x_axis = x_axis, y_axis = y_axis)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1131</td>
+                    <td class="num">812</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1132</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">813</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param dataset_name (`character`) the name of the dataset of the tab</pre>
+                      <pre class="language-r">          quote(geom_point(aes(x = xstart, y = ystart), data = rot_vars, shape = "x", size = 5))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1133</td>
+                    <td class="num">814</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams render_tabset_panel_content</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1134</td>
+                    <td class="num">815</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">1135</td>
+                    <td class="num">816</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">render_tab_header &lt;- function(dataset_name, output, data) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">1136</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  dataset_ui_id &lt;- paste0("dataset_summary_", dataset_name)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1137</td>
+                    <td class="num">817</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  output[[dataset_ui_id]] &lt;- renderText({</pre>
+                      <pre class="language-r">      angle &lt;- ifelse(isTRUE(rotate_xaxis_labels), 45, 0)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1138</td>
+                    <td class="num">818</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    df &lt;- data()[[dataset_name]]</pre>
+                      <pre class="language-r">      hjust &lt;- ifelse(isTRUE(rotate_xaxis_labels), 1, 0.5)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1139</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">819</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    join_keys &lt;- join_keys(data())</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1140</td>
+                    <td class="num">820</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (!is.null(join_keys)) {</pre>
+                      <pre class="language-r">      dev_ggplot2_args &lt;- teal.widgets::ggplot2_args(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1141</td>
+                    <td class="num">821</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      key &lt;- join_keys(data())[dataset_name, dataset_name]</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">1142</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    } else {</pre>
+                      <pre class="language-r">        labs = dev_labs,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1143</td>
+                    <td class="num">822</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      key &lt;- NULL</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">1144</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">        theme = list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1145</td>
+                    <td class="num">823</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    sprintf(</pre>
+                      <pre class="language-r">          text = substitute(element_text(size = font_size), list(font_size = font_size)),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1146</td>
+                    <td class="num">824</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Dataset with %s unique key rows and %s variables",</pre>
+                      <pre class="language-r">          axis.text.x = substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1147</td>
+                    <td class="num">825</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      nrow(unique(`if`(length(key) &gt; 0, df[, key, drop = FALSE], df))),</pre>
+                      <pre class="language-r">            element_text(angle = angle_val, hjust = hjust_val),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1148</td>
+                    <td class="num">826</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ncol(df)</pre>
+                      <pre class="language-r">            list(angle_val = angle, hjust_val = hjust)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1149</td>
+                    <td class="num">827</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1150</td>
+                    <td class="num">828</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1151</td>
+                    <td class="num">829</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1152</td>
+                    <td class="num">830</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1153</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">831</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Renders the table for a single dataset in the left-hand side tabset panel</pre>
+                      <pre class="language-r">      all_ggplot2_args &lt;- teal.widgets::resolve_ggplot2_args(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1154</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">832</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        user_plot = ggplot2_args[["Biplot"]],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1155</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">833</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description</pre>
+                      <pre class="language-r">        user_default = ggplot2_args$default,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1156</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">834</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The table contains column names, column labels,</pre>
+                      <pre class="language-r">        module_plot = dev_ggplot2_args</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1157</td>
+                    <td class="num">835</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' small summary about NA values and `sparkline` (if appropriate).</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1158</td>
+                    <td class="num">836</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1159</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">837</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param dataset_name (`character`) the name of the dataset</pre>
+                      <pre class="language-r">      parsed_ggplot2_args &lt;- teal.widgets::parse_ggplot2_args(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1160</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">838</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param parent_dataname (`character`) the name of a parent `dataname` to filter out variables from</pre>
+                      <pre class="language-r">        all_ggplot2_args,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1161</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">839</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams render_tabset_panel_content</pre>
+                      <pre class="language-r">        ggtheme = ggtheme</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1162</td>
+                    <td class="num">840</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">1163</td>
+                    <td class="num">841</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">render_tab_table &lt;- function(dataset_name, parent_dataname, output, data, input, columns_names, plot_var) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1164</td>
+                    <td class="num">842</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  table_ui_id &lt;- paste0("variable_browser_", dataset_name)</pre>
+                      <pre class="language-r">      pca_plot_biplot_expr &lt;- c(</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">843</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        pca_plot_biplot_expr,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">844</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        parsed_ggplot2_args</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1165</td>
+                    <td class="num">845</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">846</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1166</td>
+                    <td class="num">847</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  output[[table_ui_id]] &lt;- DT::renderDataTable({</pre>
+                      <pre class="language-r">      teal.code::eval_code(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1167</td>
+                    <td class="num">848</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    df &lt;- data()[[dataset_name]]</pre>
+                      <pre class="language-r">        qenv,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1168</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">849</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1169</td>
+                    <td class="num">850</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    get_vars_df &lt;- function(input, dataset_name, parent_name, data) {</pre>
+                      <pre class="language-r">          expr = {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1170</td>
+                    <td class="num">851</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      data_cols &lt;- colnames(df)</pre>
+                      <pre class="language-r">            g &lt;- plot_call</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1171</td>
+                    <td class="num">852</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (isTRUE(input$show_parent_vars)) {</pre>
+                      <pre class="language-r">            print(g)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1172</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">853</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        data_cols</pre>
+                      <pre class="language-r">          },</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1173</td>
+                    <td class="num">854</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else if (dataset_name != parent_name &amp;&amp; parent_name %in% names(data)) {</pre>
+                      <pre class="language-r">          env = list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1174</td>
+                    <td class="num">855</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        setdiff(data_cols, colnames(data()[[parent_name]]))</pre>
+                      <pre class="language-r">            plot_call = Reduce(function(x, y) call("+", x, y), pca_plot_biplot_expr)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1175</td>
+                    <td class="num">856</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">1176</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">857</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        data_cols</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1177</td>
+                    <td class="num">858</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1178</td>
+                    <td class="num">859</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1179</td>
+                    <td class="num">860</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1180</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">861</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (length(parent_dataname) &gt; 0) {</pre>
+                      <pre class="language-r">    # plot pc_var ----</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1181</td>
+                    <td class="num">862</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      df_vars &lt;- get_vars_df(input, dataset_name, parent_dataname, data)</pre>
+                      <pre class="language-r">    plot_pc_var &lt;- function(base_q) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1182</td>
+                    <td class="num">863</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      df &lt;- df[df_vars]</pre>
+                      <pre class="language-r">      pc &lt;- input$pc</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1183</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">864</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">      ggtheme &lt;- input$ggtheme</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1184</td>
+                    <td class="num">865</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1185</td>
+                    <td class="num">866</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (is.null(df) || ncol(df) == 0) {</pre>
+                      <pre class="language-r">      rotate_xaxis_labels &lt;- input$rotate_xaxis_labels</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1186</td>
+                    <td class="num">867</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      columns_names[[dataset_name]] &lt;- character(0)</pre>
+                      <pre class="language-r">      font_size &lt;- input$font_size</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1187</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">868</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      df_output &lt;- data.frame(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1188</td>
+                    <td class="num">869</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        Type = character(0),</pre>
+                      <pre class="language-r">      angle &lt;- ifelse(rotate_xaxis_labels, 45, 0)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1189</td>
+                    <td class="num">870</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        Variable = character(0),</pre>
+                      <pre class="language-r">      hjust &lt;- ifelse(rotate_xaxis_labels, 1, 0.5)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1190</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">871</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        Label = character(0),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1191</td>
+                    <td class="num">872</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        Missings = character(0),</pre>
+                      <pre class="language-r">      dev_ggplot2_args &lt;- teal.widgets::ggplot2_args(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1192</td>
+                    <td class="num">873</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        Sparklines = character(0),</pre>
+                      <pre class="language-r">        theme = list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1193</td>
+                    <td class="num">874</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        stringsAsFactors = FALSE</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">1194</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">          text = substitute(element_text(size = font_size), list(font_size = font_size)),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1195</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">875</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else {</pre>
+                      <pre class="language-r">          axis.text.x = substitute(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1196</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">876</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # extract data variable labels</pre>
+                      <pre class="language-r">            element_text(angle = angle_val, hjust = hjust_val),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1197</td>
+                    <td class="num">877</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      labels &lt;- teal.data::col_labels(df)</pre>
+                      <pre class="language-r">            list(angle_val = angle, hjust_val = hjust)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1198</td>
+                    <td class="num">878</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">1199</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      columns_names[[dataset_name]] &lt;- names(labels)</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1200</td>
+                    <td class="num">879</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1201</td>
+                    <td class="num">880</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # calculate number of missing values</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1202</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">881</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      missings &lt;- vapply(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1203</td>
+                    <td class="num">882</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        df,</pre>
+                      <pre class="language-r">      all_ggplot2_args &lt;- teal.widgets::resolve_ggplot2_args(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1204</td>
+                    <td class="num">883</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        var_missings_info,</pre>
+                      <pre class="language-r">        user_plot = ggplot2_args[["Eigenvector plot"]],</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1205</td>
+                    <td class="num">884</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        FUN.VALUE = character(1),</pre>
+                      <pre class="language-r">        user_default = ggplot2_args$default,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1206</td>
+                    <td class="num">885</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        USE.NAMES = FALSE</pre>
+                      <pre class="language-r">        module_plot = dev_ggplot2_args</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1207</td>
+                    <td class="num">886</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1208</td>
+                    <td class="num">887</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1209</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      # get icons proper for the data types</pre>
-                    </td>
-                  </tr>
                   <tr class="missed">
-                    <td class="num">1210</td>
+                    <td class="num">888</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      icons &lt;- vapply(df, function(x) class(x)[1L], character(1L))</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">1211</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      parsed_ggplot2_args &lt;- teal.widgets::parse_ggplot2_args(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1212</td>
+                    <td class="num">889</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      join_keys &lt;- join_keys(data())</pre>
+                      <pre class="language-r">        all_ggplot2_args,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1213</td>
+                    <td class="num">890</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (!is.null(join_keys)) {</pre>
+                      <pre class="language-r">        ggtheme = ggtheme</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1214</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">891</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        icons[intersect(join_keys[dataset_name, dataset_name], colnames(df))] &lt;- "primary_key"</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1215</td>
+                    <td class="num">892</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">1216</td>
+                    <td class="num">893</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      icons &lt;- variable_type_icons(icons)</pre>
+                      <pre class="language-r">      ggplot_exprs &lt;- c(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1217</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">894</td>
+                    <td class="coverage">!</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">1218</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">895</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # generate sparklines</pre>
+                      <pre class="language-r">          quote(ggplot(pca_rot)),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1219</td>
+                    <td class="num">896</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      sparklines_html &lt;- vapply(</pre>
+                      <pre class="language-r">          substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1220</td>
+                    <td class="num">897</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        df,</pre>
+                      <pre class="language-r">            geom_bar(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1221</td>
+                    <td class="num">898</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        create_sparklines,</pre>
+                      <pre class="language-r">              aes_string(x = "Variable", y = pc),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1222</td>
+                    <td class="num">899</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        FUN.VALUE = character(1),</pre>
+                      <pre class="language-r">              stat = "identity",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1223</td>
+                    <td class="num">900</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        USE.NAMES = FALSE</pre>
+                      <pre class="language-r">              color = "black",</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">901</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">              fill = c(getOption("ggplot2.discrete.colour"), "lightblue")[1]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1224</td>
+                    <td class="num">902</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">903</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            env = list(pc = pc)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1225</td>
+                    <td class="num">904</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">1226</td>
+                    <td class="num">905</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      df_output &lt;- data.frame(</pre>
+                      <pre class="language-r">          substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1227</td>
+                    <td class="num">906</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        Type = icons,</pre>
+                      <pre class="language-r">            geom_text(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1228</td>
+                    <td class="num">907</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        Variable = names(labels),</pre>
+                      <pre class="language-r">              aes(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1229</td>
+                    <td class="num">908</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        Label = labels,</pre>
+                      <pre class="language-r">                x = Variable,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1230</td>
+                    <td class="num">909</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        Missings = missings,</pre>
+                      <pre class="language-r">                y = pc_name,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1231</td>
+                    <td class="num">910</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        Sparklines = sparklines_html,</pre>
+                      <pre class="language-r">                label = round(pc_name, 3),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1232</td>
+                    <td class="num">911</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        stringsAsFactors = FALSE</pre>
+                      <pre class="language-r">                vjust = ifelse(pc_name &gt; 0, -0.5, 1.3)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1233</td>
+                    <td class="num">912</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">              )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1234</td>
+                    <td class="num">913</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">914</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            env = list(pc_name = as.name(pc))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1235</td>
+                    <td class="num">915</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1236</td>
+                    <td class="num">916</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Select row 1 as default / fallback</pre>
+                      <pre class="language-r">        ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1237</td>
+                    <td class="num">917</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    selected_ix &lt;- 1</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">1238</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    # Define starting page index (base-0 index of the first item on page</pre>
+                      <pre class="language-r">        parsed_ggplot2_args$labs,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1239</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">918</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #  note: in many cases it's not the item itself</pre>
+                      <pre class="language-r">        parsed_ggplot2_args$ggtheme,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1240</td>
+                    <td class="num">919</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    selected_page_ix &lt;- 0</pre>
+                      <pre class="language-r">        parsed_ggplot2_args$theme</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1241</td>
+                    <td class="num">920</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1242</td>
+                    <td class="num">921</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Retrieve current selected variable if any</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1243</td>
+                    <td class="num">922</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    isolated_variable &lt;- shiny::isolate(plot_var$variable[[dataset_name]])</pre>
+                      <pre class="language-r">      teal.code::eval_code(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1244</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">923</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        base_q,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1245</td>
+                    <td class="num">924</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (!is.null(isolated_variable)) {</pre>
+                      <pre class="language-r">        substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1246</td>
+                    <td class="num">925</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      index &lt;- which(columns_names[[dataset_name]] == isolated_variable)[1]</pre>
+                      <pre class="language-r">          expr = {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1247</td>
+                    <td class="num">926</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (!is.null(index) &amp;&amp; !is.na(index) &amp;&amp; length(index) &gt; 0) selected_ix &lt;- index</pre>
+                      <pre class="language-r">            pca_rot &lt;- pca$rotation[, pc, drop = FALSE] %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1248</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">927</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">              dplyr::as_tibble(rownames = "Variable")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1249</td>
+                    <td class="num">928</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1250</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">929</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Retrieve the index of the first item of the current page</pre>
+                      <pre class="language-r">            g &lt;- plot_call</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1251</td>
+                    <td class="num">930</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #  it works with varying number of entries on the page (10, 25, ...)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1252</td>
+                    <td class="num">931</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    table_id_sel &lt;- paste0("variable_browser_", dataset_name, "_state")</pre>
+                      <pre class="language-r">            print(g)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">932</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          },</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1253</td>
+                    <td class="num">933</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dt_state &lt;- shiny::isolate(input[[table_id_sel]])</pre>
+                      <pre class="language-r">          env = list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1254</td>
+                    <td class="num">934</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (selected_ix != 1 &amp;&amp; !is.null(dt_state)) {</pre>
+                      <pre class="language-r">            pc = pc,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1255</td>
+                    <td class="num">935</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      selected_page_ix &lt;- floor(selected_ix / dt_state$length) * dt_state$length</pre>
+                      <pre class="language-r">            plot_call = Reduce(function(x, y) call("+", x, y), ggplot_exprs)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1256</td>
+                    <td class="num">936</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1257</td>
+                    <td class="num">937</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">1258</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    DT::datatable(</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">1259</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      df_output,</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1260</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">938</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      escape = FALSE,</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1261</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">939</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      rownames = FALSE,</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1262</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">940</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      selection = list(mode = "single", target = "row", selected = selected_ix),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1263</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">941</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      options = list(</pre>
+                      <pre class="language-r">    # plot final ----</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1264</td>
+                    <td class="num">942</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        fnDrawCallback = htmlwidgets::JS("function() { HTMLWidgets.staticRender(); }"),</pre>
+                      <pre class="language-r">    output_q &lt;- reactive({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1265</td>
+                    <td class="num">943</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        pageLength = input[[paste0(table_ui_id, "_rows")]],</pre>
+                      <pre class="language-r">      req(computation())</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1266</td>
+                    <td class="num">944</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        displayStart = selected_page_ix</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">1267</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">1268</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">      teal::validate_inputs(iv_r())</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1269</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">945</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
+                      <pre class="language-r">      teal::validate_inputs(iv_extra, header = "Plot settings are required")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1270</td>
+                    <td class="num">946</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1271</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">947</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      switch(input$plot_type,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1272</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">948</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Creates observers updating the currently selected column</pre>
+                      <pre class="language-r">        "Elbow plot" = plot_elbow(computation()),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1273</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">949</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        "Circle plot" = plot_circle(computation()),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1274</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">950</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description</pre>
+                      <pre class="language-r">        "Biplot" = plot_biplot(computation()),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1275</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">951</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The created observers update the column currently selected in the left-hand side</pre>
+                      <pre class="language-r">        "Eigenvector plot" = plot_pc_var(computation()),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1276</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">952</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' tabset panel.</pre>
+                      <pre class="language-r">        stop("Unknown plot")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1277</td>
+                    <td class="num">953</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1278</td>
+                    <td class="num">954</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">1279</td>
+                    <td class="num">955</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Creates an observer for each dataset (each tab in the tabset panel).</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1280</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">956</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    plot_r &lt;- reactive({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1281</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">957</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams render_tabset_panel_content</pre>
+                      <pre class="language-r">      output_q()[["g"]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1282</td>
+                    <td class="num">958</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">1283</td>
+                    <td class="num">959</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">establish_updating_selection &lt;- function(datanames, input, plot_var, columns_names) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1284</td>
+                    <td class="num">960</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lapply(datanames, function(dataset_name) {</pre>
+                      <pre class="language-r">    pws &lt;- teal.widgets::plot_with_settings_srv(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1285</td>
+                    <td class="num">961</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    table_ui_id &lt;- paste0("variable_browser_", dataset_name)</pre>
+                      <pre class="language-r">      id = "pca_plot",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1286</td>
+                    <td class="num">962</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    table_id_sel &lt;- paste0(table_ui_id, "_rows_selected")</pre>
+                      <pre class="language-r">      plot_r = plot_r,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1287</td>
+                    <td class="num">963</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    observeEvent(input[[table_id_sel]], {</pre>
+                      <pre class="language-r">      height = plot_height,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1288</td>
+                    <td class="num">964</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      plot_var$data &lt;- dataset_name</pre>
+                      <pre class="language-r">      width = plot_width,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1289</td>
+                    <td class="num">965</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      plot_var$variable[[dataset_name]] &lt;- columns_names[[dataset_name]][input[[table_id_sel]]]</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">1290</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">1291</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
+                      <pre class="language-r">      graph_align = "center"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1292</td>
+                    <td class="num">966</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1293</td>
+                    <td class="num">967</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1294</td>
+                    <td class="num">968</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">get_bin_width &lt;- function(x_vec, scaling_factor = 2) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">1295</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  x_vec &lt;- x_vec[!is.na(x_vec)]</pre>
+                      <pre class="language-r">    # tables ----</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1296</td>
+                    <td class="num">969</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  qntls &lt;- stats::quantile(x_vec, probs = c(0.1, 0.25, 0.75, 0.9), type = 2)</pre>
+                      <pre class="language-r">    output$tbl_importance &lt;- renderTable(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1297</td>
+                    <td class="num">970</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  iqr &lt;- qntls[3] - qntls[2]</pre>
+                      <pre class="language-r">      expr = {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1298</td>
+                    <td class="num">971</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  binwidth &lt;- max(scaling_factor * iqr / length(x_vec) ^ (1 / 3), sqrt(qntls[4] - qntls[1])) # styler: off</pre>
+                      <pre class="language-r">        req("importance" %in% input$tables_display, computation())</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1299</td>
+                    <td class="num">972</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  binwidth &lt;- ifelse(binwidth == 0, 1, binwidth)</pre>
+                      <pre class="language-r">        computation()[["tbl_importance"]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1300</td>
+                    <td class="num">973</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # to ensure at least two bins when variable span is very small</pre>
+                      <pre class="language-r">      },</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1301</td>
+                    <td class="num">974</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x_span &lt;- diff(range(x_vec))</pre>
+                      <pre class="language-r">      bordered = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1302</td>
+                    <td class="num">975</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (isTRUE(x_span / binwidth &gt;= 2)) binwidth else x_span / 2</pre>
+                      <pre class="language-r">      align = "c",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1303</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">976</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">      digits = 3</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1304</td>
+                    <td class="num">977</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1305</td>
+                    <td class="num">978</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">custom_sparkline_formatter &lt;- function(labels, counts) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1306</td>
+                    <td class="num">979</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  htmlwidgets::JS(</pre>
+                      <pre class="language-r">    output$tbl_importance_ui &lt;- renderUI({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1307</td>
+                    <td class="num">980</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    sprintf(</pre>
+                      <pre class="language-r">      req("importance" %in% input$tables_display)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1308</td>
+                    <td class="num">981</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "function(sparkline, options, field) {</pre>
+                      <pre class="language-r">      div(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1309</td>
+                    <td class="num">982</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        return 'ID: ' + %s[field[0].offset] + '&lt;br&gt;' + 'Count: ' + %s[field[0].offset];</pre>
+                      <pre class="language-r">        align = "center",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1310</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">983</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }",</pre>
+                      <pre class="language-r">        tags$h4("Principal components importance"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1311</td>
+                    <td class="num">984</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      jsonlite::toJSON(labels),</pre>
+                      <pre class="language-r">        tableOutput(session$ns("tbl_importance")),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">1312</td>
+                    <td class="num">985</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      jsonlite::toJSON(counts)</pre>
+                      <pre class="language-r">        hr()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1313</td>
+                    <td class="num">986</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1314</td>
+                    <td class="num">987</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1315</td>
+                    <td class="num">988</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1316</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">989</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    output$tbl_eigenvector &lt;- renderTable(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1317</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">990</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Removes the outlier observation from an array</pre>
+                      <pre class="language-r">      expr = {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1318</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">991</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        req("eigenvector" %in% input$tables_display, req(computation()))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1319</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">992</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param var (`numeric`) a numeric vector</pre>
+                      <pre class="language-r">        computation()[["tbl_eigenvector"]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1320</td>
+                    <td class="num">993</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param outlier_definition (`numeric`) if `0` then no outliers are removed, otherwise</pre>
+                      <pre class="language-r">      },</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1321</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">994</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   outliers (those more than `outlier_definition*IQR below/above Q1/Q3`) are removed</pre>
+                      <pre class="language-r">      bordered = TRUE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1322</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">995</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @returns (`numeric`) vector without the outlier values</pre>
+                      <pre class="language-r">      align = "c",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1323</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">996</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">      digits = 3</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1324</td>
+                    <td class="num">997</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">remove_outliers_from &lt;- function(var, outlier_definition) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">1325</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  if (outlier_definition == 0) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">1326</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    return(var)</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1327</td>
+                    <td class="num">998</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">1328</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">999</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  q1_q3 &lt;- stats::quantile(var, probs = c(0.25, 0.75), type = 2, na.rm = TRUE)</pre>
+                      <pre class="language-r">    output$tbl_eigenvector_ui &lt;- renderUI({</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1329</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1000</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  iqr &lt;- q1_q3[2] - q1_q3[1]</pre>
+                      <pre class="language-r">      req("eigenvector" %in% input$tables_display)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1330</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1001</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  var[var &gt;= q1_q3[1] - outlier_definition * iqr &amp; var &lt;= q1_q3[2] + outlier_definition * iqr]</pre>
+                      <pre class="language-r">      div(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1331</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1002</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">        align = "center",</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/tm_a_regression.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">1003</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Scatterplot and Regression Model</pre>
+                      <pre class="language-r">        tags$h4("Eigenvectors"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">2</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1004</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @md</pre>
+                      <pre class="language-r">        tableOutput(session$ns("tbl_eigenvector")),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">3</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1005</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        hr()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">1006</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams teal::module</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">1007</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams shared_params</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">1008</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param regressor (`data_extract_spec` or `list` of multiple `data_extract_spec`)</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">1009</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  Regressor variables from an incoming dataset with filtering and selecting.</pre>
+                      <pre class="language-r">    output$all_plots &lt;- renderUI({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">8</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1010</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param response (`data_extract_spec` or `list` of multiple `data_extract_spec`)</pre>
+                      <pre class="language-r">      teal::validate_inputs(iv_r())</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">9</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1011</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  Response variables from an incoming dataset with filtering and selecting.</pre>
+                      <pre class="language-r">      teal::validate_inputs(iv_extra, header = "Plot settings are required")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">1012</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param alpha optional, (`numeric`) If scalar then the plot points will have a fixed opacity. If a</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">11</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1013</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   slider should be presented to adjust the plot point opacity dynamically then it can be a vector of</pre>
+                      <pre class="language-r">      validation()</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">12</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1014</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   length three with `c(value, min, max)`.</pre>
+                      <pre class="language-r">      tags$div(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">13</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1015</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param size optional, (`numeric`) If scalar then the plot point sizes will have a fixed size</pre>
+                      <pre class="language-r">        class = "overflow-scroll",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">14</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1016</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   If a slider should be presented to adjust the plot point sizes dynamically then it can be a</pre>
+                      <pre class="language-r">        uiOutput(session$ns("tbl_importance_ui")),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">15</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1017</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   vector of length three with `c(value, min, max)`.</pre>
+                      <pre class="language-r">        uiOutput(session$ns("tbl_eigenvector_ui")),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">16</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1018</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param default_outlier_label optional, (`character`) The default column selected to label outliers.</pre>
+                      <pre class="language-r">        teal.widgets::plot_with_settings_ui(id = session$ns("pca_plot"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">1019</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param default_plot_type optional, (`numeric`) Defaults to Response vs Regressor.</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">1020</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' 1. Response vs Regressor</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">1021</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' 2. Residuals vs Fitted</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">20</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1022</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' 3. Normal Q-Q</pre>
+                      <pre class="language-r">    teal.widgets::verbatim_popup_srv(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">21</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1023</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' 4. Scale-Location</pre>
+                      <pre class="language-r">      id = "warning",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">22</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1024</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' 5. Cook's distance</pre>
+                      <pre class="language-r">      verbatim_content = reactive(teal.code::get_warnings(output_q())),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">23</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1025</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' 6. Residuals vs Leverage</pre>
+                      <pre class="language-r">      title = "Warning",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">24</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1026</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' 7. Cook's dist vs Leverage</pre>
+                      <pre class="language-r">      disabled = reactive(is.null(teal.code::get_warnings(output_q())))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">1027</td>
                     <td class="coverage"></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">1028</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @templateVar ggnames `r regression_names`</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">27</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1029</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @template ggplot2_args_multi</pre>
+                      <pre class="language-r">    teal.widgets::verbatim_popup_srv(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">28</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1030</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      id = "rcode",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">29</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1031</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @note For more examples, please see the vignette "Using regression plots" via</pre>
+                      <pre class="language-r">      verbatim_content = reactive(teal.code::get_code(output_q())),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">30</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1032</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `vignette("using-regression-plots", package = "teal.modules.general")`.</pre>
+                      <pre class="language-r">      title = "R Code for PCA"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
+                    <td class="num">1033</td>
                     <td class="coverage"></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">1034</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">33</td>
+                    <td class="num">1035</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # general data example</pre>
+                      <pre class="language-r">    ### REPORTER</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">34</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1036</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(teal.widgets)</pre>
+                      <pre class="language-r">    if (with_reporter) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">35</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1037</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      card_fun &lt;- function(comment, label) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">36</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1038</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' data &lt;- teal_data()</pre>
+                      <pre class="language-r">        card &lt;- teal::report_card_template(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">37</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1039</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' data &lt;- within(data, {</pre>
+                      <pre class="language-r">          title = "Principal Component Analysis Plot",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">38</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1040</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   library(nestcolor)</pre>
+                      <pre class="language-r">          label = label,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">39</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1041</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   CO2 &lt;- CO2</pre>
+                      <pre class="language-r">          with_filter = with_filter,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">40</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1042</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' })</pre>
+                      <pre class="language-r">          filter_panel_api = filter_panel_api</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">1043</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' datanames(data) &lt;- c("CO2")</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">42</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1044</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        card$append_text("Principal Components Table", "header3")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">43</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1045</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' app &lt;- init(</pre>
+                      <pre class="language-r">        card$append_table(computation()[["tbl_importance"]])</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">44</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1046</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = data,</pre>
+                      <pre class="language-r">        card$append_text("Eigenvectors Table", "header3")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">45</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1047</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   modules = modules(</pre>
+                      <pre class="language-r">        card$append_table(computation()[["tbl_eigenvector"]])</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">46</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1048</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     tm_a_regression(</pre>
+                      <pre class="language-r">        card$append_text("Plot", "header3")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">47</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1049</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       label = "Regression",</pre>
+                      <pre class="language-r">        card$append_plot(plot_r(), dim = pws$dim())</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">48</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1050</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       response = data_extract_spec(</pre>
+                      <pre class="language-r">        if (!comment == "") {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">49</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1051</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         dataname = "CO2",</pre>
+                      <pre class="language-r">          card$append_text("Comment", "header3")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">50</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1052</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         select = select_spec(</pre>
+                      <pre class="language-r">          card$append_text(comment)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">51</td>
+                    <td class="num">1053</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           label = "Select variable:",</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">52</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1054</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           choices = "uptake",</pre>
+                      <pre class="language-r">        card$append_src(teal.code::get_code(output_q()))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">53</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1055</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           selected = "uptake",</pre>
+                      <pre class="language-r">        card</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">54</td>
+                    <td class="num">1056</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           multiple = FALSE,</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">1057</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           fixed = TRUE</pre>
+                      <pre class="language-r">      teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">56</td>
+                    <td class="num">1058</td>
                     <td class="coverage"></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">1059</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       ),</pre>
+                      <pre class="language-r">    ###</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">58</td>
+                    <td class="num">1060</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       regressor = data_extract_spec(</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">59</td>
+                    <td class="num">1061</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         dataname = "CO2",</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/tm_a_regression.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">#'         select = select_spec(</pre>
+                      <pre class="language-r">#' Scatterplot and Regression Model</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">#'           label = "Select variables:",</pre>
+                      <pre class="language-r">#' @md</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">#'           choices = variable_choices(data[["CO2"]], c("conc", "Treatment")),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">63</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           selected = "conc",</pre>
+                      <pre class="language-r">#' @inheritParams teal::module</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">64</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           multiple = TRUE,</pre>
+                      <pre class="language-r">#' @inheritParams shared_params</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">65</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           fixed = FALSE</pre>
+                      <pre class="language-r">#' @param regressor (`data_extract_spec` or `list` of multiple `data_extract_spec`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">66</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         )</pre>
+                      <pre class="language-r">#'  Regressor variables from an incoming dataset with filtering and selecting.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">67</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       ),</pre>
+                      <pre class="language-r">#' @param response (`data_extract_spec` or `list` of multiple `data_extract_spec`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">68</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       ggplot2_args = ggplot2_args(</pre>
+                      <pre class="language-r">#'  Response variables from an incoming dataset with filtering and selecting.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">69</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         labs = list(subtitle = "Plot generated by Regression Module")</pre>
+                      <pre class="language-r">#' @param alpha optional, (`numeric`) If scalar then the plot points will have a fixed opacity. If a</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">70</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       )</pre>
+                      <pre class="language-r">#'   slider should be presented to adjust the plot point opacity dynamically then it can be a vector of</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">71</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     )</pre>
+                      <pre class="language-r">#'   length three with `c(value, min, max)`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">72</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 size optional, (`numeric`) If scalar then the plot point sizes will have a fixed size</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">73</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#'   If a slider should be presented to adjust the plot point sizes dynamically then it can be a</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">74</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' if (interactive()) {</pre>
+                      <pre class="language-r">#'   vector of length three with `c(value, min, max)`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">75</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   shinyApp(app$ui, app$server)</pre>
+                      <pre class="language-r">#' @param default_outlier_label optional, (`character`) The default column selected to label outliers.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">76</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">#' @param default_plot_type optional, (`numeric`) Defaults to Response vs Regressor.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">77</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' 1. Response vs Regressor</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">78</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # CDISC data example</pre>
+                      <pre class="language-r">#' 2. Residuals vs Fitted</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">79</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(teal.widgets)</pre>
+                      <pre class="language-r">#' 3. Normal Q-Q</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">80</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' 4. Scale-Location</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">81</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' data &lt;- teal_data()</pre>
+                      <pre class="language-r">#' 5. Cook's distance</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">82</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' data &lt;- within(data, {</pre>
+                      <pre class="language-r">#' 6. Residuals vs Leverage</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">83</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   library(nestcolor)</pre>
+                      <pre class="language-r">#' 7. Cook's dist vs Leverage</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">84</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ADSL &lt;- rADSL</pre>
+                      <pre class="language-r">#' @param label_segment_threshold (`numeric(1)` or `numeric(3)`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">85</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' })</pre>
+                      <pre class="language-r">#' Minimum distance between label and point on the plot that triggers the creation of</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">86</td>
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' datanames(data) &lt;- "ADSL"</pre>
+                      <pre class="language-r">#' a line segment between the two.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">87</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' join_keys(data) &lt;- default_cdisc_join_keys[datanames(data)]</pre>
+                      <pre class="language-r">#' This may happen when the label cannot be placed next to the point as it overlaps another</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">88</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' label or point.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">89</td>
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' app &lt;- init(</pre>
+                      <pre class="language-r">#' The value is used as the `min.segment.length` parameter to the [ggrepel::geom_text_repel()] function.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">90</td>
+                    <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = data,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">91</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   modules = modules(</pre>
+                      <pre class="language-r">#' It can take the following forms:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">92</td>
+                    <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     tm_a_regression(</pre>
+                      <pre class="language-r">#' - `numeric(1)`: Fixed value used for the minimum distance and the slider is not presented in the UI.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">93</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       label = "Regression",</pre>
+                      <pre class="language-r">#' - `numeric(3)`: A slider is presented in the UI (under "Plot settings") to adjust the minimum distance dynamically.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">94</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       response = data_extract_spec(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">95</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         dataname = "ADSL",</pre>
+                      <pre class="language-r">#'     It takes the form of `c(value, min, max)` and it is passed to the `value_min_max`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">96</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         select = select_spec(</pre>
+                      <pre class="language-r">#'     argument in `teal.widgets::optionalSliderInputValMinMax`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">97</td>
+                    <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           label = "Select variable:",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">98</td>
+                    <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           choices = "BMRKR1",</pre>
+                      <pre class="language-r">#' @templateVar ggnames `r regression_names`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">99</td>
+                    <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           selected = "BMRKR1",</pre>
+                      <pre class="language-r">#' @template ggplot2_args_multi</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">100</td>
+                    <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           multiple = FALSE,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">101</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           fixed = TRUE</pre>
+                      <pre class="language-r">#' @note For more examples, please see the vignette "Using regression plots" via</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">102</td>
+                    <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         )</pre>
+                      <pre class="language-r">#'   `vignette("using-regression-plots", package = "teal.modules.general")`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">103</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">104</td>
+                    <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       regressor = data_extract_spec(</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">105</td>
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         dataname = "ADSL",</pre>
+                      <pre class="language-r">#' # general data example</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">106</td>
+                    <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         select = select_spec(</pre>
+                      <pre class="language-r">#' library(teal.widgets)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">107</td>
+                    <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           label = "Select variables:",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">108</td>
+                    <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           choices = variable_choices(data[["ADSL"]], c("AGE", "SEX", "RACE")),</pre>
+                      <pre class="language-r">#' data &lt;- teal_data()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">109</td>
+                    <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           selected = "AGE",</pre>
+                      <pre class="language-r">#' data &lt;- within(data, {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">110</td>
+                    <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           multiple = TRUE,</pre>
+                      <pre class="language-r">#'   library(nestcolor)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">111</td>
+                    <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           fixed = FALSE</pre>
+                      <pre class="language-r">#'   CO2 &lt;- CO2</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">112</td>
+                    <td class="num">53</td>
                     <td class="coverage"></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">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       ),</pre>
+                      <pre class="language-r">#' datanames(data) &lt;- c("CO2")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">114</td>
+                    <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       ggplot2_args = ggplot2_args(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">115</td>
+                    <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         labs = list(subtitle = "Plot generated by Regression Module")</pre>
+                      <pre class="language-r">#' app &lt;- init(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">116</td>
+                    <td class="num">57</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">117</td>
+                    <td class="num">58</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">118</td>
+                    <td class="num">59</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">#'     tm_a_regression(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">119</td>
+                    <td class="num">60</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#'       label = "Regression",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">120</td>
+                    <td class="num">61</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' if (interactive()) {</pre>
+                      <pre class="language-r">#'       response = data_extract_spec(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">121</td>
+                    <td class="num">62</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   shinyApp(app$ui, app$server)</pre>
+                      <pre class="language-r">#'         dataname = "CO2",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">122</td>
+                    <td class="num">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">#'         select = select_spec(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">123</td>
+                    <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'           label = "Select variable:",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">124</td>
+                    <td class="num">65</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#'           choices = "uptake",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">125</td>
+                    <td class="num">66</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'           selected = "uptake",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">126</td>
+                    <td class="num">67</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">tm_a_regression &lt;- function(label = "Regression Analysis",</pre>
+                      <pre class="language-r">#'           multiple = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">127</td>
+                    <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            regressor,</pre>
+                      <pre class="language-r">#'           fixed = TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">128</td>
+                    <td class="num">69</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            response,</pre>
+                      <pre class="language-r">#'         )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">129</td>
+                    <td class="num">70</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            plot_height = c(600, 200, 2000),</pre>
+                      <pre class="language-r">#'       ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">130</td>
+                    <td class="num">71</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            plot_width = NULL,</pre>
+                      <pre class="language-r">#'       regressor = data_extract_spec(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">131</td>
+                    <td class="num">72</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            alpha = c(1, 0, 1),</pre>
+                      <pre class="language-r">#'         dataname = "CO2",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">132</td>
+                    <td class="num">73</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            size = c(2, 1, 8),</pre>
+                      <pre class="language-r">#'         select = select_spec(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">133</td>
+                    <td class="num">74</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            ggtheme = c("gray", "bw", "linedraw", "light", "dark", "minimal", "classic", "void"),</pre>
+                      <pre class="language-r">#'           label = "Select variables:",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">134</td>
+                    <td class="num">75</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            ggplot2_args = teal.widgets::ggplot2_args(),</pre>
+                      <pre class="language-r">#'           choices = variable_choices(data[["CO2"]], c("conc", "Treatment")),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">135</td>
+                    <td class="num">76</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            pre_output = NULL,</pre>
+                      <pre class="language-r">#'           selected = "conc",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">136</td>
+                    <td class="num">77</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            post_output = NULL,</pre>
+                      <pre class="language-r">#'           multiple = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">137</td>
+                    <td class="num">78</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            default_plot_type = 1,</pre>
+                      <pre class="language-r">#'           fixed = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">138</td>
+                    <td class="num">79</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            default_outlier_label = "USUBJID") {</pre>
+                      <pre class="language-r">#'         )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">139</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">  logger::log_info("Initializing tm_a_regression")</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">81</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (inherits(regressor, "data_extract_spec")) regressor &lt;- list(regressor)</pre>
+                      <pre class="language-r">#'       ggplot2_args = ggplot2_args(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">141</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">  if (inherits(response, "data_extract_spec")) response &lt;- list(response)</pre>
+                      <pre class="language-r">#'         labs = list(subtitle = "Plot generated by Regression Module")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">142</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 (inherits(ggplot2_args, "ggplot2_args")) ggplot2_args &lt;- list(default = ggplot2_args)</pre>
+                      <pre class="language-r">#'       )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">143</td>
+                    <td class="num">84</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">144</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">  checkmate::assert_string(label)</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">145</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">  checkmate::assert_list(response, types = "data_extract_spec")</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">146</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">  if (!all(vapply(response, function(x) !(x$select$multiple), logical(1)))) {</pre>
+                      <pre class="language-r">#' if (interactive()) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">147</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">    stop("'response' should not allow multiple selection")</pre>
+                      <pre class="language-r">#'   shinyApp(app$ui, app$server)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">148</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="missed">
-                    <td class="num">149</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">  checkmate::assert_list(regressor, types = "data_extract_spec")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">150</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">91</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ggtheme &lt;- match.arg(ggtheme)</pre>
+                      <pre class="language-r">#' # CDISC data example</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">151</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">92</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(default_outlier_label)</pre>
+                      <pre class="language-r">#' library(teal.widgets)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">152</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">  plot_choices &lt;- c(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">153</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">    "Response vs Regressor", "Residuals vs Fitted", "Normal Q-Q", "Scale-Location",</pre>
+                      <pre class="language-r">#' data &lt;- teal_data()</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">154</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">    "Cook's distance", "Residuals vs Leverage", "Cook's dist vs Leverage"</pre>
+                      <pre class="language-r">#' data &lt;- within(data, {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">155</td>
+                    <td class="num">96</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#'   library(nestcolor)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">156</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">  checkmate::assert_list(ggplot2_args, types = "ggplot2_args")</pre>
+                      <pre class="language-r">#'   ADSL &lt;- rADSL</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">157</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">  checkmate::assert_subset(names(ggplot2_args), c("default", plot_choices))</pre>
+                      <pre class="language-r">#' })</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">158</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">99</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(plot_height, len = 3, any.missing = FALSE, finite = TRUE)</pre>
+                      <pre class="language-r">#' datanames(data) &lt;- "ADSL"</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">159</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">100</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(plot_height[1], lower = plot_height[2], upper = plot_height[3], .var.name = "plot_height")</pre>
+                      <pre class="language-r">#' join_keys(data) &lt;- default_cdisc_join_keys[datanames(data)]</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">160</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">  checkmate::assert_numeric(plot_width, len = 3, any.missing = FALSE, null.ok = TRUE, finite = TRUE)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">161</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">  checkmate::assert_numeric(</pre>
+                      <pre class="language-r">#' app &lt;- init(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">162</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">    plot_width[1],</pre>
+                      <pre class="language-r">#'   data = data,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">163</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">    lower = plot_width[2], upper = plot_width[3], null.ok = TRUE, .var.name = "plot_width"</pre>
+                      <pre class="language-r">#'   modules = modules(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">164</td>
+                    <td class="num">105</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#'     tm_a_regression(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">165</td>
+                    <td class="num">106</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'       label = "Regression",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">166</td>
+                    <td class="num">107</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Send ui args</pre>
+                      <pre class="language-r">#'       response = data_extract_spec(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">167</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">  args &lt;- as.list(environment())</pre>
+                      <pre class="language-r">#'         dataname = "ADSL",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">168</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">  args[["plot_choices"]] &lt;- plot_choices</pre>
+                      <pre class="language-r">#'         select = select_spec(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">169</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">110</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  data_extract_list &lt;- list(</pre>
+                      <pre class="language-r">#'           label = "Select variable:",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">170</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">    regressor = regressor,</pre>
+                      <pre class="language-r">#'           choices = "BMRKR1",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">171</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">    response = response</pre>
+                      <pre class="language-r">#'           selected = "BMRKR1",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">172</td>
+                    <td class="num">113</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#'           multiple = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">173</td>
+                    <td class="num">114</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'           fixed = TRUE</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">174</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">  module(</pre>
+                      <pre class="language-r">#'         )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">175</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">116</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    label = label,</pre>
+                      <pre class="language-r">#'       ),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">176</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">    server = srv_a_regression,</pre>
+                      <pre class="language-r">#'       regressor = data_extract_spec(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">177</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">118</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ui = ui_a_regression,</pre>
+                      <pre class="language-r">#'         dataname = "ADSL",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">178</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">119</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ui_args = args,</pre>
+                      <pre class="language-r">#'         select = select_spec(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">179</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">    server_args = c(</pre>
+                      <pre class="language-r">#'           label = "Select variables:",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">180</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">      data_extract_list,</pre>
+                      <pre class="language-r">#'           choices = variable_choices(data[["ADSL"]], c("AGE", "SEX", "RACE")),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">181</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">122</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      list(</pre>
+                      <pre class="language-r">#'           selected = "AGE",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">182</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">        plot_height = plot_height,</pre>
+                      <pre class="language-r">#'           multiple = TRUE,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">183</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">        plot_width = plot_width,</pre>
+                      <pre class="language-r">#'           fixed = FALSE</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">184</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">125</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        default_outlier_label = default_outlier_label,</pre>
+                      <pre class="language-r">#'         )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">185</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">126</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ggplot2_args = ggplot2_args</pre>
+                      <pre class="language-r">#'       ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">186</td>
+                    <td class="num">127</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#'       ggplot2_args = ggplot2_args(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">187</td>
+                    <td class="num">128</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ),</pre>
+                      <pre class="language-r">#'         labs = list(subtitle = "Plot generated by Regression Module")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">188</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">    datanames = teal.transform::get_extract_datanames(data_extract_list)</pre>
+                      <pre class="language-r">#'       )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">189</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">190</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">191</td>
+                    <td class="num">132</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">192</td>
+                    <td class="num">133</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">ui_a_regression &lt;- function(id, ...) {</pre>
+                      <pre class="language-r">#' if (interactive()) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">193</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">134</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ns &lt;- NS(id)</pre>
+                      <pre class="language-r">#'   shinyApp(app$ui, app$server)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">194</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">  args &lt;- list(...)</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">136</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  is_single_dataset_value &lt;- teal.transform::is_single_dataset(args$regressor, args$response)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">196</td>
+                    <td class="num">137</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="missed">
-                    <td class="num">197</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">  teal.widgets::standard_layout(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">198</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">    output = teal.widgets::white_small_well(tags$div(</pre>
+                      <pre class="language-r">tm_a_regression &lt;- function(label = "Regression Analysis",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">199</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">140</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.widgets::plot_with_settings_ui(id = ns("myplot")),</pre>
+                      <pre class="language-r">                            regressor,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">200</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">      tags$div(verbatimTextOutput(ns("text")))</pre>
+                      <pre class="language-r">                            response,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">201</td>
+                    <td class="num">142</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )),</pre>
+                      <pre class="language-r">                            plot_height = c(600, 200, 2000),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">202</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">    encoding = div(</pre>
+                      <pre class="language-r">                            plot_width = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">203</td>
+                    <td class="num">144</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ### Reporter</pre>
+                      <pre class="language-r">                            alpha = c(1, 0, 1),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">204</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">145</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.reporter::simple_reporter_ui(ns("simple_reporter")),</pre>
+                      <pre class="language-r">                            size = c(2, 1, 8),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">205</td>
+                    <td class="num">146</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ###</pre>
+                      <pre class="language-r">                            ggtheme = c("gray", "bw", "linedraw", "light", "dark", "minimal", "classic", "void"),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">206</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">147</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      tags$label("Encodings", class = "text-primary"),</pre>
+                      <pre class="language-r">                            ggplot2_args = teal.widgets::ggplot2_args(),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">207</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">148</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.transform::datanames_input(args[c("response", "regressor")]),</pre>
+                      <pre class="language-r">                            pre_output = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">208</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">      teal.transform::data_extract_ui(</pre>
+                      <pre class="language-r">                            post_output = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">209</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">150</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        id = ns("response"),</pre>
+                      <pre class="language-r">                            default_plot_type = 1,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">210</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">151</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        label = "Response variable",</pre>
+                      <pre class="language-r">                            default_outlier_label = "USUBJID",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">211</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">152</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        data_extract_spec = args$response,</pre>
+                      <pre class="language-r">                            label_segment_threshold = c(0.5, 0, 10)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">212</td>
+                    <td class="num">153</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        is_single_dataset = is_single_dataset_value</pre>
+                      <pre class="language-r">  logger::log_info("Initializing tm_a_regression")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">213</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>
-                  <tr class="missed">
-                    <td class="num">214</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">155</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.transform::data_extract_ui(</pre>
+                      <pre class="language-r">  # Normalize the parameters</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">215</td>
+                    <td class="num">156</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        id = ns("regressor"),</pre>
+                      <pre class="language-r">  if (inherits(regressor, "data_extract_spec")) regressor &lt;- list(regressor)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">216</td>
+                    <td class="num">157</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        label = "Regressor variables",</pre>
+                      <pre class="language-r">  if (inherits(response, "data_extract_spec")) response &lt;- list(response)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">217</td>
+                    <td class="num">158</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        data_extract_spec = args$regressor,</pre>
+                      <pre class="language-r">  if (inherits(ggplot2_args, "ggplot2_args")) ggplot2_args &lt;- list(default = ggplot2_args)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">218</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">        is_single_dataset = is_single_dataset_value</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">219</td>
+                    <td class="num">160</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ),</pre>
+                      <pre class="language-r">  # Start of assertions</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">220</td>
+                    <td class="num">161</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      radioButtons(</pre>
+                      <pre class="language-r">  checkmate::assert_string(label)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">221</td>
+                    <td class="num">162</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ns("plot_type"),</pre>
+                      <pre class="language-r">  checkmate::assert_list(regressor, types = "data_extract_spec")</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">163</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">222</td>
+                    <td class="num">164</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        label = "Plot type:",</pre>
+                      <pre class="language-r">  checkmate::assert_list(response, types = "data_extract_spec")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">223</td>
+                    <td class="num">165</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        choices = args$plot_choices,</pre>
+                      <pre class="language-r">  if (!all(vapply(response, function(x) !(x$select$multiple), logical(1)))) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">224</td>
+                    <td class="num">166</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        selected = args$plot_choices[args$default_plot_type]</pre>
+                      <pre class="language-r">    stop("'response' should not allow multiple selection")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">225</td>
+                    <td class="num">167</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">226</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">168</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkboxInput(ns("show_outlier"), label = "Display outlier labels", value = TRUE),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">227</td>
+                    <td class="num">169</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      conditionalPanel(</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(plot_height, len = 3, any.missing = FALSE, finite = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">228</td>
+                    <td class="num">170</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        condition = "input['show_outlier']",</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(plot_height[1], lower = plot_height[2], upper = plot_height[3], .var.name = "plot_height")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">229</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">        ns = ns,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">230</td>
+                    <td class="num">172</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        teal.widgets::optionalSliderInput(</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(plot_width, len = 3, any.missing = FALSE, null.ok = TRUE, finite = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">231</td>
+                    <td class="num">173</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ns("outlier"),</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">232</td>
+                    <td class="num">174</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          div(</pre>
+                      <pre class="language-r">    plot_width[1],</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">233</td>
+                    <td class="num">175</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            class = "teal-tooltip",</pre>
+                      <pre class="language-r">    lower = plot_width[2],</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">234</td>
+                    <td class="num">176</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            tagList(</pre>
+                      <pre class="language-r">    upper = plot_width[3],</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">235</td>
+                    <td class="num">177</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              "Outlier definition:",</pre>
+                      <pre class="language-r">    null.ok = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">236</td>
+                    <td class="num">178</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              icon("circle-info"),</pre>
+                      <pre class="language-r">    .var.name = "plot_width"</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">237</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">              span(</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">238</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">                class = "tooltiptext",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">239</td>
+                    <td class="num">181</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                paste(</pre>
+                      <pre class="language-r">  if (length(alpha) == 1) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">240</td>
+                    <td class="num">182</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  "Use the slider to choose the cut-off value to define outliers.",</pre>
+                      <pre class="language-r">    checkmate::assert_numeric(alpha, any.missing = FALSE, finite = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">241</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">183</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  "Points with a Cook's distance greater than",</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">242</td>
+                    <td class="num">184</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  "the value on the slider times the mean of the Cook's distance of the dataset will have labels."</pre>
+                      <pre class="language-r">    checkmate::assert_numeric(alpha, len = 3, any.missing = FALSE, finite = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">243</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">    checkmate::assert_numeric(alpha[1], lower = alpha[2], upper = alpha[3], .var.name = "alpha")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">244</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">245</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">246</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">          ),</pre>
+                      <pre class="language-r">  if (length(size) == 1) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">247</td>
+                    <td class="num">189</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          min = 1, max = 10, value = 9, ticks = FALSE, step = .1</pre>
+                      <pre class="language-r">    checkmate::assert_numeric(size, any.missing = FALSE, finite = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">248</td>
+                    <td class="num">190</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">249</td>
+                    <td class="num">191</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        teal.widgets::optionalSelectInput(</pre>
+                      <pre class="language-r">    checkmate::assert_numeric(size, len = 3, any.missing = FALSE, finite = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">250</td>
+                    <td class="num">192</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ns("label_var"),</pre>
+                      <pre class="language-r">    checkmate::assert_numeric(size[1], lower = size[2], upper = size[3], .var.name = "size")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">251</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">          multiple = FALSE,</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">252</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">          label = "Outlier label"</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">253</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">        )</pre>
+                      <pre class="language-r">  ggtheme &lt;- match.arg(ggtheme)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">254</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="missed">
-                    <td class="num">255</td>
+                    <td class="num">197</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.widgets::panel_group(</pre>
+                      <pre class="language-r">  plot_choices &lt;- c(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">256</td>
+                    <td class="num">198</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        teal.widgets::panel_item(</pre>
+                      <pre class="language-r">    "Response vs Regressor", "Residuals vs Fitted", "Normal Q-Q", "Scale-Location",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">257</td>
+                    <td class="num">199</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          title = "Plot settings",</pre>
+                      <pre class="language-r">    "Cook's distance", "Residuals vs Leverage", "Cook's dist vs Leverage"</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">258</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">200</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          teal.widgets::optionalSliderInputValMinMax(ns("alpha"), "Opacity:", args$alpha, ticks = FALSE),</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">259</td>
+                    <td class="num">201</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          teal.widgets::optionalSliderInputValMinMax(ns("size"), "Points size:", args$size, ticks = FALSE),</pre>
+                      <pre class="language-r">  checkmate::assert_list(ggplot2_args, types = "ggplot2_args")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">260</td>
+                    <td class="num">202</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          selectInput(</pre>
+                      <pre class="language-r">  checkmate::assert_subset(names(ggplot2_args), c("default", plot_choices))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">261</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">203</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            inputId = ns("ggtheme"),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">262</td>
+                    <td class="num">204</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            label = "Theme (by ggplot):",</pre>
+                      <pre class="language-r">  checkmate::assert_multi_class(pre_output, c("shiny.tag", "shiny.tag.list", "html"), null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">263</td>
+                    <td class="num">205</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            choices = ggplot_themes,</pre>
+                      <pre class="language-r">  checkmate::assert_multi_class(post_output, c("shiny.tag", "shiny.tag.list", "html"), null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">264</td>
+                    <td class="num">206</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            selected = args$ggtheme,</pre>
+                      <pre class="language-r">  checkmate::assert_integerish(default_plot_type, lower = 1, upper = 7)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">265</td>
+                    <td class="num">207</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            multiple = FALSE</pre>
+                      <pre class="language-r">  checkmate::assert_string(default_outlier_label)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">266</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="never">
-                    <td class="num">267</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">209</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">  if (length(label_segment_threshold) == 1) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">268</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">210</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">    checkmate::assert_numeric(label_segment_threshold, any.missing = FALSE, finite = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">269</td>
+                    <td class="num">211</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">270</td>
+                    <td class="num">212</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    forms = tagList(</pre>
+                      <pre class="language-r">    checkmate::assert_numeric(label_segment_threshold, len = 3, any.missing = FALSE, finite = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">271</td>
+                    <td class="num">213</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.widgets::verbatim_popup_ui(ns("warning"), "Show Warnings"),</pre>
+                      <pre class="language-r">    checkmate::assert_numeric(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">272</td>
+                    <td class="num">214</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">      label_segment_threshold[1],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">273</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">    ),</pre>
+                      <pre class="language-r">      lower = label_segment_threshold[2],</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">274</td>
+                    <td class="num">216</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    pre_output = args$pre_output,</pre>
+                      <pre class="language-r">      upper = label_segment_threshold[3],</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">275</td>
+                    <td class="num">217</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    post_output = args$post_output</pre>
+                      <pre class="language-r">      .var.name = "label_segment_threshold"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">276</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="never">
-                    <td class="num">277</td>
+                    <td class="num">219</td>
                     <td class="coverage"></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">220</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  # End of assertions</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">279</td>
+                    <td class="num">221</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">280</td>
+                    <td class="num">222</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">srv_a_regression &lt;- function(id,</pre>
+                      <pre class="language-r">  # Send ui args</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">281</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">                             data,</pre>
+                      <pre class="language-r">  args &lt;- as.list(environment())</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">282</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">224</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             reporter,</pre>
+                      <pre class="language-r">  args[["plot_choices"]] &lt;- plot_choices</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">283</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">                             filter_panel_api,</pre>
+                      <pre class="language-r">  data_extract_list &lt;- list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">284</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">                             response,</pre>
+                      <pre class="language-r">    regressor = regressor,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">285</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">                             regressor,</pre>
+                      <pre class="language-r">    response = response</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">286</td>
+                    <td class="num">228</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             plot_height,</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">287</td>
+                    <td class="num">229</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             plot_width,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">288</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">                             ggplot2_args,</pre>
+                      <pre class="language-r">  module(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">289</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">231</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             default_outlier_label) {</pre>
+                      <pre class="language-r">    label = label,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">290</td>
+                    <td class="num">232</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  with_reporter &lt;- !missing(reporter) &amp;&amp; inherits(reporter, "Reporter")</pre>
+                      <pre class="language-r">    server = srv_a_regression,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">291</td>
+                    <td class="num">233</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  with_filter &lt;- !missing(filter_panel_api) &amp;&amp; inherits(filter_panel_api, "FilterPanelAPI")</pre>
+                      <pre class="language-r">    ui = ui_a_regression,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">292</td>
+                    <td class="num">234</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(data, "reactive")</pre>
+                      <pre class="language-r">    ui_args = args,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">293</td>
+                    <td class="num">235</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">    server_args = c(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">294</td>
+                    <td class="num">236</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_extract_list,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">295</td>
+                    <td class="num">237</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    rule_rvr1 &lt;- function(value) {</pre>
+                      <pre class="language-r">      list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">296</td>
+                    <td class="num">238</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (isTRUE(input$plot_type == "Response vs Regressor")) {</pre>
+                      <pre class="language-r">        plot_height = plot_height,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">297</td>
+                    <td class="num">239</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (length(value) &gt; 1L) {</pre>
+                      <pre class="language-r">        plot_width = plot_width,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">298</td>
+                    <td class="num">240</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "This plot can only have one regressor."</pre>
+                      <pre class="language-r">        default_outlier_label = default_outlier_label,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">241</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        ggplot2_args = ggplot2_args</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">299</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">300</td>
+                    <td class="num">243</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    ),</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">244</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    datanames = teal.transform::get_extract_datanames(data_extract_list)</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>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">246</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="coverage"></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">248</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">ui_a_regression &lt;- function(id, ...) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">302</td>
+                    <td class="num">249</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    rule_rvr2 &lt;- function(other) {</pre>
+                      <pre class="language-r">  ns &lt;- NS(id)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">303</td>
+                    <td class="num">250</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      function(value) {</pre>
+                      <pre class="language-r">  args &lt;- list(...)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">304</td>
+                    <td class="num">251</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (isTRUE(input$plot_type == "Response vs Regressor")) {</pre>
+                      <pre class="language-r">  is_single_dataset_value &lt;- teal.transform::is_single_dataset(args$regressor, args$response)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">305</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">252</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          otherval &lt;- selector_list()[[other]]()$select</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">306</td>
+                    <td class="num">253</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          if (isTRUE(value == otherval)) {</pre>
+                      <pre class="language-r">  teal.widgets::standard_layout(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">307</td>
+                    <td class="num">254</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            "Response and Regressor must be different."</pre>
+                      <pre class="language-r">    output = teal.widgets::white_small_well(tags$div(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">308</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">          }</pre>
+                      <pre class="language-r">      teal.widgets::plot_with_settings_ui(id = ns("myplot")),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">309</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">256</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">      tags$div(verbatimTextOutput(ns("text")))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">310</td>
+                    <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">311</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">    encoding = div(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">312</td>
+                    <td class="num">259</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      ### Reporter</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">313</td>
+                    <td class="num">260</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    selector_list &lt;- teal.transform::data_extract_multiple_srv(</pre>
+                      <pre class="language-r">      teal.reporter::simple_reporter_ui(ns("simple_reporter")),</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>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">314</td>
+                    <td class="num">262</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      data_extract = list(response = response, regressor = regressor),</pre>
+                      <pre class="language-r">      tags$label("Encodings", class = "text-primary"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">315</td>
+                    <td class="num">263</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      datasets = data,</pre>
+                      <pre class="language-r">      teal.transform::datanames_input(args[c("response", "regressor")]),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">316</td>
+                    <td class="num">264</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      select_validation_rule = list(</pre>
+                      <pre class="language-r">      teal.transform::data_extract_ui(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">317</td>
+                    <td class="num">265</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        regressor = shinyvalidate::compose_rules(</pre>
+                      <pre class="language-r">        id = ns("response"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">318</td>
+                    <td class="num">266</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          shinyvalidate::sv_required("At least one regressor should be selected."),</pre>
+                      <pre class="language-r">        label = "Response variable",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">319</td>
+                    <td class="num">267</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          rule_rvr1,</pre>
+                      <pre class="language-r">        data_extract_spec = args$response,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">320</td>
+                    <td class="num">268</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          rule_rvr2("response")</pre>
+                      <pre class="language-r">        is_single_dataset = is_single_dataset_value</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">321</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="missed">
-                    <td class="num">322</td>
+                    <td class="num">270</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        response = shinyvalidate::compose_rules(</pre>
+                      <pre class="language-r">      teal.transform::data_extract_ui(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">323</td>
+                    <td class="num">271</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          shinyvalidate::sv_required("At least one response should be selected."),</pre>
+                      <pre class="language-r">        id = ns("regressor"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">324</td>
+                    <td class="num">272</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          rule_rvr2("regressor")</pre>
+                      <pre class="language-r">        label = "Regressor variables",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">325</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">        )</pre>
+                      <pre class="language-r">        data_extract_spec = args$regressor,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">326</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">        is_single_dataset = is_single_dataset_value</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">327</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">328</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"></pre>
+                      <pre class="language-r">      radioButtons(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">329</td>
+                    <td class="num">277</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    iv_r &lt;- reactive({</pre>
+                      <pre class="language-r">        ns("plot_type"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">330</td>
+                    <td class="num">278</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv &lt;- shinyvalidate::InputValidator$new()</pre>
+                      <pre class="language-r">        label = "Plot type:",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">331</td>
+                    <td class="num">279</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.transform::compose_and_enable_validators(iv, selector_list)</pre>
+                      <pre class="language-r">        choices = args$plot_choices,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">332</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">    })</pre>
+                      <pre class="language-r">        selected = args$plot_choices[args$default_plot_type]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">333</td>
+                    <td class="num">281</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">334</td>
+                    <td class="num">282</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    iv_out &lt;- shinyvalidate::InputValidator$new()</pre>
+                      <pre class="language-r">      checkboxInput(ns("show_outlier"), label = "Display outlier labels", value = TRUE),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">335</td>
+                    <td class="num">283</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    iv_out$condition(~ isTRUE(input$show_outlier))</pre>
+                      <pre class="language-r">      conditionalPanel(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">336</td>
+                    <td class="num">284</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    iv_out$add_rule("label_var", shinyvalidate::sv_required("Please provide an `Outlier label` variable"))</pre>
+                      <pre class="language-r">        condition = "input['show_outlier']",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">337</td>
+                    <td class="num">285</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    iv_out$enable()</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">338</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        ns = ns,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">339</td>
+                    <td class="num">286</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    anl_merged_input &lt;- teal.transform::merge_expression_srv(</pre>
+                      <pre class="language-r">        teal.widgets::optionalSliderInput(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">340</td>
+                    <td class="num">287</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      selector_list = selector_list,</pre>
+                      <pre class="language-r">          ns("outlier"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">341</td>
+                    <td class="num">288</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      datasets = data</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>
-                    </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">          div(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">344</td>
+                    <td class="num">289</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    regression_var &lt;- reactive({</pre>
+                      <pre class="language-r">            class = "teal-tooltip",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">345</td>
+                    <td class="num">290</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal::validate_inputs(iv_r())</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">346</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="missed">
-                    <td class="num">347</td>
+                    <td class="num">291</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      list(</pre>
+                      <pre class="language-r">              "Outlier definition:",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">348</td>
+                    <td class="num">292</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        response = as.vector(anl_merged_input()$columns_source$response),</pre>
+                      <pre class="language-r">              icon("circle-info"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">349</td>
+                    <td class="num">293</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        regressor = as.vector(anl_merged_input()$columns_source$regressor)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">350</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">351</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">              span(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">352</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">                class = "tooltiptext",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">353</td>
+                    <td class="num">295</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    anl_merged_q &lt;- reactive({</pre>
+                      <pre class="language-r">                paste(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">354</td>
+                    <td class="num">296</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      req(anl_merged_input())</pre>
+                      <pre class="language-r">                  "Use the slider to choose the cut-off value to define outliers.",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">355</td>
+                    <td class="num">297</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      data() %&gt;%</pre>
+                      <pre class="language-r">                  "Points with a Cook's distance greater than",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">356</td>
+                    <td class="num">298</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        teal.code::eval_code(as.expression(anl_merged_input()$expr))</pre>
+                      <pre class="language-r">                  "the value on the slider times the mean of the Cook's distance of the dataset will have labels."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">357</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">358</td>
+                    <td class="num">300</td>
                     <td class="coverage"></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">301</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # sets qenv object and populates it with data merge call and fit expression</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">360</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    fit_r &lt;- reactive({</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">302</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ANL &lt;- anl_merged_q()[["ANL"]] # nolint: object_name.</pre>
+                      <pre class="language-r">          ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">362</td>
+                    <td class="num">303</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal::validate_has_data(ANL, 10)</pre>
+                      <pre class="language-r">          min = 1, max = 10, value = 9, ticks = FALSE, step = .1</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">363</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">364</td>
+                    <td class="num">305</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      validate(need(is.numeric(ANL[regression_var()$response][[1]]), "Response variable should be numeric."))</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">365</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        teal.widgets::optionalSelectInput(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">366</td>
+                    <td class="num">306</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal::validate_has_data(</pre>
+                      <pre class="language-r">          ns("label_var"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">367</td>
+                    <td class="num">307</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ANL[, c(regression_var()$response, regression_var()$regressor)], 10,</pre>
+                      <pre class="language-r">          multiple = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">368</td>
+                    <td class="num">308</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        complete = TRUE, allow_inf = FALSE</pre>
+                      <pre class="language-r">          label = "Outlier label"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">369</td>
+                    <td class="num">309</td>
                     <td class="coverage"></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">310</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">371</td>
+                    <td class="num">311</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      form &lt;- stats::as.formula(</pre>
+                      <pre class="language-r">      teal.widgets::panel_group(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">372</td>
+                    <td class="num">312</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        paste(</pre>
+                      <pre class="language-r">        teal.widgets::panel_item(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">373</td>
+                    <td class="num">313</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          regression_var()$response,</pre>
+                      <pre class="language-r">          title = "Plot settings",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">374</td>
+                    <td class="num">314</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          paste(</pre>
+                      <pre class="language-r">          teal.widgets::optionalSliderInputValMinMax(ns("alpha"), "Opacity:", args$alpha, ticks = FALSE),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">375</td>
+                    <td class="num">315</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            regression_var()$regressor,</pre>
+                      <pre class="language-r">          teal.widgets::optionalSliderInputValMinMax(ns("size"), "Points size:", args$size, ticks = FALSE),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">376</td>
+                    <td class="num">316</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            collapse = " + "</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">377</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          ),</pre>
+                      <pre class="language-r">          teal.widgets::optionalSliderInputValMinMax(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">378</td>
+                    <td class="num">317</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          sep = " ~ "</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">379</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">            inputId = ns("label_min_segment"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">380</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">318</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">            label = div(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">381</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">319</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">              class = "teal-tooltip",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">382</td>
+                    <td class="num">320</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (input$show_outlier) {</pre>
+                      <pre class="language-r">              tagList(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">383</td>
+                    <td class="num">321</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        opts &lt;- teal.transform::variable_choices(ANL)</pre>
+                      <pre class="language-r">                "Label min. segment:",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">384</td>
+                    <td class="num">322</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        selected &lt;- if (!is.null(isolate(input$label_var)) &amp;&amp; isolate(input$label_var) %in% as.character(opts)) {</pre>
+                      <pre class="language-r">                icon("circle-info"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">385</td>
+                    <td class="num">323</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          isolate(input$label_var)</pre>
+                      <pre class="language-r">                span(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">386</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">324</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        } else {</pre>
+                      <pre class="language-r">                  class = "tooltiptext",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">387</td>
+                    <td class="num">325</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          if (length(opts[as.character(opts) == default_outlier_label]) == 0) {</pre>
+                      <pre class="language-r">                  paste(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">388</td>
+                    <td class="num">326</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            opts[[1]]</pre>
+                      <pre class="language-r">                    "Use the slider to choose the cut-off value to define minimum distance between label and point",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">389</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">327</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          } else {</pre>
+                      <pre class="language-r">                    "that generates a line segment.",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">390</td>
+                    <td class="num">328</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            opts[as.character(opts) == default_outlier_label]</pre>
+                      <pre class="language-r">                    "It's only valid when 'Display outlier labels' is checked."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">391</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">392</td>
+                    <td class="num">330</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">393</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        teal.widgets::updateOptionalSelectInput(</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">394</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          session = session,</pre>
+                      <pre class="language-r">                )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">395</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">331</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          inputId = "label_var",</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">332</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          choices = opts,</pre>
+                      <pre class="language-r">            ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">397</td>
+                    <td class="num">333</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          selected = selected</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">398</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">            value_min_max = args$label_segment_threshold,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">399</td>
+                    <td class="num">334</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">            # Extra parameters to sliderInput</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">400</td>
+                    <td class="num">335</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        data &lt;- fortify(stats::lm(form, data = ANL))</pre>
+                      <pre class="language-r">            ticks = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">401</td>
+                    <td class="num">336</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        cooksd &lt;- data$.cooksd[!is.nan(data$.cooksd)]</pre>
+                      <pre class="language-r">            step = .1,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">402</td>
+                    <td class="num">337</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        max_outlier &lt;- max(ceiling(max(cooksd) / mean(cooksd)), 2)</pre>
+                      <pre class="language-r">            round = FALSE</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">403</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">338</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        cur_outlier &lt;- isolate(input$outlier)</pre>
+                      <pre class="language-r">          ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">404</td>
+                    <td class="num">339</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        updateSliderInput(</pre>
+                      <pre class="language-r">          selectInput(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">405</td>
+                    <td class="num">340</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          session = session,</pre>
+                      <pre class="language-r">            inputId = ns("ggtheme"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">406</td>
+                    <td class="num">341</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          inputId = "outlier",</pre>
+                      <pre class="language-r">            label = "Theme (by ggplot):",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">407</td>
+                    <td class="num">342</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          min = 1,</pre>
+                      <pre class="language-r">            choices = ggplot_themes,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">408</td>
+                    <td class="num">343</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          max = max_outlier,</pre>
+                      <pre class="language-r">            selected = args$ggtheme,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">409</td>
+                    <td class="num">344</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          value = if (cur_outlier &lt; max_outlier) cur_outlier else max_outlier * .9</pre>
+                      <pre class="language-r">            multiple = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">410</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">411</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">412</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="missed">
-                    <td class="num">413</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">348</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      anl_merged_q() %&gt;%</pre>
+                      <pre class="language-r">    ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">414</td>
+                    <td class="num">349</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        teal.code::eval_code(substitute(fit &lt;- stats::lm(form, data = ANL), env = list(form = form))) %&gt;%</pre>
+                      <pre class="language-r">    forms = tagList(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">415</td>
+                    <td class="num">350</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        teal.code::eval_code(quote({</pre>
+                      <pre class="language-r">      teal.widgets::verbatim_popup_ui(ns("warning"), "Show Warnings"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">416</td>
+                    <td class="num">351</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          for (regressor in names(fit$contrasts)) {</pre>
+                      <pre class="language-r">      teal.widgets::verbatim_popup_ui(ns("rcode"), "Show R code")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">417</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">352</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            alts &lt;- paste0(levels(ANL[[regressor]]), collapse = "|")</pre>
+                      <pre class="language-r">    ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">418</td>
+                    <td class="num">353</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            names(fit$coefficients) &lt;- gsub(</pre>
+                      <pre class="language-r">    pre_output = args$pre_output,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">419</td>
+                    <td class="num">354</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              paste0("^(", regressor, ")(", alts, ")$"), paste0("\\1", ": ", "\\2"), names(fit$coefficients)</pre>
+                      <pre class="language-r">    post_output = args$post_output</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">420</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">421</td>
+                    <td class="num">356</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          }</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">422</td>
+                    <td class="num">357</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        })) %&gt;%</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">423</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        teal.code::eval_code(quote(summary(fit)))</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">424</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">425</td>
+                    <td class="num">359</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">srv_a_regression &lt;- function(id,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">426</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">360</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    label_col &lt;- reactive({</pre>
+                      <pre class="language-r">                             data,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">427</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">361</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal::validate_inputs(iv_out)</pre>
+                      <pre class="language-r">                             reporter,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">428</td>
+                    <td class="num">362</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                             filter_panel_api,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">429</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">363</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      substitute(</pre>
+                      <pre class="language-r">                             response,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">430</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">        expr = dplyr::if_else(</pre>
+                      <pre class="language-r">                             regressor,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">431</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">365</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          data$.cooksd &gt; outliers * mean(data$.cooksd, na.rm = TRUE),</pre>
+                      <pre class="language-r">                             plot_height,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">432</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">366</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          as.character(stats::na.omit(ANL)[[label_var]]),</pre>
+                      <pre class="language-r">                             plot_width,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">433</td>
+                    <td class="num">367</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ""</pre>
+                      <pre class="language-r">                             ggplot2_args,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">434</td>
+                    <td class="num">368</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ) %&gt;%</pre>
+                      <pre class="language-r">                             default_outlier_label) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">435</td>
+                    <td class="num">369</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          dplyr::if_else(is.na(.), "cooksd == NaN", .),</pre>
+                      <pre class="language-r">  with_reporter &lt;- !missing(reporter) &amp;&amp; inherits(reporter, "Reporter")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">436</td>
+                    <td class="num">370</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        env = list(outliers = input$outlier, label_var = input$label_var)</pre>
+                      <pre class="language-r">  with_filter &lt;- !missing(filter_panel_api) &amp;&amp; inherits(filter_panel_api, "FilterPanelAPI")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">437</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">      )</pre>
+                      <pre class="language-r">  checkmate::assert_class(data, "reactive")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">438</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">372</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">  checkmate::assert_class(isolate(data()), "teal_data")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">439</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">  moduleServer(id, function(input, output, session) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">440</td>
+                    <td class="num">374</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    outlier_label &lt;- reactive({</pre>
+                      <pre class="language-r">    rule_rvr1 &lt;- function(value) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">441</td>
+                    <td class="num">375</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      substitute(</pre>
+                      <pre class="language-r">      if (isTRUE(input$plot_type == "Response vs Regressor")) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">442</td>
+                    <td class="num">376</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        expr = geom_text(label = label_col, hjust = 0, vjust = 1, color = "red"),</pre>
+                      <pre class="language-r">        if (length(value) &gt; 1L) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">443</td>
+                    <td class="num">377</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        env = list(label_col = label_col())</pre>
+                      <pre class="language-r">          "This plot can only have one regressor."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">444</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="never">
-                    <td class="num">445</td>
+                    <td class="num">379</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">446</td>
+                    <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">
-                    <td class="num">447</td>
+                    <td class="num">381</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    output_q &lt;- reactive({</pre>
+                      <pre class="language-r">    rule_rvr2 &lt;- function(other) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">448</td>
+                    <td class="num">382</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      alpha &lt;- input$alpha</pre>
+                      <pre class="language-r">      function(value) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">449</td>
+                    <td class="num">383</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      size &lt;- input$size</pre>
+                      <pre class="language-r">        if (isTRUE(input$plot_type == "Response vs Regressor")) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">450</td>
+                    <td class="num">384</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ggtheme &lt;- input$ggtheme</pre>
+                      <pre class="language-r">          otherval &lt;- selector_list()[[other]]()$select</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">451</td>
+                    <td class="num">385</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      input_type &lt;- input$plot_type</pre>
+                      <pre class="language-r">          if (isTRUE(value == otherval)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">452</td>
+                    <td class="num">386</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      show_outlier &lt;- input$show_outlier</pre>
+                      <pre class="language-r">            "Response and Regressor must be different."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">453</td>
+                    <td class="num">387</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">454</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      teal::validate_inputs(iv_r())</pre>
+                      <pre class="language-r">          }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">455</td>
+                    <td class="num">388</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">456</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      plot_type_0 &lt;- function() {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">457</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        fit &lt;- fit_r()[["fit"]]</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">458</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        ANL &lt;- anl_merged_q()[["ANL"]] # nolint: object_name.</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">459</td>
+                    <td class="num">389</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">460</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">390</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        stopifnot(ncol(fit$model) == 2)</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">461</td>
+                    <td class="num">391</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">462</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        if (!is.factor(ANL[[regression_var()$regressor]])) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">463</td>
+                    <td class="num">392</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          shinyjs::show("size")</pre>
+                      <pre class="language-r">    selector_list &lt;- teal.transform::data_extract_multiple_srv(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">464</td>
+                    <td class="num">393</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          shinyjs::show("alpha")</pre>
+                      <pre class="language-r">      data_extract = list(response = response, regressor = regressor),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">465</td>
+                    <td class="num">394</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          plot &lt;- substitute(</pre>
+                      <pre class="language-r">      datasets = data,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">466</td>
+                    <td class="num">395</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            env = list(</pre>
+                      <pre class="language-r">      select_validation_rule = list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">467</td>
+                    <td class="num">396</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              regressor = regression_var()$regressor,</pre>
+                      <pre class="language-r">        regressor = shinyvalidate::compose_rules(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">468</td>
+                    <td class="num">397</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              response = regression_var()$response,</pre>
+                      <pre class="language-r">          shinyvalidate::sv_required("At least one regressor should be selected."),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">469</td>
+                    <td class="num">398</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              size = size,</pre>
+                      <pre class="language-r">          rule_rvr1,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">470</td>
+                    <td class="num">399</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              alpha = alpha</pre>
+                      <pre class="language-r">          rule_rvr2("response")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">471</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="missed">
-                    <td class="num">472</td>
+                    <td class="num">401</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            expr = ggplot(</pre>
+                      <pre class="language-r">        response = shinyvalidate::compose_rules(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">473</td>
+                    <td class="num">402</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              fit$model[, 2:1],</pre>
+                      <pre class="language-r">          shinyvalidate::sv_required("At least one response should be selected."),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">474</td>
+                    <td class="num">403</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              aes_string(regressor, response)</pre>
+                      <pre class="language-r">          rule_rvr2("regressor")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">475</td>
+                    <td class="num">404</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">476</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">405</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              geom_point(size = size, alpha = alpha) +</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">477</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">406</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              stat_smooth(</pre>
+                      <pre class="language-r">    )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">407</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">478</td>
+                    <td class="num">408</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                method = "lm",</pre>
+                      <pre class="language-r">    iv_r &lt;- reactive({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">479</td>
+                    <td class="num">409</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                formula = y ~ x,</pre>
+                      <pre class="language-r">      iv &lt;- shinyvalidate::InputValidator$new()</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">480</td>
+                    <td class="num">410</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                se = FALSE</pre>
+                      <pre class="language-r">      teal.transform::compose_and_enable_validators(iv, selector_list)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">481</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="never">
-                    <td class="num">482</td>
+                    <td class="num">412</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">483</td>
+                    <td class="num">413</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          if (show_outlier) {</pre>
+                      <pre class="language-r">    iv_out &lt;- shinyvalidate::InputValidator$new()</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">484</td>
+                    <td class="num">414</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            plot &lt;- substitute(</pre>
+                      <pre class="language-r">    iv_out$condition(~ isTRUE(input$show_outlier))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">485</td>
+                    <td class="num">415</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              expr = plot + outlier_label,</pre>
+                      <pre class="language-r">    iv_out$add_rule("label_var", shinyvalidate::sv_required("Please provide an `Outlier label` variable"))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">486</td>
+                    <td class="num">416</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              env = list(plot = plot, outlier_label = outlier_label())</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">487</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">488</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          }</pre>
+                      <pre class="language-r">    iv_out$enable()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">489</td>
+                    <td class="num">417</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        } else {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">490</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          shinyjs::hide("size")</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">491</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          shinyjs::hide("alpha")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">492</td>
+                    <td class="num">418</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          plot &lt;- substitute(</pre>
+                      <pre class="language-r">    anl_merged_input &lt;- teal.transform::merge_expression_srv(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">493</td>
+                    <td class="num">419</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            expr = ggplot(fit$model[, 2:1], aes_string(regressor, response)) +</pre>
+                      <pre class="language-r">      selector_list = selector_list,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">494</td>
+                    <td class="num">420</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              geom_boxplot(),</pre>
+                      <pre class="language-r">      datasets = data</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">495</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">421</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            env = list(regressor = regression_var()$regressor, response = regression_var()$response)</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">496</td>
+                    <td class="num">422</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">497</td>
+                    <td class="num">423</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          if (show_outlier) {</pre>
+                      <pre class="language-r">    regression_var &lt;- reactive({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">498</td>
+                    <td class="num">424</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            plot &lt;- substitute(expr = plot + outlier_label, env = list(plot = plot, outlier_label = outlier_label()))</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">499</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          }</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">500</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">      teal::validate_inputs(iv_r())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">501</td>
+                    <td class="num">425</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">502</td>
+                    <td class="num">426</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        parsed_ggplot2_args &lt;- teal.widgets::parse_ggplot2_args(</pre>
+                      <pre class="language-r">      list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">503</td>
+                    <td class="num">427</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          teal.widgets::resolve_ggplot2_args(</pre>
+                      <pre class="language-r">        response = as.vector(anl_merged_input()$columns_source$response),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">504</td>
+                    <td class="num">428</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            user_plot = ggplot2_args[["Response vs Regressor"]],</pre>
+                      <pre class="language-r">        regressor = as.vector(anl_merged_input()$columns_source$regressor)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">505</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">429</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">430</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            user_default = ggplot2_args$default,</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">506</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">431</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            module_plot = teal.widgets::ggplot2_args(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">507</td>
+                    <td class="num">432</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              labs = list(</pre>
+                      <pre class="language-r">    anl_merged_q &lt;- reactive({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">508</td>
+                    <td class="num">433</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                title = "Response vs Regressor",</pre>
+                      <pre class="language-r">      req(anl_merged_input())</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">509</td>
+                    <td class="num">434</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                x = varname_w_label(regression_var()$regressor, ANL),</pre>
+                      <pre class="language-r">      data() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">510</td>
+                    <td class="num">435</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                y = varname_w_label(regression_var()$response, ANL)</pre>
+                      <pre class="language-r">        teal.code::eval_code(as.expression(anl_merged_input()$expr))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">511</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="missed">
-                    <td class="num">512</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">              theme = list()</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">513</td>
+                    <td class="num">438</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">    # sets qenv object and populates it with data merge call and fit expression</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">514</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">439</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ),</pre>
+                      <pre class="language-r">    fit_r &lt;- reactive({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">515</td>
+                    <td class="num">440</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ggtheme = ggtheme</pre>
+                      <pre class="language-r">      ANL &lt;- anl_merged_q()[["ANL"]] # nolint: object_name.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">516</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">441</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">      teal::validate_has_data(ANL, 10)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">517</td>
+                    <td class="num">442</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">518</td>
+                    <td class="num">443</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        teal.code::eval_code(</pre>
+                      <pre class="language-r">      validate(need(is.numeric(ANL[regression_var()$response][[1]]), "Response variable should be numeric."))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">519</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">444</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          fit_r(),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">520</td>
+                    <td class="num">445</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          substitute(</pre>
+                      <pre class="language-r">      teal::validate_has_data(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">521</td>
+                    <td class="num">446</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            expr = {</pre>
+                      <pre class="language-r">        ANL[, c(regression_var()$response, regression_var()$regressor)], 10,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">522</td>
+                    <td class="num">447</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              class(fit$residuals) &lt;- NULL</pre>
+                      <pre class="language-r">        complete = TRUE, allow_inf = FALSE</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">448</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">449</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">523</td>
+                    <td class="num">450</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              data &lt;- fortify(fit)</pre>
+                      <pre class="language-r">      form &lt;- stats::as.formula(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">524</td>
+                    <td class="num">451</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              g &lt;- plot</pre>
+                      <pre class="language-r">        paste(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">525</td>
+                    <td class="num">452</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              print(g)</pre>
+                      <pre class="language-r">          regression_var()$response,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">526</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">453</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            },</pre>
+                      <pre class="language-r">          paste(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">527</td>
+                    <td class="num">454</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            env = list(</pre>
+                      <pre class="language-r">            regression_var()$regressor,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">528</td>
+                    <td class="num">455</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              plot = Reduce(function(x, y) call("+", x, y), c(plot, parsed_ggplot2_args))</pre>
+                      <pre class="language-r">            collapse = " + "</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">529</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">530</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">457</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">          sep = " ~ "</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">531</td>
+                    <td class="num">458</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">532</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">533</td>
+                    <td class="num">460</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">534</td>
+                    <td class="num">461</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      plot_base &lt;- function() {</pre>
+                      <pre class="language-r">      if (input$show_outlier) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">535</td>
+                    <td class="num">462</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        base_fit &lt;- fit_r()</pre>
+                      <pre class="language-r">        opts &lt;- teal.transform::variable_choices(ANL)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">536</td>
+                    <td class="num">463</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        teal.code::eval_code(</pre>
+                      <pre class="language-r">        selected &lt;- if (!is.null(isolate(input$label_var)) &amp;&amp; isolate(input$label_var) %in% as.character(opts)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">537</td>
+                    <td class="num">464</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          base_fit,</pre>
+                      <pre class="language-r">          isolate(input$label_var)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">538</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">465</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          quote({</pre>
+                      <pre class="language-r">        } else {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">539</td>
+                    <td class="num">466</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            class(fit$residuals) &lt;- NULL</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">540</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          if (length(opts[as.character(opts) == default_outlier_label]) == 0) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">541</td>
+                    <td class="num">467</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            data &lt;- ggplot2::fortify(fit)</pre>
+                      <pre class="language-r">            opts[[1]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">542</td>
+                    <td class="num">468</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">543</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            smooth &lt;- function(x, y) {</pre>
+                      <pre class="language-r">          } else {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">544</td>
+                    <td class="num">469</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              as.data.frame(stats::lowess(x, y, f = 2 / 3, iter = 3))</pre>
+                      <pre class="language-r">            opts[as.character(opts) == default_outlier_label]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">545</td>
+                    <td class="num">470</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            }</pre>
+                      <pre class="language-r">          }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">546</td>
+                    <td class="num">471</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">547</td>
+                    <td class="num">472</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            smoothy_aes &lt;- ggplot2::aes_string(x = "x", y = "y")</pre>
+                      <pre class="language-r">        teal.widgets::updateOptionalSelectInput(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">548</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">473</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          session = session,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">549</td>
+                    <td class="num">474</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            reg_form &lt;- deparse(fit$call[[2]])</pre>
+                      <pre class="language-r">          inputId = "label_var",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">550</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">475</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          })</pre>
+                      <pre class="language-r">          choices = opts,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">551</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">476</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">          selected = selected</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">552</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">553</td>
+                    <td class="num">478</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">554</td>
+                    <td class="num">479</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      plot_type_1 &lt;- function(plot_base) {</pre>
+                      <pre class="language-r">        data &lt;- fortify(stats::lm(form, data = ANL))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">555</td>
+                    <td class="num">480</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        shinyjs::show("size")</pre>
+                      <pre class="language-r">        cooksd &lt;- data$.cooksd[!is.nan(data$.cooksd)]</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">556</td>
+                    <td class="num">481</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        shinyjs::show("alpha")</pre>
+                      <pre class="language-r">        max_outlier &lt;- max(ceiling(max(cooksd) / mean(cooksd)), 2)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">557</td>
+                    <td class="num">482</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        plot &lt;- substitute(</pre>
+                      <pre class="language-r">        cur_outlier &lt;- isolate(input$outlier)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">558</td>
+                    <td class="num">483</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          expr = ggplot(data = data, aes(.fitted, .resid)) +</pre>
+                      <pre class="language-r">        updateSliderInput(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">559</td>
+                    <td class="num">484</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            geom_point(size = size, alpha = alpha) +</pre>
+                      <pre class="language-r">          session = session,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">560</td>
+                    <td class="num">485</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            geom_hline(yintercept = 0, linetype = "dashed", size = 1) +</pre>
+                      <pre class="language-r">          inputId = "outlier",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">561</td>
+                    <td class="num">486</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            geom_line(data = smoothy, mapping = smoothy_aes),</pre>
+                      <pre class="language-r">          min = 1,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">562</td>
+                    <td class="num">487</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          env = list(size = size, alpha = alpha)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">563</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">          max = max_outlier,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">564</td>
+                    <td class="num">488</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (show_outlier) {</pre>
+                      <pre class="language-r">          value = if (cur_outlier &lt; max_outlier) cur_outlier else max_outlier * .9</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">565</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">489</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          plot &lt;- substitute(expr = plot + outlier_label, env = list(plot = plot, outlier_label = outlier_label()))</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">566</td>
+                    <td class="num">490</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">567</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">568</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        parsed_ggplot2_args &lt;- teal.widgets::parse_ggplot2_args(</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">569</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          teal.widgets::resolve_ggplot2_args(</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">570</td>
+                    <td class="num">492</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            user_plot = ggplot2_args[["Residuals vs Fitted"]],</pre>
+                      <pre class="language-r">      anl_merged_q() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">571</td>
+                    <td class="num">493</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            user_default = ggplot2_args$default,</pre>
+                      <pre class="language-r">        teal.code::eval_code(substitute(fit &lt;- stats::lm(form, data = ANL), env = list(form = form))) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">572</td>
+                    <td class="num">494</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            module_plot = teal.widgets::ggplot2_args(</pre>
+                      <pre class="language-r">        teal.code::eval_code(quote({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">573</td>
+                    <td class="num">495</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              labs = list(</pre>
+                      <pre class="language-r">          for (regressor in names(fit$contrasts)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">574</td>
+                    <td class="num">496</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                x = quote(paste0("Fitted values\nlm(", reg_form, ")")),</pre>
+                      <pre class="language-r">            alts &lt;- paste0(levels(ANL[[regressor]]), collapse = "|")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">575</td>
+                    <td class="num">497</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                y = "Residuals",</pre>
+                      <pre class="language-r">            names(fit$coefficients) &lt;- gsub(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">576</td>
+                    <td class="num">498</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                title = "Residuals vs Fitted"</pre>
+                      <pre class="language-r">              paste0("^(", regressor, ")(", alts, ")$"), paste0("\\1", ": ", "\\2"), names(fit$coefficients)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">577</td>
+                    <td class="num">499</td>
                     <td class="coverage"></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="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="never">
-                    <td class="num">579</td>
+                    <td class="num">501</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ),</pre>
+                      <pre class="language-r">        })) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">580</td>
+                    <td class="num">502</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ggtheme = ggtheme</pre>
+                      <pre class="language-r">        teal.code::eval_code(quote(summary(fit)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">581</td>
+                    <td class="num">503</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">582</td>
+                    <td class="num">504</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">583</td>
+                    <td class="num">505</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        teal.code::eval_code(</pre>
+                      <pre class="language-r">    label_col &lt;- reactive({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">584</td>
+                    <td class="num">506</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          plot_base,</pre>
+                      <pre class="language-r">      teal::validate_inputs(iv_out)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">585</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">507</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          substitute(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">586</td>
+                    <td class="num">508</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            expr = {</pre>
+                      <pre class="language-r">      substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">587</td>
+                    <td class="num">509</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              smoothy &lt;- smooth(data$.fitted, data$.resid)</pre>
+                      <pre class="language-r">        expr = dplyr::if_else(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">588</td>
+                    <td class="num">510</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              g &lt;- plot</pre>
+                      <pre class="language-r">          data$.cooksd &gt; outliers * mean(data$.cooksd, na.rm = TRUE),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">589</td>
+                    <td class="num">511</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              print(g)</pre>
+                      <pre class="language-r">          as.character(stats::na.omit(ANL)[[label_var]]),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">590</td>
+                    <td class="num">512</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            },</pre>
+                      <pre class="language-r">          ""</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">513</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">591</td>
+                    <td class="num">514</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            env = list(</pre>
+                      <pre class="language-r">          dplyr::if_else(is.na(.), "cooksd == NaN", .),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">592</td>
+                    <td class="num">515</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              plot = Reduce(function(x, y) call("+", x, y), c(plot, parsed_ggplot2_args))</pre>
+                      <pre class="language-r">        env = list(outliers = input$outlier, label_var = input$label_var)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">593</td>
+                    <td class="num">516</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">594</td>
+                    <td class="num">517</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">595</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="missed">
+                    <td class="num">519</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    label_min_segment &lt;- reactive({</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">520</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      input$label_min_segment</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">596</td>
+                    <td class="num">521</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">597</td>
+                    <td class="num">522</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">598</td>
+                    <td class="num">523</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      plot_type_2 &lt;- function(plot_base) {</pre>
+                      <pre class="language-r">    outlier_label &lt;- reactive({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">599</td>
+                    <td class="num">524</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        shinyjs::show("size")</pre>
+                      <pre class="language-r">      substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">600</td>
+                    <td class="num">525</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        shinyjs::show("alpha")</pre>
+                      <pre class="language-r">        expr = ggrepel::geom_text_repel(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">601</td>
+                    <td class="num">526</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        plot &lt;- substitute(</pre>
+                      <pre class="language-r">          label = label_col,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">602</td>
+                    <td class="num">527</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          expr = ggplot(data = data, aes(sample = .stdresid)) +</pre>
+                      <pre class="language-r">          color = "red",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">603</td>
+                    <td class="num">528</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            stat_qq(size = size, alpha = alpha) +</pre>
+                      <pre class="language-r">          hjust = 0,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">529</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          vjust = 1,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">530</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          max.overlaps = Inf,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">531</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          min.segment.length = label_min_segment,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">532</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          segment.alpha = 0.5,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">533</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          seed = 123</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">534</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">604</td>
+                    <td class="num">535</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            geom_abline(linetype = "dashed"),</pre>
+                      <pre class="language-r">        env = list(label_col = label_col(), label_min_segment = label_min_segment())</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">605</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">536</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          env = list(size = size, alpha = alpha)</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">606</td>
+                    <td class="num">537</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">607</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">538</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (show_outlier) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">608</td>
+                    <td class="num">539</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          plot &lt;- substitute(</pre>
+                      <pre class="language-r">    output_q &lt;- reactive({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">609</td>
+                    <td class="num">540</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            expr = plot +</pre>
+                      <pre class="language-r">      alpha &lt;- input$alpha</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">610</td>
+                    <td class="num">541</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              stat_qq(</pre>
+                      <pre class="language-r">      size &lt;- input$size</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">611</td>
+                    <td class="num">542</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                geom = "text",</pre>
+                      <pre class="language-r">      ggtheme &lt;- input$ggtheme</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">612</td>
+                    <td class="num">543</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                label = label_col %&gt;%</pre>
+                      <pre class="language-r">      input_type &lt;- input$plot_type</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">613</td>
+                    <td class="num">544</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  data.frame(label = .) %&gt;%</pre>
+                      <pre class="language-r">      show_outlier &lt;- input$show_outlier</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">614</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">545</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  dplyr::filter(label != "cooksd == NaN") %&gt;%</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">615</td>
+                    <td class="num">546</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  unlist(),</pre>
+                      <pre class="language-r">      teal::validate_inputs(iv_r())</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">616</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">                hjust = 0,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">617</td>
+                    <td class="num">548</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                vjust = 1,</pre>
+                      <pre class="language-r">      plot_type_0 &lt;- function() {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">618</td>
+                    <td class="num">549</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                color = "red"</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">619</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">              ),</pre>
+                      <pre class="language-r">        fit &lt;- fit_r()[["fit"]]</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">620</td>
+                    <td class="num">550</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            env = list(plot = plot, label_col = label_col())</pre>
+                      <pre class="language-r">        ANL &lt;- anl_merged_q()[["ANL"]] # nolint: object_name.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">621</td>
+                    <td class="num">551</td>
                     <td class="coverage"></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="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">552</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">        stopifnot(ncol(fit$model) == 2)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">623</td>
+                    <td class="num">553</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">624</td>
+                    <td class="num">554</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        parsed_ggplot2_args &lt;- teal.widgets::parse_ggplot2_args(</pre>
+                      <pre class="language-r">        if (!is.factor(ANL[[regression_var()$regressor]])) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">625</td>
+                    <td class="num">555</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          teal.widgets::resolve_ggplot2_args(</pre>
+                      <pre class="language-r">          shinyjs::show("size")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">626</td>
+                    <td class="num">556</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            user_plot = ggplot2_args[["Normal Q-Q"]],</pre>
+                      <pre class="language-r">          shinyjs::show("alpha")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">627</td>
+                    <td class="num">557</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            user_default = ggplot2_args$default,</pre>
+                      <pre class="language-r">          plot &lt;- substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">628</td>
+                    <td class="num">558</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            module_plot = teal.widgets::ggplot2_args(</pre>
+                      <pre class="language-r">            env = list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">629</td>
+                    <td class="num">559</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              labs = list(</pre>
+                      <pre class="language-r">              regressor = regression_var()$regressor,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">630</td>
+                    <td class="num">560</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                x = quote(paste0("Theoretical Quantiles\nlm(", reg_form, ")")),</pre>
+                      <pre class="language-r">              response = regression_var()$response,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">631</td>
+                    <td class="num">561</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                y = "Standardized residuals",</pre>
+                      <pre class="language-r">              size = size,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">632</td>
+                    <td class="num">562</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                title = "Normal Q-Q"</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">633</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">              )</pre>
+                      <pre class="language-r">              alpha = alpha</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">634</td>
+                    <td class="num">563</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">            ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">635</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">          ),</pre>
+                      <pre class="language-r">            expr = ggplot(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">636</td>
+                    <td class="num">565</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ggtheme = ggtheme</pre>
+                      <pre class="language-r">              fit$model[, 2:1],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">637</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">        )</pre>
+                      <pre class="language-r">              aes_string(regressor, response)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">638</td>
+                    <td class="num">567</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">639</td>
+                    <td class="num">568</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        teal.code::eval_code(</pre>
+                      <pre class="language-r">              geom_point(size = size, alpha = alpha) +</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">640</td>
+                    <td class="num">569</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          plot_base,</pre>
+                      <pre class="language-r">              stat_smooth(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">641</td>
+                    <td class="num">570</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          substitute(</pre>
+                      <pre class="language-r">                method = "lm",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">642</td>
+                    <td class="num">571</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            expr = {</pre>
+                      <pre class="language-r">                formula = y ~ x,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">643</td>
+                    <td class="num">572</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              g &lt;- plot</pre>
+                      <pre class="language-r">                se = FALSE</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">644</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">573</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              print(g)</pre>
+                      <pre class="language-r">              )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">645</td>
+                    <td class="num">574</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">646</td>
+                    <td class="num">575</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            env = list(</pre>
+                      <pre class="language-r">          if (show_outlier) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">647</td>
+                    <td class="num">576</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              plot = Reduce(function(x, y) call("+", x, y), c(plot, parsed_ggplot2_args))</pre>
+                      <pre class="language-r">            plot &lt;- substitute(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">648</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">577</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">              expr = plot + outlier_label,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">649</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">578</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">              env = list(plot = plot, outlier_label = outlier_label())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">650</td>
+                    <td class="num">579</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">651</td>
+                    <td class="num">580</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">          }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">652</td>
+                    <td class="num">581</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">653</td>
+                    <td class="num">582</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      plot_type_3 &lt;- function(plot_base) {</pre>
+                      <pre class="language-r">          shinyjs::hide("size")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">654</td>
+                    <td class="num">583</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        shinyjs::show("size")</pre>
+                      <pre class="language-r">          shinyjs::hide("alpha")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">655</td>
+                    <td class="num">584</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        shinyjs::show("alpha")</pre>
+                      <pre class="language-r">          plot &lt;- substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">656</td>
+                    <td class="num">585</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        plot &lt;- substitute(</pre>
+                      <pre class="language-r">            expr = ggplot(fit$model[, 2:1], aes_string(regressor, response)) +</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">657</td>
+                    <td class="num">586</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          expr = ggplot(data = data, aes(.fitted, sqrt(abs(.stdresid)))) +</pre>
+                      <pre class="language-r">              geom_boxplot(),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">658</td>
+                    <td class="num">587</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            geom_point(size = size, alpha = alpha) +</pre>
+                      <pre class="language-r">            env = list(regressor = regression_var()$regressor, response = regression_var()$response)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">659</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">            geom_line(data = smoothy, mapping = smoothy_aes),</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">660</td>
+                    <td class="num">589</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          env = list(size = size, alpha = alpha)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">661</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">          if (show_outlier) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">662</td>
+                    <td class="num">590</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (show_outlier) {</pre>
+                      <pre class="language-r">            plot &lt;- substitute(expr = plot + outlier_label, env = list(plot = plot, outlier_label = outlier_label()))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">663</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">591</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          plot &lt;- substitute(expr = plot + outlier_label, env = list(plot = plot, outlier_label = outlier_label()))</pre>
+                      <pre class="language-r">          }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">664</td>
+                    <td class="num">592</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">593</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">666</td>
+                    <td class="num">594</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">        parsed_ggplot2_args &lt;- teal.widgets::parse_ggplot2_args(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">667</td>
+                    <td class="num">595</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">          teal.widgets::resolve_ggplot2_args(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">668</td>
+                    <td class="num">596</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            user_plot = ggplot2_args[["Scale-Location"]],</pre>
+                      <pre class="language-r">            user_plot = ggplot2_args[["Response vs Regressor"]],</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">669</td>
+                    <td class="num">597</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">            user_default = ggplot2_args$default,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">670</td>
+                    <td class="num">598</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">            module_plot = teal.widgets::ggplot2_args(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">671</td>
+                    <td class="num">599</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">              labs = list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">672</td>
+                    <td class="num">600</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                x = quote(paste0("Fitted values\nlm(", reg_form, ")")),</pre>
+                      <pre class="language-r">                title = "Response vs Regressor",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">673</td>
+                    <td class="num">601</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                y = quote(expression(sqrt(abs(`Standardized residuals`)))),</pre>
+                      <pre class="language-r">                x = varname_w_label(regression_var()$regressor, ANL),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">674</td>
+                    <td class="num">602</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                title = "Scale-Location"</pre>
+                      <pre class="language-r">                y = varname_w_label(regression_var()$response, ANL)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">675</td>
+                    <td class="num">603</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">604</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">              theme = list()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">676</td>
+                    <td class="num">605</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">            )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">677</td>
+                    <td class="num">606</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">          ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">678</td>
+                    <td class="num">607</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">          ggtheme = ggtheme</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">679</td>
+                    <td class="num">608</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">680</td>
+                    <td class="num">609</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="num">610</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">        teal.code::eval_code(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">682</td>
+                    <td class="num">611</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          plot_base,</pre>
+                      <pre class="language-r">          fit_r(),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">683</td>
+                    <td class="num">612</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">          substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">684</td>
+                    <td class="num">613</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">            expr = {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">685</td>
+                    <td class="num">614</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              smoothy &lt;- smooth(data$.fitted, sqrt(abs(data$.stdresid)))</pre>
+                      <pre class="language-r">              class(fit$residuals) &lt;- NULL</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">686</td>
+                    <td class="num">615</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">              data &lt;- fortify(fit)</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">616</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">              g &lt;- plot</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">687</td>
+                    <td class="num">617</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">              print(g)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">688</td>
+                    <td class="num">618</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">            },</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">689</td>
+                    <td class="num">619</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">            env = list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">690</td>
+                    <td class="num">620</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">              plot = Reduce(function(x, y) call("+", x, y), c(plot, parsed_ggplot2_args))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">691</td>
+                    <td class="num">621</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">            )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">692</td>
+                    <td class="num">622</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">693</td>
+                    <td class="num">623</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">694</td>
+                    <td class="num">624</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">695</td>
+                    <td class="num">625</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">696</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      plot_type_4 &lt;- function(plot_base) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">697</td>
+                    <td class="num">626</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        shinyjs::hide("size")</pre>
+                      <pre class="language-r">      plot_base &lt;- function() {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">698</td>
+                    <td class="num">627</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        shinyjs::show("alpha")</pre>
+                      <pre class="language-r">        base_fit &lt;- fit_r()</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">699</td>
+                    <td class="num">628</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        plot &lt;- substitute(</pre>
+                      <pre class="language-r">        teal.code::eval_code(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">700</td>
+                    <td class="num">629</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          expr = ggplot(data = data, aes(seq_along(.cooksd), .cooksd)) +</pre>
+                      <pre class="language-r">          base_fit,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">701</td>
+                    <td class="num">630</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            geom_col(alpha = alpha),</pre>
+                      <pre class="language-r">          quote({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">702</td>
+                    <td class="num">631</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          env = list(alpha = alpha)</pre>
+                      <pre class="language-r">            class(fit$residuals) &lt;- NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">703</td>
+                    <td class="num">632</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">704</td>
+                    <td class="num">633</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (show_outlier) {</pre>
+                      <pre class="language-r">            data &lt;- ggplot2::fortify(fit)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">705</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">634</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          plot &lt;- substitute(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">706</td>
+                    <td class="num">635</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            expr = plot +</pre>
+                      <pre class="language-r">            smooth &lt;- function(x, y) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">707</td>
+                    <td class="num">636</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              geom_hline(</pre>
+                      <pre class="language-r">              as.data.frame(stats::lowess(x, y, f = 2 / 3, iter = 3))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">708</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">637</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                yintercept = c(</pre>
+                      <pre class="language-r">            }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">709</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">638</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  outlier * mean(data$.cooksd, na.rm = TRUE),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">710</td>
+                    <td class="num">639</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  mean(data$.cooksd, na.rm = TRUE)</pre>
+                      <pre class="language-r">            smoothy_aes &lt;- ggplot2::aes_string(x = "x", y = "y")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">711</td>
+                    <td class="num">640</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                ),</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">712</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                color = "red",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">713</td>
+                    <td class="num">641</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                linetype = "dashed"</pre>
+                      <pre class="language-r">            reg_form &lt;- deparse(fit$call[[2]])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">714</td>
+                    <td class="num">642</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">715</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">              geom_text(</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">716</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">                aes(</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">717</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">645</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  x = 0,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">718</td>
+                    <td class="num">646</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  y = mean(data$.cooksd, na.rm = TRUE),</pre>
+                      <pre class="language-r">      plot_type_1 &lt;- function(plot_base) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">719</td>
+                    <td class="num">647</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  label = paste("mu", "=", round(mean(data$.cooksd, na.rm = TRUE), 4)),</pre>
+                      <pre class="language-r">        shinyjs::show("size")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">720</td>
+                    <td class="num">648</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  vjust = -1,</pre>
+                      <pre class="language-r">        shinyjs::show("alpha")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">721</td>
+                    <td class="num">649</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  hjust = 0,</pre>
+                      <pre class="language-r">        plot &lt;- substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">722</td>
+                    <td class="num">650</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  color = "red",</pre>
+                      <pre class="language-r">          expr = ggplot(data = data, aes(.fitted, .resid)) +</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">723</td>
+                    <td class="num">651</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  angle = 90</pre>
+                      <pre class="language-r">            geom_point(size = size, alpha = alpha) +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">724</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">652</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                ),</pre>
+                      <pre class="language-r">            geom_hline(yintercept = 0, linetype = "dashed", size = 1) +</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">725</td>
+                    <td class="num">653</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                parse = TRUE,</pre>
+                      <pre class="language-r">            geom_line(data = smoothy, mapping = smoothy_aes),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">726</td>
+                    <td class="num">654</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                show.legend = FALSE</pre>
+                      <pre class="language-r">          env = list(size = size, alpha = alpha)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">727</td>
+                    <td class="num">655</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">728</td>
+                    <td class="num">656</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              outlier_label,</pre>
+                      <pre class="language-r">        if (show_outlier) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">729</td>
+                    <td class="num">657</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            env = list(plot = plot, outlier = input$outlier, outlier_label = outlier_label())</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">730</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">          plot &lt;- substitute(expr = plot + outlier_label, env = list(plot = plot, outlier_label = outlier_label()))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">731</td>
+                    <td class="num">658</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">732</td>
+                    <td class="num">659</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">733</td>
+                    <td class="num">660</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">        parsed_ggplot2_args &lt;- teal.widgets::parse_ggplot2_args(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">734</td>
+                    <td class="num">661</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">          teal.widgets::resolve_ggplot2_args(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">735</td>
+                    <td class="num">662</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            user_plot = ggplot2_args[["Cook's distance"]],</pre>
+                      <pre class="language-r">            user_plot = ggplot2_args[["Residuals vs Fitted"]],</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">736</td>
+                    <td class="num">663</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">            user_default = ggplot2_args$default,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">737</td>
+                    <td class="num">664</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">            module_plot = teal.widgets::ggplot2_args(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">738</td>
+                    <td class="num">665</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">              labs = list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">739</td>
+                    <td class="num">666</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                x = quote(paste0("Obs. number\nlm(", reg_form, ")")),</pre>
+                      <pre class="language-r">                x = quote(paste0("Fitted values\nlm(", reg_form, ")")),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">740</td>
+                    <td class="num">667</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                y = "Cook's distance",</pre>
+                      <pre class="language-r">                y = "Residuals",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">741</td>
+                    <td class="num">668</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                title = "Cook's distance"</pre>
+                      <pre class="language-r">                title = "Residuals vs Fitted"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">742</td>
+                    <td class="num">669</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">              )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">743</td>
+                    <td class="num">670</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">            )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">744</td>
+                    <td class="num">671</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">          ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">745</td>
+                    <td class="num">672</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">          ggtheme = ggtheme</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">746</td>
+                    <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">747</td>
+                    <td class="num">674</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">748</td>
+                    <td class="num">675</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">        teal.code::eval_code(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">749</td>
+                    <td class="num">676</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">          plot_base,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">750</td>
+                    <td class="num">677</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">          substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">751</td>
+                    <td class="num">678</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">            expr = {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">752</td>
+                    <td class="num">679</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">              smoothy &lt;- smooth(data$.fitted, data$.resid)</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">680</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">              g &lt;- plot</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">753</td>
+                    <td class="num">681</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">              print(g)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">754</td>
+                    <td class="num">682</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">            },</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">755</td>
+                    <td class="num">683</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">            env = list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">756</td>
+                    <td class="num">684</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">              plot = Reduce(function(x, y) call("+", x, y), c(plot, parsed_ggplot2_args))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">757</td>
+                    <td class="num">685</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">            )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">758</td>
+                    <td class="num">686</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">759</td>
+                    <td class="num">687</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">760</td>
+                    <td class="num">688</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">761</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">762</td>
+                    <td class="num">689</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">763</td>
+                    <td class="num">690</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      plot_type_5 &lt;- function(plot_base) {</pre>
+                      <pre class="language-r">      plot_type_2 &lt;- function(plot_base) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">764</td>
+                    <td class="num">691</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">        shinyjs::show("size")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">765</td>
+                    <td class="num">692</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">        shinyjs::show("alpha")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">766</td>
+                    <td class="num">693</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">        plot &lt;- substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">767</td>
+                    <td class="num">694</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          expr = ggplot(data = data, aes(.hat, .stdresid)) +</pre>
+                      <pre class="language-r">          expr = ggplot(data = data, aes(sample = .stdresid)) +</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">768</td>
+                    <td class="num">695</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            geom_vline(</pre>
+                      <pre class="language-r">            stat_qq(size = size, alpha = alpha) +</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">769</td>
+                    <td class="num">696</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              size = 1,</pre>
+                      <pre class="language-r">            geom_abline(linetype = "dashed"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">770</td>
+                    <td class="num">697</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              colour = "black",</pre>
+                      <pre class="language-r">          env = list(size = size, alpha = alpha)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">698</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">771</td>
+                    <td class="num">699</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              linetype = "dashed",</pre>
+                      <pre class="language-r">        if (show_outlier) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">772</td>
+                    <td class="num">700</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              xintercept = 0</pre>
+                      <pre class="language-r">          plot &lt;- substitute(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">773</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">701</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ) +</pre>
+                      <pre class="language-r">            expr = plot +</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">774</td>
+                    <td class="num">702</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            geom_hline(</pre>
+                      <pre class="language-r">              stat_qq(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">775</td>
+                    <td class="num">703</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              size = 1,</pre>
+                      <pre class="language-r">                geom = ggrepel::GeomTextRepel,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">776</td>
+                    <td class="num">704</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              colour = "black",</pre>
+                      <pre class="language-r">                label = label_col %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">777</td>
+                    <td class="num">705</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              linetype = "dashed",</pre>
+                      <pre class="language-r">                  data.frame(label = .) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">778</td>
+                    <td class="num">706</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              yintercept = 0</pre>
+                      <pre class="language-r">                  dplyr::filter(label != "cooksd == NaN") %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">779</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">707</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ) +</pre>
+                      <pre class="language-r">                  unlist(),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">780</td>
+                    <td class="num">708</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            geom_point(size = size, alpha = alpha) +</pre>
+                      <pre class="language-r">                color = "red",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">781</td>
+                    <td class="num">709</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            geom_line(data = smoothy, mapping = smoothy_aes),</pre>
+                      <pre class="language-r">                hjust = 0,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">782</td>
+                    <td class="num">710</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          env = list(size = size, alpha = alpha)</pre>
+                      <pre class="language-r">                vjust = 0,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">783</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">711</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">                max.overlaps = Inf,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">784</td>
+                    <td class="num">712</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (show_outlier) {</pre>
+                      <pre class="language-r">                min.segment.length = label_min_segment,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">785</td>
+                    <td class="num">713</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          plot &lt;- substitute(expr = plot + outlier_label, env = list(plot = plot, outlier_label = outlier_label()))</pre>
+                      <pre class="language-r">                segment.alpha = .5,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">714</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                seed = 123</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">786</td>
+                    <td class="num">715</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">              ),</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">716</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            env = list(plot = plot, label_col = label_col(), label_min_segment = label_min_segment())</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">717</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">718</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">787</td>
+                    <td class="num">719</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">788</td>
+                    <td class="num">720</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">        parsed_ggplot2_args &lt;- teal.widgets::parse_ggplot2_args(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">789</td>
+                    <td class="num">721</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">          teal.widgets::resolve_ggplot2_args(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">790</td>
+                    <td class="num">722</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            user_plot = ggplot2_args[["Residuals vs Leverage"]],</pre>
+                      <pre class="language-r">            user_plot = ggplot2_args[["Normal Q-Q"]],</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">791</td>
+                    <td class="num">723</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">            user_default = ggplot2_args$default,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">792</td>
+                    <td class="num">724</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">            module_plot = teal.widgets::ggplot2_args(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">793</td>
+                    <td class="num">725</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">              labs = list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">794</td>
+                    <td class="num">726</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                x = quote(paste0("Standardized residuals\nlm(", reg_form, ")")),</pre>
+                      <pre class="language-r">                x = quote(paste0("Theoretical Quantiles\nlm(", reg_form, ")")),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">795</td>
+                    <td class="num">727</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                y = "Leverage",</pre>
+                      <pre class="language-r">                y = "Standardized residuals",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">796</td>
+                    <td class="num">728</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                title = "Residuals vs Leverage"</pre>
+                      <pre class="language-r">                title = "Normal Q-Q"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">797</td>
+                    <td class="num">729</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">              )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">798</td>
+                    <td class="num">730</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">            )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">799</td>
+                    <td class="num">731</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">          ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">800</td>
+                    <td class="num">732</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">          ggtheme = ggtheme</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">801</td>
+                    <td class="num">733</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">802</td>
+                    <td class="num">734</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">803</td>
+                    <td class="num">735</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">        teal.code::eval_code(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">804</td>
+                    <td class="num">736</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">          plot_base,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">805</td>
+                    <td class="num">737</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">          substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">806</td>
+                    <td class="num">738</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">            expr = {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">807</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">              smoothy &lt;- smooth(data$.hat, data$.stdresid)</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">808</td>
+                    <td class="num">739</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">              g &lt;- plot</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">809</td>
+                    <td class="num">740</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">              print(g)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">810</td>
+                    <td class="num">741</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">            },</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">811</td>
+                    <td class="num">742</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">            env = list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">812</td>
+                    <td class="num">743</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">              plot = Reduce(function(x, y) call("+", x, y), c(plot, parsed_ggplot2_args))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">813</td>
+                    <td class="num">744</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">            )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">814</td>
+                    <td class="num">745</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">815</td>
+                    <td class="num">746</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">816</td>
+                    <td class="num">747</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">817</td>
+                    <td class="num">748</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">818</td>
+                    <td class="num">749</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      plot_type_6 &lt;- function(plot_base) {</pre>
+                      <pre class="language-r">      plot_type_3 &lt;- function(plot_base) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">819</td>
+                    <td class="num">750</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">        shinyjs::show("size")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">820</td>
+                    <td class="num">751</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">        shinyjs::show("alpha")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">821</td>
-                    <td class="coverage">!</td>
+                  <tr class="missed">
+                    <td class="num">752</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        plot &lt;- substitute(</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">753</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          expr = ggplot(data = data, aes(.fitted, sqrt(abs(.stdresid)))) +</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">754</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            geom_point(size = size, alpha = alpha) +</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">755</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            geom_line(data = smoothy, mapping = smoothy_aes),</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">756</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          env = list(size = size, alpha = alpha)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">757</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        )</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">758</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        if (show_outlier) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">759</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          plot &lt;- substitute(expr = plot + outlier_label, env = list(plot = plot, outlier_label = outlier_label()))</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">760</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">761</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">762</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        parsed_ggplot2_args &lt;- teal.widgets::parse_ggplot2_args(</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">763</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          teal.widgets::resolve_ggplot2_args(</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">764</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            user_plot = ggplot2_args[["Scale-Location"]],</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">765</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            user_default = ggplot2_args$default,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">766</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            module_plot = teal.widgets::ggplot2_args(</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">767</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">              labs = list(</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">768</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                x = quote(paste0("Fitted values\nlm(", reg_form, ")")),</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">769</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                y = quote(expression(sqrt(abs(`Standardized residuals`)))),</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">770</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                title = "Scale-Location"</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">771</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">              )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">772</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">773</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          ),</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">774</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          ggtheme = ggtheme</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">775</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">776</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        plot &lt;- substitute(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">822</td>
+                    <td class="num">777</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          expr = ggplot(data = data, aes(.hat, .cooksd)) +</pre>
+                      <pre class="language-r">        teal.code::eval_code(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">823</td>
+                    <td class="num">778</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            geom_vline(xintercept = 0, colour = NA) +</pre>
+                      <pre class="language-r">          plot_base,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">824</td>
+                    <td class="num">779</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            geom_abline(</pre>
+                      <pre class="language-r">          substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">825</td>
+                    <td class="num">780</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              slope = seq(0, 3, by = 0.5),</pre>
+                      <pre class="language-r">            expr = {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">826</td>
+                    <td class="num">781</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              colour = "black",</pre>
+                      <pre class="language-r">              smoothy &lt;- smooth(data$.fitted, sqrt(abs(data$.stdresid)))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">827</td>
+                    <td class="num">782</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              linetype = "dashed",</pre>
+                      <pre class="language-r">              g &lt;- plot</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">828</td>
+                    <td class="num">783</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              size = 1</pre>
+                      <pre class="language-r">              print(g)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">829</td>
+                    <td class="num">784</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ) +</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">830</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            geom_line(data = smoothy, mapping = smoothy_aes) +</pre>
+                      <pre class="language-r">            },</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">831</td>
+                    <td class="num">785</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            geom_point(size = size, alpha = alpha),</pre>
+                      <pre class="language-r">            env = list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">832</td>
+                    <td class="num">786</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          env = list(size = size, alpha = alpha)</pre>
+                      <pre class="language-r">              plot = Reduce(function(x, y) call("+", x, y), c(plot, parsed_ggplot2_args))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">833</td>
+                    <td class="num">787</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">834</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">788</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (show_outlier) {</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">835</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">789</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          plot &lt;- substitute(expr = plot + outlier_label, env = list(plot = plot, outlier_label = outlier_label()))</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">836</td>
+                    <td class="num">790</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">837</td>
+                    <td class="num">791</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">838</td>
+                    <td class="num">792</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        parsed_ggplot2_args &lt;- teal.widgets::parse_ggplot2_args(</pre>
+                      <pre class="language-r">      plot_type_4 &lt;- function(plot_base) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">839</td>
+                    <td class="num">793</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          teal.widgets::resolve_ggplot2_args(</pre>
+                      <pre class="language-r">        shinyjs::hide("size")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">840</td>
+                    <td class="num">794</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            user_plot = ggplot2_args[["Cook's dist vs Leverage"]],</pre>
+                      <pre class="language-r">        shinyjs::show("alpha")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">841</td>
+                    <td class="num">795</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            user_default = ggplot2_args$default,</pre>
+                      <pre class="language-r">        plot &lt;- substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">842</td>
+                    <td class="num">796</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            module_plot = teal.widgets::ggplot2_args(</pre>
+                      <pre class="language-r">          expr = ggplot(data = data, aes(seq_along(.cooksd), .cooksd)) +</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">843</td>
+                    <td class="num">797</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              labs = list(</pre>
+                      <pre class="language-r">            geom_col(alpha = alpha),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">844</td>
+                    <td class="num">798</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                x = quote(paste0("Leverage\nlm(", reg_form, ")")),</pre>
+                      <pre class="language-r">          env = list(alpha = alpha)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">799</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">845</td>
+                    <td class="num">800</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                y = "Cooks's distance",</pre>
+                      <pre class="language-r">        if (show_outlier) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">846</td>
+                    <td class="num">801</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                title = "Cook's dist vs Leverage"</pre>
+                      <pre class="language-r">          plot &lt;- substitute(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">847</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">802</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              )</pre>
+                      <pre class="language-r">            expr = plot +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">848</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">803</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">              geom_hline(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">849</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">804</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ),</pre>
+                      <pre class="language-r">                yintercept = c(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">850</td>
+                    <td class="num">805</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ggtheme = ggtheme</pre>
+                      <pre class="language-r">                  outlier * mean(data$.cooksd, na.rm = TRUE),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">851</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">806</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">                  mean(data$.cooksd, na.rm = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">852</td>
+                    <td class="num">807</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">853</td>
+                    <td class="num">808</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        teal.code::eval_code(</pre>
+                      <pre class="language-r">                color = "red",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">854</td>
+                    <td class="num">809</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          plot_base,</pre>
+                      <pre class="language-r">                linetype = "dashed"</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">810</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">              ) +</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">855</td>
+                    <td class="num">811</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          substitute(</pre>
+                      <pre class="language-r">              geom_text(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">856</td>
+                    <td class="num">812</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            expr = {</pre>
+                      <pre class="language-r">                aes(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">857</td>
+                    <td class="num">813</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              smoothy &lt;- smooth(data$.hat, data$.cooksd)</pre>
+                      <pre class="language-r">                  x = 0,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">858</td>
+                    <td class="num">814</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              g &lt;- plot</pre>
+                      <pre class="language-r">                  y = mean(data$.cooksd, na.rm = TRUE),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">859</td>
+                    <td class="num">815</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              print(g)</pre>
+                      <pre class="language-r">                  label = paste("mu", "=", round(mean(data$.cooksd, na.rm = TRUE), 4)),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">860</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">816</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            },</pre>
+                      <pre class="language-r">                  vjust = -1,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">861</td>
+                    <td class="num">817</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            env = list(</pre>
+                      <pre class="language-r">                  hjust = 0,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">862</td>
+                    <td class="num">818</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              plot = Reduce(function(x, y) call("+", x, y), c(plot, parsed_ggplot2_args))</pre>
+                      <pre class="language-r">                  color = "red",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">863</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">819</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">                  angle = 90</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">864</td>
+                    <td class="num">820</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">                ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">865</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">821</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">                parse = TRUE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">866</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">822</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">                show.legend = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">867</td>
+                    <td class="num">823</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">868</td>
+                    <td class="num">824</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      qenv &lt;- if (input_type == "Response vs Regressor") {</pre>
+                      <pre class="language-r">              outlier_label,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">869</td>
+                    <td class="num">825</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        plot_type_0()</pre>
+                      <pre class="language-r">            env = list(plot = plot, outlier = input$outlier, outlier_label = outlier_label())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">870</td>
+                    <td class="num">826</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">871</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">827</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        plot_base_q &lt;- plot_base()</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">872</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">828</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        switch(input_type,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">873</td>
+                    <td class="num">829</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "Residuals vs Fitted" = plot_base_q %&gt;% plot_type_1(),</pre>
+                      <pre class="language-r">        parsed_ggplot2_args &lt;- teal.widgets::parse_ggplot2_args(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">874</td>
+                    <td class="num">830</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "Normal Q-Q" = plot_base_q %&gt;% plot_type_2(),</pre>
+                      <pre class="language-r">          teal.widgets::resolve_ggplot2_args(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">875</td>
+                    <td class="num">831</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "Scale-Location" = plot_base_q %&gt;% plot_type_3(),</pre>
+                      <pre class="language-r">            user_plot = ggplot2_args[["Cook's distance"]],</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">876</td>
+                    <td class="num">832</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "Cook's distance" = plot_base_q %&gt;% plot_type_4(),</pre>
+                      <pre class="language-r">            user_default = ggplot2_args$default,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">877</td>
+                    <td class="num">833</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "Residuals vs Leverage" = plot_base_q %&gt;% plot_type_5(),</pre>
+                      <pre class="language-r">            module_plot = teal.widgets::ggplot2_args(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">878</td>
+                    <td class="num">834</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "Cook's dist vs Leverage" = plot_base_q %&gt;% plot_type_6()</pre>
+                      <pre class="language-r">              labs = list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">879</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">835</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">                x = quote(paste0("Obs. number\nlm(", reg_form, ")")),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">880</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">836</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">                y = "Cook's distance",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">881</td>
+                    <td class="num">837</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      qenv</pre>
+                      <pre class="language-r">                title = "Cook's distance"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">882</td>
+                    <td class="num">838</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">              )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">883</td>
+                    <td class="num">839</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">884</td>
+                    <td class="num">840</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">885</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    fitted &lt;- reactive(output_q()[["fit"]])</pre>
+                      <pre class="language-r">          ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">886</td>
+                    <td class="num">841</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    plot_r &lt;- reactive(output_q()[["g"]])</pre>
+                      <pre class="language-r">          ggtheme = ggtheme</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">887</td>
+                    <td class="num">842</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">888</td>
+                    <td class="num">843</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Insert the plot into a plot_with_settings module from teal.widgets</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">889</td>
+                    <td class="num">844</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    pws &lt;- teal.widgets::plot_with_settings_srv(</pre>
+                      <pre class="language-r">        teal.code::eval_code(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">890</td>
+                    <td class="num">845</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      id = "myplot",</pre>
+                      <pre class="language-r">          plot_base,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">891</td>
+                    <td class="num">846</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      plot_r = plot_r,</pre>
+                      <pre class="language-r">          substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">892</td>
+                    <td class="num">847</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      height = plot_height,</pre>
+                      <pre class="language-r">            expr = {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">893</td>
+                    <td class="num">848</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      width = plot_width</pre>
+                      <pre class="language-r">              g &lt;- plot</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">894</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">849</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">              print(g)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">895</td>
+                    <td class="num">850</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">896</td>
+                    <td class="num">851</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    output$text &lt;- renderText({</pre>
+                      <pre class="language-r">            env = list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">897</td>
+                    <td class="num">852</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      req(iv_r()$is_valid())</pre>
+                      <pre class="language-r">              plot = Reduce(function(x, y) call("+", x, y), c(plot, parsed_ggplot2_args))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">898</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">853</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      req(iv_out$is_valid())</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">899</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">854</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      paste(utils::capture.output(summary(teal.code::dev_suppress(fitted())))[-1],</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">900</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">855</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        collapse = "\n"</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">901</td>
+                    <td class="num">856</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">902</td>
+                    <td class="num">857</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">903</td>
+                    <td class="num">858</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">904</td>
+                    <td class="num">859</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    teal.widgets::verbatim_popup_srv(</pre>
+                      <pre class="language-r">      plot_type_5 &lt;- function(plot_base) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">905</td>
+                    <td class="num">860</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      id = "warning",</pre>
+                      <pre class="language-r">        shinyjs::show("size")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">906</td>
+                    <td class="num">861</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      verbatim_content = reactive(teal.code::get_warnings(output_q())),</pre>
+                      <pre class="language-r">        shinyjs::show("alpha")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">907</td>
+                    <td class="num">862</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      title = "Warning",</pre>
+                      <pre class="language-r">        plot &lt;- substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">908</td>
+                    <td class="num">863</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      disabled = reactive(is.null(teal.code::get_warnings(output_q())))</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">909</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">          expr = ggplot(data = data, aes(.hat, .stdresid)) +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">910</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">864</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">            geom_vline(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">911</td>
+                    <td class="num">865</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    teal.widgets::verbatim_popup_srv(</pre>
+                      <pre class="language-r">              size = 1,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">912</td>
+                    <td class="num">866</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      id = "rcode",</pre>
+                      <pre class="language-r">              colour = "black",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">913</td>
+                    <td class="num">867</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      verbatim_content = reactive(teal.code::get_code(output_q())),</pre>
+                      <pre class="language-r">              linetype = "dashed",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">914</td>
+                    <td class="num">868</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      title = "R code for the regression plot",</pre>
+                      <pre class="language-r">              xintercept = 0</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">915</td>
+                    <td class="num">869</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">            ) +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">916</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">870</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">            geom_hline(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">917</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">871</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ### REPORTER</pre>
+                      <pre class="language-r">              size = 1,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">918</td>
+                    <td class="num">872</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (with_reporter) {</pre>
+                      <pre class="language-r">              colour = "black",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">919</td>
+                    <td class="num">873</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      card_fun &lt;- function(comment, label) {</pre>
+                      <pre class="language-r">              linetype = "dashed",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">920</td>
+                    <td class="num">874</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        card &lt;- teal::report_card_template(</pre>
+                      <pre class="language-r">              yintercept = 0</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">921</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">875</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          title = "Linear Regression Plot",</pre>
+                      <pre class="language-r">            ) +</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">922</td>
+                    <td class="num">876</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          label = label,</pre>
+                      <pre class="language-r">            geom_point(size = size, alpha = alpha) +</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">923</td>
+                    <td class="num">877</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          with_filter = with_filter,</pre>
+                      <pre class="language-r">            geom_line(data = smoothy, mapping = smoothy_aes),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">924</td>
+                    <td class="num">878</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          filter_panel_api = filter_panel_api</pre>
+                      <pre class="language-r">          env = list(size = size, alpha = alpha)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">925</td>
+                    <td class="num">879</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">926</td>
+                    <td class="num">880</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        card$append_text("Plot", "header3")</pre>
+                      <pre class="language-r">        if (show_outlier) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">927</td>
+                    <td class="num">881</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        card$append_plot(plot_r(), dim = pws$dim())</pre>
+                      <pre class="language-r">          plot &lt;- substitute(expr = plot + outlier_label, env = list(plot = plot, outlier_label = outlier_label()))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">928</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">882</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (!comment == "") {</pre>
+                      <pre class="language-r">        }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">883</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">929</td>
+                    <td class="num">884</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          card$append_text("Comment", "header3")</pre>
+                      <pre class="language-r">        parsed_ggplot2_args &lt;- teal.widgets::parse_ggplot2_args(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">930</td>
+                    <td class="num">885</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          card$append_text(comment)</pre>
+                      <pre class="language-r">          teal.widgets::resolve_ggplot2_args(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">931</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">886</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">            user_plot = ggplot2_args[["Residuals vs Leverage"]],</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">932</td>
+                    <td class="num">887</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        card$append_src(teal.code::get_code(output_q()))</pre>
+                      <pre class="language-r">            user_default = ggplot2_args$default,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">933</td>
+                    <td class="num">888</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        card</pre>
+                      <pre class="language-r">            module_plot = teal.widgets::ggplot2_args(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">934</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">889</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">              labs = list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">935</td>
+                    <td class="num">890</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun)</pre>
+                      <pre class="language-r">                x = quote(paste0("Standardized residuals\nlm(", reg_form, ")")),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">936</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">891</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">                y = "Leverage",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">937</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">892</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ###</pre>
+                      <pre class="language-r">                title = "Residuals vs Leverage"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">938</td>
+                    <td class="num">893</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
+                      <pre class="language-r">              )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">939</td>
+                    <td class="num">894</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">940</td>
+                    <td class="num">895</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">941</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">896</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">regression_names &lt;- paste0(</pre>
+                      <pre class="language-r">          ggtheme = ggtheme</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">942</td>
+                    <td class="num">897</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  '"Response vs Regressor", "Residuals vs Fitted", ',</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">943</td>
+                    <td class="num">898</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  '"Scale-Location", "Cook\'s distance", "Residuals vs Leverage"", "Cook\'s dist vs Leverage"'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">944</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">899</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">)</pre>
+                      <pre class="language-r">        teal.code::eval_code(</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="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">900</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Shared Parameters</pre>
+                      <pre class="language-r">          plot_base,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">2</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">901</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          substitute(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">3</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">902</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description Contains arguments that are shared between multiple functions</pre>
+                      <pre class="language-r">            expr = {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">4</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">903</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   in the package to avoid repetition using `inheritParams`.</pre>
+                      <pre class="language-r">              smoothy &lt;- smooth(data$.hat, data$.stdresid)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">5</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">904</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">              g &lt;- plot</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">6</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">905</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param plot_height optional, (`numeric`) A vector of length three with `c(value, min and max)`</pre>
+                      <pre class="language-r">              print(g)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">906</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   for a slider encoding the plot height.</pre>
+                      <pre class="language-r">            },</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">8</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">907</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param plot_width optional, (`numeric`) A vector of length three with `c(value, min and max)`</pre>
+                      <pre class="language-r">            env = list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">9</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">908</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   for a slider encoding the plot width.</pre>
+                      <pre class="language-r">              plot = Reduce(function(x, y) call("+", x, y), c(plot, parsed_ggplot2_args))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">909</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param rotate_xaxis_labels optional, (`logical`) Whether to rotate plot X axis labels. Does not</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">910</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   rotate by default (`FALSE`).</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">911</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param ggtheme optional, (`character`) `ggplot2` theme to be used by default. Defaults to `"gray"`.</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">912</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param ggplot2_args (`ggplot2_args`) object created by [teal.widgets::ggplot2_args()]</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">913</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  with settings for the module plot.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">15</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">914</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  The argument is merged with options variable `teal.ggplot2_args` and default module setup.</pre>
+                      <pre class="language-r">      plot_type_6 &lt;- function(plot_base) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">16</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">915</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        shinyjs::show("size")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">17</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">916</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  For more details see the vignette: `vignette("custom-ggplot2-arguments", package = "teal.widgets")`</pre>
+                      <pre class="language-r">        shinyjs::show("alpha")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">18</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">917</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param basic_table_args (`basic_table_args`) object created by [teal.widgets::basic_table_args()]</pre>
+                      <pre class="language-r">        plot &lt;- substitute(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">19</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">918</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  with settings for the module table.</pre>
+                      <pre class="language-r">          expr = ggplot(data = data, aes(.hat, .cooksd)) +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">20</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">919</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  The argument is merged with options variable `teal.basic_table_args` and default module setup.</pre>
+                      <pre class="language-r">            geom_vline(xintercept = 0, colour = NA) +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">21</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">920</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">            geom_abline(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">22</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">921</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  For more details see the vignette: `vignette("custom-basic-table-arguments", package = "teal.widgets")`</pre>
+                      <pre class="language-r">              slope = seq(0, 3, by = 0.5),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">23</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">922</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param pre_output (`shiny.tag`, optional)\cr</pre>
+                      <pre class="language-r">              colour = "black",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">24</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">923</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  with text placed before the output to put the output into context. For example a title.</pre>
+                      <pre class="language-r">              linetype = "dashed",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">25</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">924</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param post_output (`shiny.tag`, optional) with text placed after the output to put the output</pre>
+                      <pre class="language-r">              size = 1</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">925</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' into context. For example the [shiny::helpText()] elements are useful.</pre>
+                      <pre class="language-r">            ) +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">27</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">926</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">            geom_line(data = smoothy, mapping = smoothy_aes) +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">28</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">927</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name shared_params</pre>
+                      <pre class="language-r">            geom_point(size = size, alpha = alpha),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">29</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">928</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">          env = list(size = size, alpha = alpha)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">929</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">31</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">930</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        if (show_outlier) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">32</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">931</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Add axis labels that show facetting variable</pre>
+                      <pre class="language-r">          plot &lt;- substitute(expr = plot + outlier_label, env = list(plot = plot, outlier_label = outlier_label()))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">932</td>
                     <td class="coverage"></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="num">933</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Add axis labels that show facetting variable</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">934</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        parsed_ggplot2_args &lt;- teal.widgets::parse_ggplot2_args(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">36</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">935</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param p `ggplot2` object to add facet labels to</pre>
+                      <pre class="language-r">          teal.widgets::resolve_ggplot2_args(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">37</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">936</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param xfacet_label label of facet along x axis (nothing created if NULL),</pre>
+                      <pre class="language-r">            user_plot = ggplot2_args[["Cook's dist vs Leverage"]],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">38</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">937</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   if vector, will be concatenated with " &amp; "</pre>
+                      <pre class="language-r">            user_default = ggplot2_args$default,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">39</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">938</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param yfacet_label label of facet along y axis (nothing created if NULL),</pre>
+                      <pre class="language-r">            module_plot = teal.widgets::ggplot2_args(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">40</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">939</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   if vector, will be concatenated with " &amp; "</pre>
+                      <pre class="language-r">              labs = list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">41</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">940</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                x = quote(paste0("Leverage\nlm(", reg_form, ")")),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">42</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">941</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return grid grob object (to be drawn with \code{grid.draw})</pre>
+                      <pre class="language-r">                y = "Cooks's distance",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">43</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">942</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                title = "Cook's dist vs Leverage"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">44</td>
+                    <td class="num">943</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">45</td>
+                    <td class="num">944</td>
                     <td class="coverage"></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">945</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">47</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">946</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # we put donttest to avoid strictr error with seq along.with argument</pre>
+                      <pre class="language-r">          ggtheme = ggtheme</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">48</td>
+                    <td class="num">947</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' \donttest{</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">49</td>
+                    <td class="num">948</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(ggplot2)</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">949</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(grid)</pre>
+                      <pre class="language-r">        teal.code::eval_code(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">51</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">950</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          plot_base,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">52</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">951</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' p &lt;- ggplot(mtcars) +</pre>
+                      <pre class="language-r">          substitute(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">53</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">952</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   aes(x = mpg, y = disp) +</pre>
+                      <pre class="language-r">            expr = {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">54</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">953</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   geom_point() +</pre>
+                      <pre class="language-r">              smoothy &lt;- smooth(data$.hat, data$.cooksd)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">55</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">954</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   facet_grid(gear ~ cyl)</pre>
+                      <pre class="language-r">              g &lt;- plot</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">56</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">955</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' p</pre>
+                      <pre class="language-r">              print(g)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">57</td>
+                    <td class="num">956</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' xfacet_label &lt;- "cylinders"</pre>
+                      <pre class="language-r">            },</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">58</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">957</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' yfacet_label &lt;- "gear"</pre>
+                      <pre class="language-r">            env = list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">59</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">958</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' res &lt;- add_facet_labels(p, xfacet_label, yfacet_label)</pre>
+                      <pre class="language-r">              plot = Reduce(function(x, y) call("+", x, y), c(plot, parsed_ggplot2_args))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">60</td>
+                    <td class="num">959</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' grid.newpage()</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">61</td>
+                    <td class="num">960</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' grid.draw(res)</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">62</td>
+                    <td class="num">961</td>
                     <td class="coverage"></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">962</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' grid.newpage()</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">64</td>
+                    <td class="num">963</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' grid.draw(add_facet_labels(p, xfacet_label = NULL, yfacet_label))</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">65</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">964</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' grid.newpage()</pre>
+                      <pre class="language-r">      qenv &lt;- if (input_type == "Response vs Regressor") {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">66</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">965</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' grid.draw(add_facet_labels(p, xfacet_label, yfacet_label = NULL))</pre>
+                      <pre class="language-r">        plot_type_0()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">67</td>
+                    <td class="num">966</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' grid.newpage()</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">68</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">967</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' grid.draw(add_facet_labels(p, xfacet_label = NULL, yfacet_label = NULL))</pre>
+                      <pre class="language-r">        plot_base_q &lt;- plot_base()</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">69</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">968</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">        switch(input_type,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">70</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">969</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          "Residuals vs Fitted" = plot_base_q %&gt;% plot_type_1(),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">71</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">970</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">add_facet_labels &lt;- function(p, xfacet_label = NULL, yfacet_label = NULL) {</pre>
+                      <pre class="language-r">          "Normal Q-Q" = plot_base_q %&gt;% plot_type_2(),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">72</td>
+                    <td class="num">971</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(p, classes = "ggplot")</pre>
+                      <pre class="language-r">          "Scale-Location" = plot_base_q %&gt;% plot_type_3(),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">73</td>
+                    <td class="num">972</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(xfacet_label, null.ok = TRUE, min.len = 1)</pre>
+                      <pre class="language-r">          "Cook's distance" = plot_base_q %&gt;% plot_type_4(),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">74</td>
+                    <td class="num">973</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(yfacet_label, null.ok = TRUE, min.len = 1)</pre>
+                      <pre class="language-r">          "Residuals vs Leverage" = plot_base_q %&gt;% plot_type_5(),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">75</td>
+                    <td class="num">974</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.null(xfacet_label) &amp;&amp; is.null(yfacet_label)) {</pre>
+                      <pre class="language-r">          "Cook's dist vs Leverage" = plot_base_q %&gt;% plot_type_6()</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">76</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">975</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    return(ggplotGrob(p))</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">77</td>
+                    <td class="num">976</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">78</td>
+                    <td class="num">977</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  grid::grid.grabExpr({</pre>
+                      <pre class="language-r">      qenv</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">79</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">978</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    g &lt;- ggplotGrob(p)</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">80</td>
+                    <td class="num">979</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">81</td>
+                    <td class="num">980</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # we are going to replace these, so we make sure they have nothing in them</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">82</td>
+                    <td class="num">981</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_class(g$grobs[[grep("xlab-t", g$layout$name, fixed = TRUE)]], "zeroGrob")</pre>
+                      <pre class="language-r">    fitted &lt;- reactive(output_q()[["fit"]])</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">83</td>
+                    <td class="num">982</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_class(g$grobs[[grep("ylab-r", g$layout$name, fixed = TRUE)]], "zeroGrob")</pre>
+                      <pre class="language-r">    plot_r &lt;- reactive(output_q()[["g"]])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">84</td>
+                    <td class="num">983</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
+                  <tr class="never">
+                    <td class="num">984</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    # Insert the plot into a plot_with_settings module from teal.widgets</pre>
+                    </td>
+                  </tr>
                   <tr class="missed">
-                    <td class="num">85</td>
+                    <td class="num">985</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    xaxis_label_grob &lt;- g$grobs[[grep("xlab-b", g$layout$name, fixed = TRUE)]]</pre>
+                      <pre class="language-r">    pws &lt;- teal.widgets::plot_with_settings_srv(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">86</td>
+                    <td class="num">986</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    xaxis_label_grob$children[[1]]$label &lt;- paste(xfacet_label, collapse = " &amp; ")</pre>
+                      <pre class="language-r">      id = "myplot",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">87</td>
+                    <td class="num">987</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    yaxis_label_grob &lt;- g$grobs[[grep("ylab-l", g$layout$name, fixed = TRUE)]]</pre>
+                      <pre class="language-r">      plot_r = plot_r,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">88</td>
+                    <td class="num">988</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    yaxis_label_grob$children[[1]]$label &lt;- paste(yfacet_label, collapse = " &amp; ")</pre>
+                      <pre class="language-r">      height = plot_height,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">89</td>
+                    <td class="num">989</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    yaxis_label_grob$children[[1]]$rot &lt;- 270</pre>
+                      <pre class="language-r">      width = plot_width</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">90</td>
+                    <td class="num">990</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">91</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">991</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    top_height &lt;- if (is.null(xfacet_label)) 0 else grid::unit(2, "line")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">92</td>
+                    <td class="num">992</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    right_width &lt;- if (is.null(yfacet_label)) 0 else grid::unit(2, "line")</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>
+                      <pre class="language-r">    output$text &lt;- renderText({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">94</td>
+                    <td class="num">993</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    grid::grid.newpage()</pre>
+                      <pre class="language-r">      req(iv_r()$is_valid())</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">95</td>
+                    <td class="num">994</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    grid::pushViewport(grid::plotViewport(margins = c(0, 0, top_height, right_width), name = "ggplot"))</pre>
+                      <pre class="language-r">      req(iv_out$is_valid())</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">96</td>
+                    <td class="num">995</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    grid::grid.draw(g)</pre>
+                      <pre class="language-r">      paste(utils::capture.output(summary(teal.code::dev_suppress(fitted())))[-1],</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">97</td>
+                    <td class="num">996</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    grid::upViewport(1)</pre>
+                      <pre class="language-r">        collapse = "\n"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">98</td>
+                    <td class="num">997</td>
                     <td class="coverage"></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">998</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # draw x facet</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">999</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (!is.null(xfacet_label)) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">101</td>
+                    <td class="num">1000</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      grid::pushViewport(grid::viewport(</pre>
+                      <pre class="language-r">    teal.widgets::verbatim_popup_srv(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">102</td>
+                    <td class="num">1001</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        x = 0, y = grid::unit(1, "npc") - top_height, width = grid::unit(1, "npc"),</pre>
+                      <pre class="language-r">      id = "warning",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">103</td>
+                    <td class="num">1002</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        height = top_height, just = c("left", "bottom"), name = "topxaxis"</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">      verbatim_content = reactive(teal.code::get_warnings(output_q())),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">105</td>
+                    <td class="num">1003</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      grid::grid.draw(xaxis_label_grob)</pre>
+                      <pre class="language-r">      title = "Warning",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">106</td>
+                    <td class="num">1004</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      grid::upViewport(1)</pre>
+                      <pre class="language-r">      disabled = reactive(is.null(teal.code::get_warnings(output_q())))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">107</td>
+                    <td class="num">1005</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">108</td>
+                    <td class="num">1006</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>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    # draw y facet</pre>
-                    </td>
-                  </tr>
                   <tr class="missed">
-                    <td class="num">110</td>
+                    <td class="num">1007</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (!is.null(yfacet_label)) {</pre>
+                      <pre class="language-r">    teal.widgets::verbatim_popup_srv(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">111</td>
+                    <td class="num">1008</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      grid::pushViewport(grid::viewport(</pre>
+                      <pre class="language-r">      id = "rcode",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">112</td>
+                    <td class="num">1009</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        x = grid::unit(1, "npc") - grid::unit(as.numeric(right_width) / 2, "line"), y = 0, width = right_width,</pre>
+                      <pre class="language-r">      verbatim_content = reactive(teal.code::get_code(output_q())),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">113</td>
+                    <td class="num">1010</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        height = grid::unit(1, "npc"), just = c("left", "bottom"), name = "rightyaxis"</pre>
+                      <pre class="language-r">      title = "R code for the regression plot",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">114</td>
+                    <td class="num">1011</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ))</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">115</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      grid::grid.draw(yaxis_label_grob)</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">116</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      grid::upViewport(1)</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">117</td>
+                    <td class="num">1012</td>
                     <td class="coverage"></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">1013</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
+                      <pre class="language-r">    ### REPORTER</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">119</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1014</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">    if (with_reporter) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">120</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1015</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      card_fun &lt;- function(comment, label) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">121</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1016</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Call a function with a character vector for the \code{...} argument</pre>
+                      <pre class="language-r">        card &lt;- teal::report_card_template(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">122</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1017</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          title = "Linear Regression Plot",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">123</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1018</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param fun (\code{character}) Name of a function where the \code{...} argument</pre>
+                      <pre class="language-r">          label = label,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">124</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1019</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   shall be replaced by values from \code{str_args}.</pre>
+                      <pre class="language-r">          with_filter = with_filter,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">125</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1020</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param str_args (\code{character}) A character vector that the function shall</pre>
+                      <pre class="language-r">          filter_panel_api = filter_panel_api</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">126</td>
+                    <td class="num">1021</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  be executed with</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">127</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1022</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        card$append_text("Plot", "header3")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">128</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1023</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return: call (i.e. expression) of the function provided by \code{fun}</pre>
+                      <pre class="language-r">        card$append_plot(plot_r(), dim = pws$dim())</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">129</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1024</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  with arguments provided by \code{str_args}.</pre>
+                      <pre class="language-r">        if (!comment == "") {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">130</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1025</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">          card$append_text("Comment", "header3")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">131</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1026</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          card$append_text(comment)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">132</td>
+                    <td class="num">1027</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">133</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1028</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' \dontrun{</pre>
+                      <pre class="language-r">        card$append_src(teal.code::get_code(output_q()))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">134</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">1029</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' a &lt;- 1</pre>
+                      <pre class="language-r">        card</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">135</td>
+                    <td class="num">1030</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' b &lt;- 2</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">1031</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' call_fun_dots("sum", c("a", "b"))</pre>
+                      <pre class="language-r">      teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">137</td>
+                    <td class="num">1032</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' eval(call_fun_dots("sum", c("a", "b")))</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">138</td>
+                    <td class="num">1033</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">    ###</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">139</td>
+                    <td class="num">1034</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">call_fun_dots &lt;- function(fun, str_args) {</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">1035</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  do.call("call", c(list(fun), lapply(str_args, as.name)), quote = TRUE)</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">141</td>
+                    <td class="num">1036</td>
                     <td class="coverage"></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">1037</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">regression_names &lt;- paste0(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">143</td>
+                    <td class="num">1038</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Get variable name with label</pre>
+                      <pre class="language-r">  '"Response vs Regressor", "Residuals vs Fitted", ',</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">144</td>
+                    <td class="num">1039</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  '"Scale-Location", "Cook\'s distance", "Residuals vs Leverage"", "Cook\'s dist vs Leverage"'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">145</td>
+                    <td class="num">1040</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param var_names (\code{character}) Name of variable to extract labels from.</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">146</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param dataset (\code{dataset}) Name of analysis dataset.</pre>
+                      <pre class="language-r">#' Shared Parameters</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">147</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param prefix (\code{character}) String to paste to the beginning of the</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">148</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   variable name with label.</pre>
+                      <pre class="language-r">#' @description Contains arguments that are shared between multiple functions</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">149</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param suffix (\code{character}) String to paste to the end of the variable</pre>
+                      <pre class="language-r">#'   in the package to avoid repetition using `inheritParams`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">150</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   name with label.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">151</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param wrap_width (\code{numeric}) Number of characters to wrap original</pre>
+                      <pre class="language-r">#' @param plot_height optional, (`numeric`) A vector of length three with `c(value, min and max)`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">152</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   label to. Defaults to 80.</pre>
+                      <pre class="language-r">#'   for a slider encoding the plot height.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">153</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param plot_width optional, (`numeric`) A vector of length three with `c(value, min and max)`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">154</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return (\code{character}) String with variable name and label.</pre>
+                      <pre class="language-r">#'   for a slider encoding the plot width.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">155</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#' @param rotate_xaxis_labels optional, (`logical`) Whether to rotate plot X axis labels. Does not</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">156</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   rotate by default (`FALSE`).</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">157</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' @param ggtheme optional, (`character`) `ggplot2` theme to be used by default. Defaults to `"gray"`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">158</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' \dontrun{</pre>
+                      <pre class="language-r">#' @param ggplot2_args (`ggplot2_args`) object created by [teal.widgets::ggplot2_args()]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">159</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ADSL &lt;- teal.modules.general::rADSL</pre>
+                      <pre class="language-r">#'  with settings for the module plot.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">160</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'  The argument is merged with options variable `teal.ggplot2_args` and default module setup.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">161</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' varname_w_label("AGE", ADSL)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">162</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">#'  For more details see the vignette: `vignette("custom-ggplot2-arguments", package = "teal.widgets")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">163</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">varname_w_label &lt;- function(var_names,</pre>
+                      <pre class="language-r">#' @param basic_table_args (`basic_table_args`) object created by [teal.widgets::basic_table_args()]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">164</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            dataset,</pre>
+                      <pre class="language-r">#'  with settings for the module table.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">165</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            wrap_width = 80,</pre>
+                      <pre class="language-r">#'  The argument is merged with options variable `teal.basic_table_args` and default module setup.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">166</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            prefix = NULL,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">167</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            suffix = NULL) {</pre>
+                      <pre class="language-r">#'  For more details see the vignette: `vignette("custom-basic-table-arguments", package = "teal.widgets")`</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">168</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">  add_label &lt;- function(var_names) {</pre>
+                      <pre class="language-r">#' @param pre_output (`shiny.tag`, optional)\cr</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">169</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">    label &lt;- vapply(</pre>
+                      <pre class="language-r">#'  with text placed before the output to put the output into context. For example a title.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">170</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">      dataset[var_names], function(x) {</pre>
+                      <pre class="language-r">#' @param post_output (`shiny.tag`, optional) with text placed after the output to put the output</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">171</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">        attr_label &lt;- attr(x, "label")</pre>
+                      <pre class="language-r">#' into context. For example the [shiny::helpText()] elements are useful.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">172</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">        `if`(is.null(attr_label), "", attr_label)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">173</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      },</pre>
+                      <pre class="language-r">#' @name shared_params</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">174</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">      character(1)</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">175</td>
+                    <td class="num">30</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">176</td>
+                    <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">177</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 (length(label) == 1 &amp;&amp; !is.na(label) &amp;&amp; !identical(label, "")) {</pre>
+                      <pre class="language-r">#' Add axis labels that show facetting variable</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">178</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">      paste0(prefix, label, " [", var_names, "]", suffix)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">179</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else {</pre>
+                      <pre class="language-r">#' Add axis labels that show facetting variable</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">180</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">      var_names</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">181</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 p `ggplot2` object to add facet labels to</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">182</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' @param xfacet_label label of facet along x axis (nothing created if NULL),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">183</td>
+                    <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   if vector, will be concatenated with " &amp; "</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">184</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">  if (length(var_names) &lt; 1) {</pre>
+                      <pre class="language-r">#' @param yfacet_label label of facet along y axis (nothing created if NULL),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">185</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">    NULL</pre>
+                      <pre class="language-r">#'   if vector, will be concatenated with " &amp; "</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">186</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">  } else if (length(var_names) == 1) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">187</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">    stringr::str_wrap(add_label(var_names), width = wrap_width)</pre>
+                      <pre class="language-r">#' @return grid grob object (to be drawn with \code{grid.draw})</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">188</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">  } else if (length(var_names) &gt; 1) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">189</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">    stringr::str_wrap(vapply(var_names, add_label, character(1)), width = wrap_width)</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">190</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="never">
-                    <td class="num">191</td>
+                    <td class="num">46</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">192</td>
+                    <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' # we put donttest to avoid strictr error with seq along.with argument</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">193</td>
+                    <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Extract html id for `data_extract_ui`</pre>
+                      <pre class="language-r">#' \donttest{</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">194</td>
+                    <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description The `data_extract_ui` is located under extended html id.</pre>
+                      <pre class="language-r">#' library(ggplot2)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">195</td>
+                    <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   We could not use \code{ns("original id")} for reference, as it is extended with specific suffixes.</pre>
+                      <pre class="language-r">#' library(grid)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">196</td>
+                    <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param varname character original html id.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">197</td>
+                    <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   This will be mostly retrieved with \code{ns("original id")} in `ui` or</pre>
+                      <pre class="language-r">#' p &lt;- ggplot(mtcars) +</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">198</td>
+                    <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   \code{session$ns("original id")} in server function.</pre>
+                      <pre class="language-r">#'   aes(x = mpg, y = disp) +</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">199</td>
+                    <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param dataname character \code{dataname} from data_extract input.</pre>
+                      <pre class="language-r">#'   geom_point() +</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">200</td>
+                    <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   This might be retrieved like \code{teal.transform::data_extract_spec(...)[[1]]$dataname}.</pre>
+                      <pre class="language-r">#'   facet_grid(gear ~ cyl)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">201</td>
+                    <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param filter logical if the connected \code{extract_data_spec} is used with \code{filter} option.</pre>
+                      <pre class="language-r">#' p</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">202</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">#' xfacet_label &lt;- "cylinders"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">203</td>
+                    <td class="num">58</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">extract_input &lt;- function(varname, dataname, filter = FALSE) {</pre>
+                      <pre class="language-r">#' yfacet_label &lt;- "gear"</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">204</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">  if (filter) {</pre>
+                      <pre class="language-r">#' res &lt;- add_facet_labels(p, xfacet_label, yfacet_label)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">205</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">    paste0(varname, "-dataset_", dataname, "_singleextract-filter1-vals")</pre>
+                      <pre class="language-r">#' grid.newpage()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">206</td>
+                    <td class="num">61</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">#' grid.draw(res)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">207</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">    paste0(varname, "-dataset_", dataname, "_singleextract-select")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">208</td>
+                    <td class="num">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' grid.newpage()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">209</td>
+                    <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' grid.draw(add_facet_labels(p, xfacet_label = NULL, yfacet_label))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">210</td>
+                    <td class="num">65</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' grid.newpage()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">211</td>
+                    <td class="num">66</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># see vignette("ggplot2-specs", package="ggplot2")</pre>
+                      <pre class="language-r">#' grid.draw(add_facet_labels(p, xfacet_label, yfacet_label = NULL))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">212</td>
+                    <td class="num">67</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">shape_names &lt;- c(</pre>
+                      <pre class="language-r">#' grid.newpage()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">213</td>
+                    <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  "circle", paste("circle", c("open", "filled", "cross", "plus", "small")), "bullet",</pre>
+                      <pre class="language-r">#' grid.draw(add_facet_labels(p, xfacet_label = NULL, yfacet_label = NULL))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">214</td>
+                    <td class="num">69</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  "square", paste("square", c("open", "filled", "cross", "plus", "triangle")),</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">215</td>
+                    <td class="num">70</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  "diamond", paste("diamond", c("open", "filled", "plus")),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">216</td>
+                    <td class="num">71</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  "triangle", paste("triangle", c("open", "filled", "square")),</pre>
+                      <pre class="language-r">add_facet_labels &lt;- function(p, xfacet_label = NULL, yfacet_label = NULL) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">217</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">  paste("triangle down", c("open", "filled")),</pre>
+                      <pre class="language-r">  checkmate::assert_class(p, classes = "ggplot")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">218</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">  "plus", "cross", "asterisk"</pre>
+                      <pre class="language-r">  checkmate::assert_character(xfacet_label, null.ok = TRUE, min.len = 1)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">219</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">)</pre>
+                      <pre class="language-r">  checkmate::assert_character(yfacet_label, null.ok = TRUE, min.len = 1)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">220</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">  if (is.null(xfacet_label) &amp;&amp; is.null(yfacet_label)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">221</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">76</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Get icons to represent variable types in dataset</pre>
+                      <pre class="language-r">    return(ggplotGrob(p))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">222</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">223</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 var_type (`character`)\cr</pre>
+                      <pre class="language-r">  grid::grid.grabExpr({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">224</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">79</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  of R internal types (classes).</pre>
+                      <pre class="language-r">    g &lt;- ggplotGrob(p)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">225</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="never">
-                    <td class="num">226</td>
+                    <td class="num">81</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return (`character`)\cr</pre>
+                      <pre class="language-r">    # we are going to replace these, so we make sure they have nothing in them</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">227</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">82</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  vector of HTML icons corresponding to data type in each column.</pre>
+                      <pre class="language-r">    checkmate::assert_class(g$grobs[[grep("xlab-t", g$layout$name, fixed = TRUE)]], "zeroGrob")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">228</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">#' @keywords internal</pre>
+                      <pre class="language-r">    checkmate::assert_class(g$grobs[[grep("ylab-r", g$layout$name, fixed = TRUE)]], "zeroGrob")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">229</td>
+                    <td class="num">84</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">230</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">#' @examples</pre>
+                      <pre class="language-r">    xaxis_label_grob &lt;- g$grobs[[grep("xlab-b", g$layout$name, fixed = TRUE)]]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">231</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">#' teal.modules.general:::variable_type_icons(c(</pre>
+                      <pre class="language-r">    xaxis_label_grob$children[[1]]$label &lt;- paste(xfacet_label, collapse = " &amp; ")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">232</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">87</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   "integer", "numeric", "logical", "Date", "POSIXct", "POSIXlt",</pre>
+                      <pre class="language-r">    yaxis_label_grob &lt;- g$grobs[[grep("ylab-l", g$layout$name, fixed = TRUE)]]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">233</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">#'   "factor", "character", "unknown", ""</pre>
+                      <pre class="language-r">    yaxis_label_grob$children[[1]]$label &lt;- paste(yfacet_label, collapse = " &amp; ")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">234</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">    yaxis_label_grob$children[[1]]$rot &lt;- 270</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">235</td>
+                    <td class="num">90</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">variable_type_icons &lt;- function(var_type) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">236</td>
+                    <td class="num">91</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(var_type, any.missing = FALSE)</pre>
+                      <pre class="language-r">    top_height &lt;- if (is.null(xfacet_label)) 0 else grid::unit(2, "line")</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">92</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    right_width &lt;- if (is.null(yfacet_label)) 0 else grid::unit(2, "line")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">237</td>
+                    <td class="num">93</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">238</td>
+                    <td class="num">94</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  class_to_icon &lt;- list(</pre>
+                      <pre class="language-r">    grid::grid.newpage()</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">239</td>
+                    <td class="num">95</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    numeric = "arrow-up-1-9",</pre>
+                      <pre class="language-r">    grid::pushViewport(grid::plotViewport(margins = c(0, 0, top_height, right_width), name = "ggplot"))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">240</td>
+                    <td class="num">96</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    integer = "arrow-up-1-9",</pre>
+                      <pre class="language-r">    grid::grid.draw(g)</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">97</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    grid::upViewport(1)</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="missed">
-                    <td class="num">241</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">99</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    logical = "pause",</pre>
+                      <pre class="language-r">    # draw x facet</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">242</td>
+                    <td class="num">100</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    Date = "calendar",</pre>
+                      <pre class="language-r">    if (!is.null(xfacet_label)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">243</td>
+                    <td class="num">101</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    POSIXct = "calendar",</pre>
+                      <pre class="language-r">      grid::pushViewport(grid::viewport(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">244</td>
+                    <td class="num">102</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    POSIXlt = "calendar",</pre>
+                      <pre class="language-r">        x = 0, y = grid::unit(1, "npc") - top_height, width = grid::unit(1, "npc"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">245</td>
+                    <td class="num">103</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    factor = "chart-bar",</pre>
+                      <pre class="language-r">        height = top_height, just = c("left", "bottom"), name = "topxaxis"</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">246</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">    character = "keyboard",</pre>
+                      <pre class="language-r">      ))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">247</td>
+                    <td class="num">105</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    primary_key = "key",</pre>
+                      <pre class="language-r">      grid::grid.draw(xaxis_label_grob)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">248</td>
+                    <td class="num">106</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    unknown = "circle-question"</pre>
+                      <pre class="language-r">      grid::upViewport(1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">249</td>
+                    <td class="num">107</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">250</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  class_to_icon &lt;- lapply(class_to_icon, function(icon_name) toString(icon(icon_name, lib = "font-awesome")))</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">251</td>
+                    <td class="num">108</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">252</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">  res &lt;- unname(vapply(</pre>
+                      <pre class="language-r">    # draw y facet</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">253</td>
+                    <td class="num">110</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    var_type,</pre>
+                      <pre class="language-r">    if (!is.null(yfacet_label)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">254</td>
+                    <td class="num">111</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    FUN.VALUE = character(1),</pre>
+                      <pre class="language-r">      grid::pushViewport(grid::viewport(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">255</td>
+                    <td class="num">112</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    FUN = function(class) {</pre>
+                      <pre class="language-r">        x = grid::unit(1, "npc") - grid::unit(as.numeric(right_width) / 2, "line"), y = 0, width = right_width,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">256</td>
+                    <td class="num">113</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (class == "") {</pre>
+                      <pre class="language-r">        height = grid::unit(1, "npc"), just = c("left", "bottom"), name = "rightyaxis"</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">257</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">        class</pre>
+                      <pre class="language-r">      ))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">258</td>
+                    <td class="num">115</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else if (is.null(class_to_icon[[class]])) {</pre>
+                      <pre class="language-r">      grid::grid.draw(yaxis_label_grob)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">259</td>
+                    <td class="num">116</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        class_to_icon[["unknown"]]</pre>
+                      <pre class="language-r">      grid::upViewport(1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">260</td>
+                    <td class="num">117</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">261</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">118</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        class_to_icon[[class]]</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">262</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">263</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">264</td>
+                    <td class="num">121</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ))</pre>
+                      <pre class="language-r">#' Call a function with a character vector for the \code{...} argument</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">265</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="missed">
-                    <td class="num">266</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">  return(res)</pre>
+                      <pre class="language-r">#' @param fun (\code{character}) Name of a function where the \code{...} argument</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">267</td>
+                    <td class="num">124</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'   shall be replaced by values from \code{str_args}.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">268</td>
+                    <td class="num">125</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @param str_args (\code{character}) A character vector that the function shall</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">269</td>
+                    <td class="num">126</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">#'  be executed with</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">270</td>
+                    <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">271</td>
+                    <td class="num">128</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">#' @return: call (i.e. expression) of the function provided by \code{fun}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">272</td>
+                    <td class="num">129</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">#'  with arguments provided by \code{str_args}.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">273</td>
+                    <td class="num">130</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">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">274</td>
+                    <td class="num">131</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">275</td>
+                    <td class="num">132</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">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">276</td>
+                    <td class="num">133</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' \dontrun{</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">277</td>
+                    <td class="num">134</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">#' a &lt;- 1</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">278</td>
+                    <td class="num">135</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#' b &lt;- 2</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">279</td>
+                    <td class="num">136</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">include_css_files &lt;- function(pattern = "*") {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">280</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  css_files &lt;- list.files(</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">281</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    system.file("css", package = "teal.modules.general", mustWork = TRUE),</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">282</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    pattern = pattern, full.names = TRUE</pre>
+                      <pre class="language-r">#' call_fun_dots("sum", c("a", "b"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">283</td>
+                    <td class="num">137</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">284</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  if (length(css_files) == 0) {</pre>
+                      <pre class="language-r">#' eval(call_fun_dots("sum", c("a", "b")))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">285</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">    return(NULL)</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">286</td>
+                    <td class="num">139</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">call_fun_dots &lt;- function(fun, str_args) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">287</td>
+                    <td class="num">140</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  return(shiny::singleton(shiny::tags$head(lapply(css_files, shiny::includeCSS))))</pre>
+                      <pre class="language-r">  do.call("call", c(list(fun), lapply(str_args, as.name)), quote = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">288</td>
+                    <td class="num">141</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">289</td>
+                    <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">290</td>
+                    <td class="num">143</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Get a string with java-script code checking if the specific tab is clicked</pre>
+                      <pre class="language-r">#' Get variable name with label</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">291</td>
+                    <td class="num">144</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description will be the input for `shiny::conditionalPanel()`</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">292</td>
+                    <td class="num">145</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param id `character(1)` the id of the tab panel with tabs.</pre>
+                      <pre class="language-r">#' @param var_names (\code{character}) Name of variable to extract labels from.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">293</td>
+                    <td class="num">146</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param name `character(1)` the name of the tab.</pre>
+                      <pre class="language-r">#' @param dataset (\code{dataset}) Name of analysis dataset.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">294</td>
+                    <td class="num">147</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#' @param prefix (\code{character}) String to paste to the beginning of the</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">295</td>
+                    <td class="num">148</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">is_tab_active_js &lt;- function(id, name) {</pre>
+                      <pre class="language-r">#'   variable name with label.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">296</td>
+                    <td class="num">149</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # supporting the bs3 and higher version at the same time</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">297</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  sprintf(</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">298</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    "$(\"#%1$s &gt; li.active\").text().trim() == '%2$s' || $(\"#%1$s &gt; li a.active\").text().trim() == '%2$s'",</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">299</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    id, name</pre>
+                      <pre class="language-r">#' @param suffix (\code{character}) String to paste to the end of the variable</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">300</td>
+                    <td class="num">150</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#'   name with label.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">301</td>
+                    <td class="num">151</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' @param wrap_width (\code{numeric}) Number of characters to wrap original</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/tm_data_table.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">152</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Data Table Viewer Teal Module</pre>
+                      <pre class="language-r">#'   label to. Defaults to 80.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">153</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="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' A data table viewer shows the data using a paginated table.</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">#' specifically designed for use with `data.frames`.</pre>
+                      <pre class="language-r">#' @return (\code{character}) String with variable name and label.</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">#' @md</pre>
+                      <pre class="language-r">#' @keywords internal</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>
                     </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">#' @inheritParams teal::module</pre>
+                      <pre class="language-r">#' @examples</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">#' @inheritParams shared_params</pre>
+                      <pre class="language-r">#' \dontrun{</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">#' @param variables_selected (`list`) A named list of character vectors of the variables (i.e. columns)</pre>
+                      <pre class="language-r">#' ADSL &lt;- teal.modules.general::rADSL</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">#'   which should be initially shown for each dataset. Names of list elements should correspond to the names</pre>
+                      <pre class="language-r">#'</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">#'   of the datasets available in the app. If no entry is specified for a dataset, the first six variables from that</pre>
+                      <pre class="language-r">#' varname_w_label("AGE", ADSL)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">162</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   dataset will initially be shown.</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">163</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param datasets_selected (`character`) A vector of datasets which should be</pre>
+                      <pre class="language-r">varname_w_label &lt;- function(var_names,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">164</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   shown and in what order. Names in the vector have to correspond with datasets names.</pre>
+                      <pre class="language-r">                            dataset,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">165</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   If vector of length zero (default) then all datasets are shown.</pre>
+                      <pre class="language-r">                            wrap_width = 80,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">166</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   Note: Only datasets of the `data.frame` class are compatible;</pre>
+                      <pre class="language-r">                            prefix = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">167</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   using other types will cause an error.</pre>
+                      <pre class="language-r">                            suffix = NULL) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">18</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">168</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param dt_args (named `list`) Additional arguments to be passed to `DT::datatable`</pre>
+                      <pre class="language-r">  add_label &lt;- function(var_names) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">19</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">169</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   (must not include `data` or `options`).</pre>
+                      <pre class="language-r">    label &lt;- vapply(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">20</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">#' @param dt_options (named `list`) The `options` argument to `DT::datatable`. By default</pre>
+                      <pre class="language-r">      dataset[var_names], function(x) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">21</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">#'   `list(searching = FALSE, pageLength = 30, lengthMenu = c(5, 15, 30, 100), scrollX = TRUE)`</pre>
+                      <pre class="language-r">        attr_label &lt;- attr(x, "label")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">22</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">#' @param server_rendering (`logical`) should the data table be rendered server side</pre>
+                      <pre class="language-r">        `if`(is.null(attr_label), "", attr_label)</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">#'   (see `server` argument of `DT::renderDataTable()`)</pre>
+                      <pre class="language-r">      },</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">24</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">#' @details</pre>
+                      <pre class="language-r">      character(1)</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">#'   The `DT` package has an option `DT.TOJSON_ARGS` to show `Inf` and `NA` in data tables. If this is something</pre>
+                      <pre class="language-r">    )</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">#'   you require then set `options(DT.TOJSON_ARGS =  list(na = "string"))` before running the module.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">27</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">177</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   Note though that sorting of numeric columns with `NA`/`Inf` will be lexicographic not numerical.</pre>
+                      <pre class="language-r">    if (length(label) == 1 &amp;&amp; !is.na(label) &amp;&amp; !identical(label, "")) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">28</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">#'</pre>
+                      <pre class="language-r">      paste0(prefix, label, " [", var_names, "]", suffix)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">29</td>
+                    <td class="num">179</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">30</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">#' # general data example</pre>
+                      <pre class="language-r">      var_names</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</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="never">
-                    <td class="num">32</td>
+                    <td class="num">182</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' data &lt;- teal_data()</pre>
+                      <pre class="language-r">  }</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">#' data &lt;- within(data, {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">34</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">#'   library(nestcolor)</pre>
+                      <pre class="language-r">  if (length(var_names) &lt; 1) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">35</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">#'   iris &lt;- iris</pre>
+                      <pre class="language-r">    NULL</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">36</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">#' })</pre>
+                      <pre class="language-r">  } else if (length(var_names) == 1) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">37</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">#' datanames(data) &lt;- c("iris")</pre>
+                      <pre class="language-r">    stringr::str_wrap(add_label(var_names), width = wrap_width)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">38</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">#'</pre>
+                      <pre class="language-r">  } else if (length(var_names) &gt; 1) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">39</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">#' app &lt;- init(</pre>
+                      <pre class="language-r">    stringr::str_wrap(vapply(var_names, add_label, character(1)), width = wrap_width)</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">#'   data = data,</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">191</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">42</td>
+                    <td class="num">192</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     tm_data_table(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <td class="num">193</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       variables_selected = list(</pre>
+                      <pre class="language-r">#' Extract html id for `data_extract_ui`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">44</td>
+                    <td class="num">194</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         iris = c("Sepal.Length", "Sepal.Width", "Petal.Length", "Petal.Width", "Species")</pre>
+                      <pre class="language-r">#' @description The `data_extract_ui` is located under extended html id.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">45</td>
+                    <td class="num">195</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       ),</pre>
+                      <pre class="language-r">#'   We could not use \code{ns("original id")} for reference, as it is extended with specific suffixes.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">46</td>
+                    <td class="num">196</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       dt_args = list(caption = "ADSL Table Caption")</pre>
+                      <pre class="language-r">#' @param varname character original html id.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">47</td>
+                    <td class="num">197</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     )</pre>
+                      <pre class="language-r">#'   This will be mostly retrieved with \code{ns("original id")} in `ui` or</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">48</td>
+                    <td class="num">198</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">#'   \code{session$ns("original id")} in server function.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">49</td>
+                    <td class="num">199</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#' @param dataname character \code{dataname} from data_extract input.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">50</td>
+                    <td class="num">200</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' if (interactive()) {</pre>
+                      <pre class="language-r">#'   This might be retrieved like \code{teal.transform::data_extract_spec(...)[[1]]$dataname}.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">51</td>
+                    <td class="num">201</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   shinyApp(app$ui, app$server)</pre>
+                      <pre class="language-r">#' @param filter logical if the connected \code{extract_data_spec} is used with \code{filter} option.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">52</td>
+                    <td class="num">202</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">53</td>
+                    <td class="num">203</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">extract_input &lt;- function(varname, dataname, filter = FALSE) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">54</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">#' # CDISC data example</pre>
+                      <pre class="language-r">  if (filter) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">55</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">#' data &lt;- teal_data()</pre>
+                      <pre class="language-r">    paste0(varname, "-dataset_", dataname, "_singleextract-filter1-vals")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">56</td>
+                    <td class="num">206</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' data &lt;- within(data, {</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">57</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">207</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   library(nestcolor)</pre>
+                      <pre class="language-r">    paste0(varname, "-dataset_", dataname, "_singleextract-select")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">58</td>
+                    <td class="num">208</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ADSL &lt;- rADSL</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">59</td>
+                    <td class="num">209</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' })</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">60</td>
+                    <td class="num">210</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' datanames(data) &lt;- "ADSL"</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">61</td>
+                    <td class="num">211</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' join_keys(data) &lt;- default_cdisc_join_keys[datanames(data)]</pre>
+                      <pre class="language-r"># see vignette("ggplot2-specs", package="ggplot2")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">62</td>
+                    <td class="num">212</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">shape_names &lt;- c(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">63</td>
+                    <td class="num">213</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' app &lt;- init(</pre>
+                      <pre class="language-r">  "circle", paste("circle", c("open", "filled", "cross", "plus", "small")), "bullet",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">64</td>
+                    <td class="num">214</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = data,</pre>
+                      <pre class="language-r">  "square", paste("square", c("open", "filled", "cross", "plus", "triangle")),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">65</td>
+                    <td class="num">215</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   modules = modules(</pre>
+                      <pre class="language-r">  "diamond", paste("diamond", c("open", "filled", "plus")),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">66</td>
+                    <td class="num">216</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     tm_data_table(</pre>
+                      <pre class="language-r">  "triangle", paste("triangle", c("open", "filled", "square")),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">67</td>
+                    <td class="num">217</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       variables_selected = list(ADSL = c("STUDYID", "USUBJID", "SUBJID", "SITEID", "AGE", "SEX")),</pre>
+                      <pre class="language-r">  paste("triangle down", c("open", "filled")),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">68</td>
+                    <td class="num">218</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       dt_args = list(caption = "ADSL Table Caption")</pre>
+                      <pre class="language-r">  "plus", "cross", "asterisk"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">69</td>
+                    <td class="num">219</td>
                     <td class="coverage"></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">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">71</td>
+                    <td class="num">221</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#' Get icons to represent variable types in dataset</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">72</td>
+                    <td class="num">222</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">73</td>
+                    <td class="num">223</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   shinyApp(app$ui, app$server)</pre>
+                      <pre class="language-r">#' @param var_type (`character`)\cr</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">74</td>
+                    <td class="num">224</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">#'  of R internal types (classes).</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">75</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">76</td>
+                    <td class="num">226</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' @return (`character`)\cr</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">77</td>
+                    <td class="num">227</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'  vector of HTML icons corresponding to data type in each column.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">78</td>
+                    <td class="num">228</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">tm_data_table &lt;- function(label = "Data Table",</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">79</td>
+                    <td class="num">229</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          variables_selected = list(),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">80</td>
+                    <td class="num">230</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          datasets_selected = character(0),</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">81</td>
+                    <td class="num">231</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          dt_args = list(),</pre>
+                      <pre class="language-r">#' teal.modules.general:::variable_type_icons(c(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">82</td>
+                    <td class="num">232</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          dt_options = list(</pre>
+                      <pre class="language-r">#'   "integer", "numeric", "logical", "Date", "POSIXct", "POSIXlt",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">83</td>
+                    <td class="num">233</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            searching = FALSE,</pre>
+                      <pre class="language-r">#'   "factor", "character", "unknown", ""</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">84</td>
+                    <td class="num">234</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            pageLength = 30,</pre>
+                      <pre class="language-r">#' ))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">85</td>
+                    <td class="num">235</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            lengthMenu = c(5, 15, 30, 100),</pre>
+                      <pre class="language-r">variable_type_icons &lt;- function(var_type) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">86</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">                            scrollX = TRUE</pre>
+                      <pre class="language-r">  checkmate::assert_character(var_type, any.missing = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">87</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">88</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">                          server_rendering = FALSE,</pre>
+                      <pre class="language-r">  class_to_icon &lt;- list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">89</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">239</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          pre_output = NULL,</pre>
+                      <pre class="language-r">    numeric = "arrow-up-1-9",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">90</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">                          post_output = NULL) {</pre>
+                      <pre class="language-r">    integer = "arrow-up-1-9",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">91</td>
+                    <td class="num">241</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  logger::log_info("Initializing tm_data_table")</pre>
+                      <pre class="language-r">    logical = "pause",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">92</td>
+                    <td class="num">242</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(label)</pre>
+                      <pre class="language-r">    Date = "calendar",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">93</td>
+                    <td class="num">243</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(variables_selected, min.len = 0, types = "character", names = "named")</pre>
+                      <pre class="language-r">    POSIXct = "calendar",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">94</td>
+                    <td class="num">244</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (length(variables_selected) &gt; 0) {</pre>
+                      <pre class="language-r">    POSIXlt = "calendar",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">95</td>
+                    <td class="num">245</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lapply(seq_along(variables_selected), function(i) {</pre>
+                      <pre class="language-r">    factor = "chart-bar",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">96</td>
+                    <td class="num">246</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::assert_character(variables_selected[[i]], min.chars = 1, min.len = 1)</pre>
+                      <pre class="language-r">    character = "keyboard",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">97</td>
+                    <td class="num">247</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (!is.null(names(variables_selected[[i]]))) {</pre>
+                      <pre class="language-r">    primary_key = "key",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">98</td>
+                    <td class="num">248</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        checkmate::assert_names(names(variables_selected[[i]]))</pre>
+                      <pre class="language-r">    unknown = "circle-question"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">99</td>
+                    <td class="num">249</td>
                     <td class="coverage"></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="missed">
+                    <td class="num">250</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">  class_to_icon &lt;- lapply(class_to_icon, function(icon_name) toString(icon(icon_name, lib = "font-awesome")))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">101</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="missed">
-                    <td class="num">102</td>
+                    <td class="num">252</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(datasets_selected, min.len = 0, min.chars = 1)</pre>
+                      <pre class="language-r">  res &lt;- unname(vapply(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">103</td>
+                    <td class="num">253</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(dt_options, names = "named")</pre>
+                      <pre class="language-r">    var_type,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">104</td>
+                    <td class="num">254</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert(</pre>
+                      <pre class="language-r">    FUN.VALUE = character(1),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">105</td>
+                    <td class="num">255</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::check_list(dt_args, len = 0),</pre>
+                      <pre class="language-r">    FUN = function(class) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">106</td>
+                    <td class="num">256</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::check_subset(names(dt_args), choices = names(formals(DT::datatable)))</pre>
+                      <pre class="language-r">      if (class == "") {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">257</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        class</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">258</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      } else if (is.null(class_to_icon[[class]])) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">259</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        class_to_icon[["unknown"]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">107</td>
+                    <td class="num">260</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">261</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        class_to_icon[[class]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">108</td>
+                    <td class="num">262</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">263</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">264</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  ))</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">265</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">109</td>
+                    <td class="num">266</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(server_rendering)</pre>
+                      <pre class="language-r">  return(res)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">110</td>
+                    <td class="num">267</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">}</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>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">111</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">269</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  module(</pre>
+                      <pre class="language-r">#' Include `CSS` files from `/inst/css/` package directory to application header</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">112</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">270</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    label,</pre>
+                      <pre class="language-r">#'</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">271</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>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">272</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>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">273</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' as needed. Thus, we do not export this method</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">274</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <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">#' @param pattern (`character`) pattern of files to be included</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>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">277</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' @return HTML code that includes `CSS` files</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">278</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">279</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">include_css_files &lt;- function(pattern = "*") {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">113</td>
+                    <td class="num">280</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    server = srv_page_data_table,</pre>
+                      <pre class="language-r">  css_files &lt;- list.files(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">114</td>
+                    <td class="num">281</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ui = ui_page_data_table,</pre>
+                      <pre class="language-r">    system.file("css", package = "teal.modules.general", mustWork = TRUE),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">115</td>
+                    <td class="num">282</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    datanames = if (length(datasets_selected) == 0) "all" else datasets_selected,</pre>
+                      <pre class="language-r">    pattern = pattern, full.names = TRUE</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">283</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">116</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">  if (length(css_files) == 0) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">117</td>
+                    <td class="num">285</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      variables_selected = variables_selected,</pre>
+                      <pre class="language-r">    return(NULL)</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>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">118</td>
+                    <td class="num">287</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      datasets_selected = datasets_selected,</pre>
+                      <pre class="language-r">  return(shiny::singleton(shiny::tags$head(lapply(css_files, shiny::includeCSS))))</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>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">289</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="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' Get a string with java-script code checking if the specific tab is clicked</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">291</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' @description will be the input for `shiny::conditionalPanel()`</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">292</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' @param id `character(1)` the id of the tab panel with tabs.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">119</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">293</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dt_args = dt_args,</pre>
+                      <pre class="language-r">#' @param name `character(1)` the name of the tab.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">120</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">294</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dt_options = dt_options,</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">121</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">295</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      server_rendering = server_rendering</pre>
+                      <pre class="language-r">is_tab_active_js &lt;- function(id, name) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">122</td>
+                    <td class="num">296</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ),</pre>
+                      <pre class="language-r">  # supporting the bs3 and higher version at the same time</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">123</td>
+                    <td class="num">297</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ui_args = list(</pre>
+                      <pre class="language-r">  sprintf(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">124</td>
+                    <td class="num">298</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      pre_output = pre_output,</pre>
+                      <pre class="language-r">    "$(\"#%1$s &gt; li.active\").text().trim() == '%2$s' || $(\"#%1$s &gt; li a.active\").text().trim() == '%2$s'",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">125</td>
+                    <td class="num">299</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      post_output = post_output</pre>
+                      <pre class="language-r">    id, name</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">126</td>
+                    <td class="num">300</td>
                     <td class="coverage"></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">301</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/tm_t_crosstable.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">128</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 simple cross-table</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">129</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @md</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">130</td>
+                    <td class="num">3</td>
                     <td class="coverage"></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">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># ui page module</pre>
+                      <pre class="language-r">#' @inheritParams teal::module</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">132</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">ui_page_data_table &lt;- function(id,</pre>
+                      <pre class="language-r">#' @inheritParams shared_params</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">133</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                               pre_output = NULL,</pre>
+                      <pre class="language-r">#' @param x (`data_extract_spec` or `list` of multiple `data_extract_spec`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">134</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                               post_output = NULL) {</pre>
+                      <pre class="language-r">#'  Object with all available choices with pre-selected option for variable X - row values. In case</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">135</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">  ns &lt;- NS(id)</pre>
+                      <pre class="language-r">#'  of `data_extract_spec` use `select_spec(..., ordered = TRUE)` if table elements should be</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">136</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'  rendered according to selection order.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">137</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">  shiny::tagList(</pre>
+                      <pre class="language-r">#' @param y (`data_extract_spec` or `list` of multiple `data_extract_spec`)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">138</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">    include_css_files("custom"),</pre>
+                      <pre class="language-r">#'  Object with all available choices with pre-selected option for variable Y - column values</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">139</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">    teal.widgets::standard_layout(</pre>
+                      <pre class="language-r">#'  \code{data_extract_spec} must not allow multiple selection in this case.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">140</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">      output = teal.widgets::white_small_well(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">141</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">        fluidRow(</pre>
+                      <pre class="language-r">#' @param show_percentage optional, (`logical`) Whether to show percentages</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">142</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">          column(</pre>
+                      <pre class="language-r">#'   (relevant only when `x` is a `factor`). Defaults to `TRUE`.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">143</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">            width = 12,</pre>
+                      <pre class="language-r">#' @param show_total optional, (`logical`) Whether to show total column. Defaults to `TRUE`.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">144</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">            checkboxInput(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">145</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">              ns("if_distinct"),</pre>
+                      <pre class="language-r">#' @note For more examples, please see the vignette "Using cross table" via</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">146</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">              "Show only distinct rows:",</pre>
+                      <pre class="language-r">#'   `vignette("using-cross-table", package = "teal.modules.general")`.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">147</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">              value = FALSE</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">148</td>
+                    <td class="num">21</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">149</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">#' # general data example</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">150</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ),</pre>
+                      <pre class="language-r">#' library(teal.widgets)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">151</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">        fluidRow(</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">25</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          class = "mb-8",</pre>
+                      <pre class="language-r">#' data &lt;- teal_data()</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">153</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">          column(</pre>
+                      <pre class="language-r">#' data &lt;- within(data, {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">154</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">            width = 12,</pre>
+                      <pre class="language-r">#'   mtcars &lt;- mtcars</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">155</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">            uiOutput(ns("dataset_table"))</pre>
+                      <pre class="language-r">#'   for (v in c("cyl", "vs", "am", "gear")) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">156</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">#'     mtcars[[v]] &lt;- as.factor(mtcars[[v]])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">157</td>
+                    <td class="num">30</td>
                     <td class="coverage"></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">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ),</pre>
+                      <pre class="language-r">#'   mtcars[["primary_key"]] &lt;- seq_len(nrow(mtcars))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">159</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">      pre_output = pre_output,</pre>
+                      <pre class="language-r">#' })</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">160</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">      post_output = post_output</pre>
+                      <pre class="language-r">#' datanames(data) &lt;- "mtcars"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">161</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#' join_keys(data) &lt;- join_keys(join_key("mtcars", "mtcars", "primary_key"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">162</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">163</td>
+                    <td class="num">36</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">164</td>
+                    <td class="num">37</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">165</td>
+                    <td class="num">38</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">166</td>
+                    <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># server page module</pre>
+                      <pre class="language-r">#'     tm_t_crosstable(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">167</td>
+                    <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">srv_page_data_table &lt;- function(id,</pre>
+                      <pre class="language-r">#'       label = "Cross Table",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">168</td>
+                    <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                data,</pre>
+                      <pre class="language-r">#'       x = data_extract_spec(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">169</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                datasets_selected,</pre>
+                      <pre class="language-r">#'         dataname = "mtcars",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">170</td>
+                    <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                variables_selected,</pre>
+                      <pre class="language-r">#'         select = select_spec(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">171</td>
+                    <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                dt_args,</pre>
+                      <pre class="language-r">#'           label = "Select variable:",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">172</td>
+                    <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                dt_options,</pre>
+                      <pre class="language-r">#'           choices = variable_choices(data[["mtcars"]], c("cyl", "vs", "am", "gear")),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">173</td>
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                server_rendering) {</pre>
+                      <pre class="language-r">#'           selected = c("cyl", "gear"),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">174</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">  checkmate::assert_class(data, "reactive")</pre>
+                      <pre class="language-r">#'           multiple = TRUE,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">175</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">  checkmate::assert_class(isolate(data()), "teal_data")</pre>
+                      <pre class="language-r">#'           ordered = TRUE,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">176</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">  moduleServer(id, function(input, output, session) {</pre>
+                      <pre class="language-r">#'           fixed = FALSE</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">177</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">50</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if_filtered &lt;- reactive(as.logical(input$if_filtered))</pre>
+                      <pre class="language-r">#'         )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">178</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">    if_distinct &lt;- reactive(as.logical(input$if_distinct))</pre>
+                      <pre class="language-r">#'       ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">179</td>
+                    <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'       y = data_extract_spec(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">180</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">    datanames &lt;- isolate(teal.data::datanames(data()))</pre>
+                      <pre class="language-r">#'         dataname = "mtcars",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">181</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">    datanames &lt;- Filter(function(name) {</pre>
+                      <pre class="language-r">#'         select = select_spec(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">182</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">      is.data.frame(isolate(data())[[name]])</pre>
+                      <pre class="language-r">#'           label = "Select variable:",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">183</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">    }, datanames)</pre>
+                      <pre class="language-r">#'           choices = variable_choices(data[["mtcars"]], c("cyl", "vs", "am", "gear")),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">184</td>
+                    <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'           selected = "vs",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">185</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 (!identical(datasets_selected, character(0))) {</pre>
+                      <pre class="language-r">#'           multiple = FALSE,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">186</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">      checkmate::assert_subset(datasets_selected, datanames)</pre>
+                      <pre class="language-r">#'           fixed = FALSE</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">187</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">      datanames &lt;- datasets_selected</pre>
+                      <pre class="language-r">#'         )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">188</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">189</td>
+                    <td class="num">62</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'       basic_table_args = basic_table_args(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">190</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">    output$dataset_table &lt;- renderUI({</pre>
+                      <pre class="language-r">#'         subtitles = "Table generated by Crosstable Module"</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">191</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">      do.call(</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">65</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        tabsetPanel,</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">66</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="missed">
-                    <td class="num">194</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">          datanames,</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">68</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">196</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">            dataset &lt;- isolate(data()[[x]])</pre>
+                      <pre class="language-r">#'   shinyApp(app$ui, app$server)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">197</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">            choices &lt;- names(dataset)</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">198</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">            labels &lt;- vapply(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">199</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">              dataset,</pre>
+                      <pre class="language-r">#' # CDISC data example</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">200</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">              function(x) ifelse(is.null(attr(x, "label")), "", attr(x, "label")),</pre>
+                      <pre class="language-r">#' library(teal.widgets)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">201</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">              character(1)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">202</td>
+                    <td class="num">75</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">#' data &lt;- teal_data()</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">203</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">            names(choices) &lt;- ifelse(</pre>
+                      <pre class="language-r">#' data &lt;- within(data, {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">204</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">              is.na(labels) | labels == "",</pre>
+                      <pre class="language-r">#'   ADSL &lt;- rADSL</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">205</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">              choices,</pre>
+                      <pre class="language-r">#' })</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">206</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">              paste(choices, labels, sep = ": ")</pre>
+                      <pre class="language-r">#' datanames(data) &lt;- "ADSL"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">207</td>
+                    <td class="num">80</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">#' join_keys(data) &lt;- default_cdisc_join_keys[datanames(data)]</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">208</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">            variables_selected &lt;- if (!is.null(variables_selected[[x]])) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">209</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">              variables_selected[[x]]</pre>
+                      <pre class="language-r">#' app &lt;- init(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">210</td>
+                    <td class="num">83</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            } else {</pre>
+                      <pre class="language-r">#'   data = data,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">211</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">              utils::head(choices)</pre>
+                      <pre class="language-r">#'   modules = modules(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">212</td>
+                    <td class="num">85</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            }</pre>
+                      <pre class="language-r">#'     tm_t_crosstable(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">213</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">            tabPanel(</pre>
+                      <pre class="language-r">#'       label = "Cross Table",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">214</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">              title = x,</pre>
+                      <pre class="language-r">#'       x = data_extract_spec(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">215</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">              column(</pre>
+                      <pre class="language-r">#'         dataname = "ADSL",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">216</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">                width = 12,</pre>
+                      <pre class="language-r">#'         select = select_spec(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">217</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">                div(</pre>
+                      <pre class="language-r">#'           label = "Select variable:",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">218</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">91</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  class = "mt-4",</pre>
+                      <pre class="language-r">#'           choices = variable_choices(data[["ADSL"]], subset = function(data) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">219</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">92</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  ui_data_table(</pre>
+                      <pre class="language-r">#'             idx &lt;- !vapply(data, inherits, logical(1), c("Date", "POSIXct", "POSIXlt"))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">220</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">                    id = session$ns(x),</pre>
+                      <pre class="language-r">#'             return(names(data)[idx])</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">221</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">                    choices = choices,</pre>
+                      <pre class="language-r">#'           }),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">222</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">                    selected = variables_selected</pre>
+                      <pre class="language-r">#'           selected = "COUNTRY",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">223</td>
+                    <td class="num">96</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="never">
-                    <td class="num">224</td>
+                    <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                )</pre>
+                      <pre class="language-r">#'           ordered = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">225</td>
+                    <td class="num">98</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              )</pre>
+                      <pre class="language-r">#'           fixed = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">226</td>
+                    <td class="num">99</td>
                     <td class="coverage"></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">100</td>
                     <td class="coverage"></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">101</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#'       y = data_extract_spec(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">229</td>
+                    <td class="num">102</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#'         dataname = "ADSL",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">230</td>
+                    <td class="num">103</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">#'         select = select_spec(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">231</td>
+                    <td class="num">104</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'           label = "Select variable:",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">232</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">    lapply(</pre>
+                      <pre class="language-r">#'           choices = variable_choices(data[["ADSL"]], subset = function(data) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">233</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">      datanames,</pre>
+                      <pre class="language-r">#'             idx &lt;- vapply(data, is.factor, logical(1))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">234</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">      function(x) {</pre>
+                      <pre class="language-r">#'             return(names(data)[idx])</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">235</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">        srv_data_table(</pre>
+                      <pre class="language-r">#'           }),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">236</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">          id = x,</pre>
+                      <pre class="language-r">#'           selected = "SEX",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">237</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">110</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          data = data,</pre>
+                      <pre class="language-r">#'           multiple = FALSE,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">238</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">          dataname = x,</pre>
+                      <pre class="language-r">#'           fixed = FALSE</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">239</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">          if_filtered = if_filtered,</pre>
+                      <pre class="language-r">#'         )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">240</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">          if_distinct = if_distinct,</pre>
+                      <pre class="language-r">#'       ),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">241</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">          dt_args = dt_args,</pre>
+                      <pre class="language-r">#'       basic_table_args = basic_table_args(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">242</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">          dt_options = dt_options,</pre>
+                      <pre class="language-r">#'         subtitles = "Table generated by Crosstable Module"</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">243</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">116</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          server_rendering = server_rendering</pre>
+                      <pre class="language-r">#'       )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">244</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">245</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">246</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">247</td>
+                    <td class="num">120</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">248</td>
+                    <td class="num">121</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">249</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">250</td>
+                    <td class="num">123</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">ui_data_table &lt;- function(id,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">251</td>
+                    <td class="num">124</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          choices,</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">252</td>
+                    <td class="num">125</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          selected) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">253</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">126</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ns &lt;- NS(id)</pre>
+                      <pre class="language-r">tm_t_crosstable &lt;- function(label = "Cross Table",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">254</td>
+                    <td class="num">127</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                            x,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">255</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">128</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(selected)) {</pre>
+                      <pre class="language-r">                            y,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">256</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">    all_choices &lt;- choices</pre>
+                      <pre class="language-r">                            show_percentage = TRUE,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">257</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">130</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    choices &lt;- c(selected, setdiff(choices, selected))</pre>
+                      <pre class="language-r">                            show_total = TRUE,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">258</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">131</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    names(choices) &lt;- names(all_choices)[match(choices, all_choices)]</pre>
+                      <pre class="language-r">                            pre_output = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">259</td>
+                    <td class="num">132</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">                            post_output = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">260</td>
+                    <td class="num">133</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                            basic_table_args = teal.widgets::basic_table_args()) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">261</td>
+                    <td class="num">134</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  tagList(</pre>
+                      <pre class="language-r">  logger::log_info("Initializing tm_t_crosstable")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">262</td>
+                    <td class="num">135</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    teal.widgets::get_dt_rows(ns("data_table"), ns("dt_rows")),</pre>
+                      <pre class="language-r">  if (!requireNamespace("rtables", quietly = TRUE)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">263</td>
+                    <td class="num">136</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    fluidRow(</pre>
+                      <pre class="language-r">    stop("Cannot load rtables - please install the package or restart your session.")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">264</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">      teal.widgets::optionalSelectInput(</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">265</td>
+                    <td class="num">138</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ns("variables"),</pre>
+                      <pre class="language-r">  if (inherits(x, "data_extract_spec")) x &lt;- list(x)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">266</td>
+                    <td class="num">139</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "Select variables:",</pre>
+                      <pre class="language-r">  if (inherits(y, "data_extract_spec")) y &lt;- list(y)</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="missed">
-                    <td class="num">267</td>
+                    <td class="num">141</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        choices = choices,</pre>
+                      <pre class="language-r">  checkmate::assert_string(label)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">268</td>
+                    <td class="num">142</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        selected = selected,</pre>
+                      <pre class="language-r">  checkmate::assert_list(x, types = "data_extract_spec")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">269</td>
+                    <td class="num">143</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        multiple = TRUE,</pre>
+                      <pre class="language-r">  checkmate::assert_list(y, types = "data_extract_spec")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">270</td>
+                    <td class="num">144</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        width = "100%"</pre>
+                      <pre class="language-r">  if (any(vapply(y, function(x) x$select$multiple, logical(1)))) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">271</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">145</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">    stop("'y' should not allow multiple selection")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">272</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="missed">
-                    <td class="num">273</td>
+                    <td class="num">147</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    fluidRow(</pre>
+                      <pre class="language-r">  checkmate::assert_flag(show_percentage)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">274</td>
+                    <td class="num">148</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      DT::dataTableOutput(ns("data_table"), width = "100%")</pre>
+                      <pre class="language-r">  checkmate::assert_flag(show_total)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">275</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">149</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">  checkmate::assert_class(basic_table_args, classes = "basic_table_args")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">276</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">277</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">151</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">  ui_args &lt;- as.list(environment())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">278</td>
+                    <td class="num">152</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <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">srv_data_table &lt;- function(id,</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">280</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">                           data,</pre>
+                      <pre class="language-r">  server_args &lt;- list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">281</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">154</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           dataname,</pre>
+                      <pre class="language-r">    label = label,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">282</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">                           if_filtered,</pre>
+                      <pre class="language-r">    x = x,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">283</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">                           if_distinct,</pre>
+                      <pre class="language-r">    y = y,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">284</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">                           dt_args,</pre>
+                      <pre class="language-r">    basic_table_args = basic_table_args</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">285</td>
+                    <td class="num">158</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           dt_options,</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">286</td>
+                    <td class="num">159</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           server_rendering) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">287</td>
+                    <td class="num">160</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">  module(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">288</td>
+                    <td class="num">161</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    iv &lt;- shinyvalidate::InputValidator$new()</pre>
+                      <pre class="language-r">    label = label,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">289</td>
+                    <td class="num">162</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    iv$add_rule("variables", shinyvalidate::sv_required("Please select valid variable names"))</pre>
+                      <pre class="language-r">    server = srv_t_crosstable,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">290</td>
+                    <td class="num">163</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    iv$add_rule("variables", shinyvalidate::sv_in_set(</pre>
+                      <pre class="language-r">    ui = ui_t_crosstable,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">291</td>
+                    <td class="num">164</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      set = names(data()[[dataname]]), message_fmt = "Not all selected variables exist in the data"</pre>
+                      <pre class="language-r">    ui_args = ui_args,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">292</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">165</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ))</pre>
+                      <pre class="language-r">    server_args = server_args,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">293</td>
+                    <td class="num">166</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    iv$enable()</pre>
+                      <pre class="language-r">    datanames = teal.transform::get_extract_datanames(list(x = x, y = y))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">294</td>
+                    <td class="num">167</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">168</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    output$data_table &lt;- DT::renderDataTable(server = server_rendering, {</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">296</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">      teal::validate_inputs(iv)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">297</td>
+                    <td class="num">170</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">ui_t_crosstable &lt;- function(id, x, y, show_percentage, show_total, pre_output, post_output, ...) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">298</td>
+                    <td class="num">171</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      df &lt;- data()[[dataname]]</pre>
+                      <pre class="language-r">  ns &lt;- NS(id)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">299</td>
+                    <td class="num">172</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      variables &lt;- input$variables</pre>
+                      <pre class="language-r">  is_single_dataset &lt;- teal.transform::is_single_dataset(x, y)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">300</td>
+                    <td class="num">173</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">301</td>
+                    <td class="num">174</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal::validate_has_data(df, min_nrow = 1L, msg = paste("data", dataname, "is empty"))</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">302</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  join_default_options &lt;- c(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">303</td>
+                    <td class="num">175</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dataframe_selected &lt;- if (if_distinct()) {</pre>
+                      <pre class="language-r">    "Full Join" = "dplyr::full_join",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">304</td>
+                    <td class="num">176</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        dplyr::count(df, dplyr::across(tidyselect::all_of(variables)))</pre>
+                      <pre class="language-r">    "Inner Join" = "dplyr::inner_join",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">305</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">177</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">    "Left Join" = "dplyr::left_join",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">306</td>
+                    <td class="num">178</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        df[variables]</pre>
+                      <pre class="language-r">    "Right Join" = "dplyr::right_join"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">307</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">308</td>
+                    <td class="num">180</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">309</td>
+                    <td class="num">181</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dt_args$options &lt;- dt_options</pre>
+                      <pre class="language-r">  teal.widgets::standard_layout(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">310</td>
+                    <td class="num">182</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (!is.null(input$dt_rows)) {</pre>
+                      <pre class="language-r">    output = teal.widgets::white_small_well(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">311</td>
+                    <td class="num">183</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        dt_args$options$pageLength &lt;- input$dt_rows</pre>
+                      <pre class="language-r">      textOutput(ns("title")),</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">184</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      teal.widgets::table_with_settings_ui(ns("table"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">312</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="missed">
-                    <td class="num">313</td>
+                    <td class="num">186</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dt_args$data &lt;- dataframe_selected</pre>
+                      <pre class="language-r">    encoding = div(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">314</td>
+                    <td class="num">187</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      ### Reporter</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">315</td>
+                    <td class="num">188</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      do.call(DT::datatable, dt_args)</pre>
+                      <pre class="language-r">      teal.reporter::simple_reporter_ui(ns("simple_reporter")),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">316</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">317</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">      tags$label("Encodings", class = "text-primary"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">318</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">191</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">      teal.transform::datanames_input(list(x, y)),</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/tm_front_page.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">192</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Front page module</pre>
+                      <pre class="language-r">      teal.transform::data_extract_ui(ns("x"), label = "Row values", x, is_single_dataset = is_single_dataset),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">2</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">#'</pre>
+                      <pre class="language-r">      teal.transform::data_extract_ui(ns("y"), label = "Column values", y, is_single_dataset = is_single_dataset),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">3</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">#' @description This `teal` module creates a simple front page for `teal` applications</pre>
+                      <pre class="language-r">      teal.widgets::optionalSelectInput(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">4</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">#'</pre>
+                      <pre class="language-r">        ns("join_fun"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">5</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">#' @inheritParams teal::module</pre>
+                      <pre class="language-r">        label = "Row to Column type of join",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">6</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">#' @param header_text `character vector` text to be shown at the top of the module, for each</pre>
+                      <pre class="language-r">        choices = join_default_options,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">7</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">198</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   element, if named the name is shown first in bold as a header followed by the value. The first</pre>
+                      <pre class="language-r">        selected = join_default_options[1],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">8</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">#'   element's header is displayed larger than the others</pre>
+                      <pre class="language-r">        multiple = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">200</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param tables `named list of dataframes` tables to be shown in the module</pre>
+                      <pre class="language-r">      ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">10</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 additional_tags `shiny.tag.list` or `html` additional shiny tags or `html` to be included after the table,</pre>
+                      <pre class="language-r">      tags$hr(),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">11</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">#'   for example to include an image, `tagList(tags$img(src = "image.png"))` or to include further `html`,</pre>
+                      <pre class="language-r">      teal.widgets::panel_group(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">12</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">#'   `HTML("html text here")`</pre>
+                      <pre class="language-r">        teal.widgets::panel_item(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">13</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">#' @param footnotes `character vector` text to be shown at the bottom of the module, for each</pre>
+                      <pre class="language-r">          title = "Table settings",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">14</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">#'   element, if named the name is shown first in bold, followed by the value</pre>
+                      <pre class="language-r">          checkboxInput(ns("show_percentage"), "Show column percentage", value = show_percentage),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">15</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">#' @param show_metadata `logical` should the metadata of the datasets be available on the module?</pre>
+                      <pre class="language-r">          checkboxInput(ns("show_total"), "Show total column", value = show_total)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">207</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `teal` module to be used in `teal` applications</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">208</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">18</td>
+                    <td class="num">209</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">19</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">210</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    forms = tagList(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">20</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">#' data &lt;- teal_data()</pre>
+                      <pre class="language-r">      teal.widgets::verbatim_popup_ui(ns("warning"), "Show Warnings"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">21</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">#' data &lt;- within(data, {</pre>
+                      <pre class="language-r">      teal.widgets::verbatim_popup_ui(ns("rcode"), "Show R code")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">213</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   library(nestcolor)</pre>
+                      <pre class="language-r">    ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">23</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">214</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ADSL &lt;- teal.modules.general::rADSL</pre>
+                      <pre class="language-r">    pre_output = pre_output,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">24</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">#'   attr(ADSL, "metadata") &lt;- list("Author" = "NEST team", "data_source" = "synthetic data")</pre>
+                      <pre class="language-r">    post_output = post_output</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</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">26</td>
+                    <td class="num">217</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' datanames &lt;- c("ADSL")</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">218</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' datanames(data) &lt;- datanames</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">28</td>
+                    <td class="num">219</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' join_keys(data) &lt;- default_cdisc_join_keys[datanames]</pre>
+                      <pre class="language-r">srv_t_crosstable &lt;- function(id, data, reporter, filter_panel_api, label, x, y, basic_table_args) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">29</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">#'</pre>
+                      <pre class="language-r">  with_reporter &lt;- !missing(reporter) &amp;&amp; inherits(reporter, "Reporter")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">30</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">#' table_1 &lt;- data.frame(Info = c("A", "B"), Text = c("A", "B"))</pre>
+                      <pre class="language-r">  with_filter &lt;- !missing(filter_panel_api) &amp;&amp; inherits(filter_panel_api, "FilterPanelAPI")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">31</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">#' table_2 &lt;- data.frame(`Column 1` = c("C", "D"), `Column 2` = c(5.5, 6.6), `Column 3` = c("A", "B"))</pre>
+                      <pre class="language-r">  checkmate::assert_class(data, "reactive")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">32</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">#' table_3 &lt;- data.frame(Info = c("E", "F"), Text = c("G", "H"))</pre>
+                      <pre class="language-r">  checkmate::assert_class(isolate(data()), "teal_data")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">33</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">224</td>
+                    <td class="coverage">!</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">34</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">#' table_input &lt;- list(</pre>
+                      <pre class="language-r">    selector_list &lt;- teal.transform::data_extract_multiple_srv(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">35</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">#'   "Table 1" = table_1,</pre>
+                      <pre class="language-r">      data_extract = list(x = x, y = y),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">36</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">#'   "Table 2" = table_2,</pre>
+                      <pre class="language-r">      datasets = data,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">37</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">228</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   "Table 3" = table_3</pre>
+                      <pre class="language-r">      select_validation_rule = list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">38</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">#' )</pre>
+                      <pre class="language-r">        x = shinyvalidate::sv_required("Please define column for row variable."),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">39</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">#'</pre>
+                      <pre class="language-r">        y = shinyvalidate::sv_required("Please define column for column variable.")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">231</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' app &lt;- teal::init(</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">232</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = data,</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">233</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   modules = teal::modules(</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">234</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     teal.modules.general::tm_front_page(</pre>
+                      <pre class="language-r">    iv_r &lt;- reactive({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">44</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">#'       header_text = c(</pre>
+                      <pre class="language-r">      iv &lt;- shinyvalidate::InputValidator$new()</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">45</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">      iv$add_rule("join_fun", function(value) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">237</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        if (!identical(selector_list()$x()$dataname, selector_list()$y()$dataname)) {</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 (!shinyvalidate::input_provided(value)) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">239</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         "Important information" = "It can go here.",</pre>
+                      <pre class="language-r">            "Please select a joining function."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">46</td>
+                    <td class="num">240</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         "Other information" = "Can go here."</pre>
+                      <pre class="language-r">          }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">47</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">48</td>
+                    <td class="num">242</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       tables = table_input,</pre>
+                      <pre class="language-r">      })</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">49</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">#'       additional_tags = HTML("Additional HTML or shiny tags go here &lt;br&gt;"),</pre>
+                      <pre class="language-r">      teal.transform::compose_and_enable_validators(iv, selector_list)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">50</td>
+                    <td class="num">244</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       footnotes = c("X" = "is the first footnote", "Y is the second footnote"),</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">51</td>
+                    <td class="num">245</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       show_metadata = TRUE</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">52</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">#'     )</pre>
+                      <pre class="language-r">    observeEvent(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">53</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">247</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ),</pre>
+                      <pre class="language-r">      eventExpr = {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">54</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">248</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   header = tags$h1("Sample Application"),</pre>
+                      <pre class="language-r">        req(!is.null(selector_list()$x()) &amp;&amp; !is.null(selector_list()$y()))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">55</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">#'   footer = tags$p("Application footer"),</pre>
+                      <pre class="language-r">        list(selector_list()$x(), selector_list()$y())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">56</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="never">
-                    <td class="num">57</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">#' if (interactive()) {</pre>
+                      <pre class="language-r">      handlerExpr = {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">58</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">#'   shinyApp(app$ui, app$server)</pre>
+                      <pre class="language-r">        if (identical(selector_list()$x()$dataname, selector_list()$y()$dataname)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">59</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">          shinyjs::hide("join_fun")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">60</td>
+                    <td class="num">254</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">tm_front_page &lt;- function(label = "Front page",</pre>
+                      <pre class="language-r">        } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">61</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">                          header_text = character(0),</pre>
+                      <pre class="language-r">          shinyjs::show("join_fun")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">62</td>
+                    <td class="num">256</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          tables = list(),</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">63</td>
+                    <td class="num">257</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          additional_tags = tagList(),</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">64</td>
+                    <td class="num">258</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          footnotes = character(0),</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">65</td>
+                    <td class="num">259</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          show_metadata = FALSE) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">66</td>
+                    <td class="num">260</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(label)</pre>
+                      <pre class="language-r">    merge_function &lt;- reactive({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">67</td>
+                    <td class="num">261</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(header_text, min.len = 0, any.missing = FALSE)</pre>
+                      <pre class="language-r">      if (is.null(input$join_fun)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">68</td>
+                    <td class="num">262</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(tables, types = "data.frame", names = "named", any.missing = FALSE)</pre>
+                      <pre class="language-r">        "dplyr::full_join"</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">69</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">263</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_multi_class(additional_tags, classes = c("shiny.tag.list", "html"))</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">70</td>
+                    <td class="num">264</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(footnotes, min.len = 0, any.missing = FALSE)</pre>
+                      <pre class="language-r">        input$join_fun</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">71</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">265</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(show_metadata)</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">72</td>
+                    <td class="num">266</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">73</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">267</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  logger::log_info("Initializing tm_front_page")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">74</td>
+                    <td class="num">268</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  args &lt;- as.list(environment())</pre>
+                      <pre class="language-r">    anl_merged_input &lt;- teal.transform::merge_expression_srv(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">75</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"></pre>
+                      <pre class="language-r">      datasets = data,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">76</td>
+                    <td class="num">270</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  module(</pre>
+                      <pre class="language-r">      selector_list = selector_list,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">77</td>
+                    <td class="num">271</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    label = label,</pre>
+                      <pre class="language-r">      merge_function = merge_function</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">78</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">272</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    server = srv_front_page,</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">79</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">273</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ui = ui_front_page,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">80</td>
+                    <td class="num">274</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ui_args = args,</pre>
+                      <pre class="language-r">    anl_merged_q &lt;- reactive({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">81</td>
+                    <td class="num">275</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    server_args = list(tables = tables, show_metadata = show_metadata),</pre>
+                      <pre class="language-r">      req(anl_merged_input())</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">82</td>
+                    <td class="num">276</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    datanames = if (show_metadata) "all" else NULL</pre>
+                      <pre class="language-r">      data() %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">83</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">277</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">        teal.code::eval_code(as.expression(anl_merged_input()$expr))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">84</td>
+                    <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="never">
-                    <td class="num">85</td>
+                    <td class="num">279</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">86</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">ui_front_page &lt;- function(id, ...) {</pre>
+                      <pre class="language-r">    merged &lt;- list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">87</td>
+                    <td class="num">281</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  args &lt;- list(...)</pre>
+                      <pre class="language-r">      anl_input_r = anl_merged_input,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">88</td>
+                    <td class="num">282</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ns &lt;- NS(id)</pre>
+                      <pre class="language-r">      anl_q_r = anl_merged_q</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">89</td>
+                    <td class="num">283</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">284</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">90</td>
+                    <td class="num">285</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  tagList(</pre>
+                      <pre class="language-r">    output_q &lt;- reactive({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">91</td>
+                    <td class="num">286</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    include_css_files("custom"),</pre>
+                      <pre class="language-r">      teal::validate_inputs(iv_r())</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">92</td>
+                    <td class="num">287</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tags$div(</pre>
+                      <pre class="language-r">      ANL &lt;- merged$anl_q_r()[["ANL"]] # nolint: object_name.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">93</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">288</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      id = "front_page_content",</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">289</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      # As this is a summary</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">94</td>
+                    <td class="num">290</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      class = "ml-8",</pre>
+                      <pre class="language-r">      x_name &lt;- as.vector(merged$anl_input_r()$columns_source$x)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">95</td>
+                    <td class="num">291</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      tags$div(</pre>
+                      <pre class="language-r">      y_name &lt;- as.vector(merged$anl_input_r()$columns_source$y)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">292</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="num">293</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        id = "front_page_headers",</pre>
+                      <pre class="language-r">      teal::validate_has_data(ANL, 3)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">97</td>
+                    <td class="num">294</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        get_header_tags(args$header_text)</pre>
+                      <pre class="language-r">      teal::validate_has_data(ANL[, c(x_name, y_name)], 3, complete = TRUE, allow_inf = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">98</td>
+                    <td class="num">295</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">99</td>
+                    <td class="num">296</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      tags$div(</pre>
+                      <pre class="language-r">      is_allowed_class &lt;- function(x) is.numeric(x) || is.factor(x) || is.character(x) || is.logical(x)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">100</td>
+                    <td class="num">297</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        id = "front_page_tables",</pre>
+                      <pre class="language-r">      validate(need(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">101</td>
+                    <td class="num">298</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        class = "ml-4",</pre>
+                      <pre class="language-r">        all(vapply(ANL[x_name], is_allowed_class, logical(1))),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">102</td>
+                    <td class="num">299</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        get_table_tags(args$tables, ns)</pre>
+                      <pre class="language-r">        "Selected row variable has an unsupported data type."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">103</td>
+                    <td class="num">300</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">104</td>
+                    <td class="num">301</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      tags$div(</pre>
+                      <pre class="language-r">      validate(need(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">105</td>
+                    <td class="num">302</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        id = "front_page_custom_html",</pre>
+                      <pre class="language-r">        is_allowed_class(ANL[[y_name]]),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">106</td>
+                    <td class="num">303</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        class = "my-4",</pre>
+                      <pre class="language-r">        "Selected column variable has an unsupported data type."</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">107</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">304</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        args$additional_tags</pre>
+                      <pre class="language-r">      ))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">108</td>
+                    <td class="num">305</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">109</td>
+                    <td class="num">306</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (args$show_metadata) {</pre>
+                      <pre class="language-r">      show_percentage &lt;- input$show_percentage</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">110</td>
+                    <td class="num">307</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        tags$div(</pre>
+                      <pre class="language-r">      show_total &lt;- input$show_total</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">111</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">308</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          id = "front_page_metabutton",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">112</td>
+                    <td class="num">309</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          class = "m-4",</pre>
+                      <pre class="language-r">      plot_title &lt;- paste(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">113</td>
+                    <td class="num">310</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          actionButton(ns("metadata_button"), "Show metadata")</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">        "Cross-Table of",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">115</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">        paste0(varname_w_label(x_name, ANL), collapse = ", "),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">116</td>
+                    <td class="num">312</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      tags$footer(</pre>
+                      <pre class="language-r">        "(rows)", "vs.",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">117</td>
+                    <td class="num">313</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        class = ".small",</pre>
+                      <pre class="language-r">        varname_w_label(y_name, ANL),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">118</td>
+                    <td class="num">314</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        get_footer_tags(args$footnotes)</pre>
+                      <pre class="language-r">        "(columns)"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">119</td>
+                    <td class="num">315</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="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">121</td>
+                    <td class="num">316</td>
                     <td class="coverage"></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="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">317</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">      labels_vec &lt;- vapply(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">123</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">318</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        x_name,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">124</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">319</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">get_header_tags &lt;- function(header_text) {</pre>
+                      <pre class="language-r">        varname_w_label,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">125</td>
+                    <td class="num">320</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (length(header_text) == 0) {</pre>
+                      <pre class="language-r">        character(1),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">126</td>
+                    <td class="num">321</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    return(list())</pre>
+                      <pre class="language-r">        ANL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">127</td>
+                    <td class="num">322</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">128</td>
+                    <td class="num">323</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">129</td>
+                    <td class="num">324</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  get_single_header_tags &lt;- function(header_text, p_text, header_tag = tags$h4) {</pre>
+                      <pre class="language-r">      teal.code::eval_code(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">130</td>
+                    <td class="num">325</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tagList(</pre>
+                      <pre class="language-r">        merged$anl_q_r(),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">131</td>
+                    <td class="num">326</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      tags$div(</pre>
+                      <pre class="language-r">        substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">132</td>
+                    <td class="num">327</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (!is.null(header_text) &amp;&amp; nchar(header_text) &gt; 0) header_tag(header_text),</pre>
+                      <pre class="language-r">          expr = {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">133</td>
+                    <td class="num">328</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        tags$p(p_text)</pre>
+                      <pre class="language-r">            title &lt;- plot_title</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">134</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">135</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">330</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">          env = list(plot_title = plot_title)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">136</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">137</td>
+                    <td class="num">332</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">138</td>
+                    <td class="num">333</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  header_tags &lt;- get_single_header_tags(names(header_text[1]), header_text[1], header_tag = tags$h3)</pre>
+                      <pre class="language-r">        teal.code::eval_code(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">139</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  c(header_tags, mapply(get_single_header_tags, utils::tail(names(header_text), -1), utils::tail(header_text, -1)))</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="never">
-                    <td class="num">141</td>
-                    <td class="coverage"></td>
+                    <td class="num">334</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          substitute(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">142</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">335</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">get_table_tags &lt;- function(tables, ns) {</pre>
+                      <pre class="language-r">            expr = {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">143</td>
+                    <td class="num">336</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (length(tables) == 0) {</pre>
+                      <pre class="language-r">              lyt &lt;- basic_tables %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">144</td>
+                    <td class="num">337</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    return(list())</pre>
+                      <pre class="language-r">              split_call %&gt;% # styler: off</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">145</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">338</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">                rtables::add_colcounts() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">146</td>
+                    <td class="num">339</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  table_tags &lt;- c(lapply(seq_along(tables), function(idx) {</pre>
+                      <pre class="language-r">                tern::analyze_vars(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">147</td>
+                    <td class="num">340</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    list(</pre>
+                      <pre class="language-r">                  vars = x_name,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">148</td>
+                    <td class="num">341</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      tableOutput(ns(paste0("table_", idx)))</pre>
+                      <pre class="language-r">                  var_labels = labels_vec,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">149</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">                  na.rm = FALSE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">150</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">                  denom = "N_col",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">151</td>
+                    <td class="num">344</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  return(table_tags)</pre>
+                      <pre class="language-r">                  .stats = c("mean_sd", "median", "range", count_value)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">152</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">153</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">154</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">347</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">get_footer_tags &lt;- function(footnotes) {</pre>
+                      <pre class="language-r">            env = list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">155</td>
+                    <td class="num">348</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (length(footnotes) == 0) {</pre>
+                      <pre class="language-r">              basic_tables = teal.widgets::parse_basic_table_args(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">156</td>
+                    <td class="num">349</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    return(list())</pre>
+                      <pre class="language-r">                basic_table_args = teal.widgets::resolve_basic_table_args(basic_table_args)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">157</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="missed">
-                    <td class="num">158</td>
+                    <td class="num">351</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  bold_texts &lt;- if (is.null(names(footnotes))) rep("", length(footnotes)) else names(footnotes)</pre>
+                      <pre class="language-r">              split_call = if (show_total) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">159</td>
+                    <td class="num">352</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  footnote_tags &lt;- mapply(function(bold_text, value) {</pre>
+                      <pre class="language-r">                substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">160</td>
+                    <td class="num">353</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    list(</pre>
+                      <pre class="language-r">                  expr = rtables::split_cols_by(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">161</td>
+                    <td class="num">354</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      tags$div(</pre>
+                      <pre class="language-r">                    y_name,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">162</td>
+                    <td class="num">355</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        tags$b(bold_text),</pre>
+                      <pre class="language-r">                    split_fun = rtables::add_overall_level(label = "Total", first = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">163</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">356</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="missed">
-                    <td class="num">164</td>
+                    <td class="num">357</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        tags$br()</pre>
+                      <pre class="language-r">                  env = list(y_name = y_name)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">165</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">166</td>
+                    <td class="num">359</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">167</td>
+                    <td class="num">360</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }, bold_text = bold_texts, value = footnotes)</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">                substitute(rtables::split_cols_by(y_name), env = list(y_name = y_name))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">169</td>
+                    <td class="num">361</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">              },</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">170</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">srv_front_page &lt;- function(id, data, tables, show_metadata) {</pre>
+                      <pre class="language-r">              x_name = x_name,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">171</td>
+                    <td class="num">363</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(data, "reactive")</pre>
+                      <pre class="language-r">              labels_vec = labels_vec,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">172</td>
+                    <td class="num">364</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">              count_value = ifelse(show_percentage, "count_fraction", "count")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">173</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">365</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">174</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">366</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ns &lt;- session$ns</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">175</td>
+                    <td class="num">367</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">176</td>
+                    <td class="num">368</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lapply(seq_along(tables), function(idx) {</pre>
+                      <pre class="language-r">        teal.code::eval_code(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">177</td>
+                    <td class="num">369</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      output[[paste0("table_", idx)]] &lt;- renderTable(</pre>
+                      <pre class="language-r">          substitute(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">178</td>
+                    <td class="num">370</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        tables[[idx]],</pre>
+                      <pre class="language-r">            expr = {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">179</td>
+                    <td class="num">371</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        bordered = TRUE,</pre>
+                      <pre class="language-r">              ANL &lt;- tern::df_explicit_na(ANL) # nolint: object_name.</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">180</td>
+                    <td class="num">372</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        caption = names(tables)[idx],</pre>
+                      <pre class="language-r">              tbl &lt;- rtables::build_table(lyt = lyt, df = ANL[order(ANL[[y_name]]), ])</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">181</td>
+                    <td class="num">373</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        caption.placement = "top"</pre>
+                      <pre class="language-r">              tbl</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">182</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="missed">
+                    <td class="num">375</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            env = list(y_name = y_name)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">183</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">377</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">378</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">184</td>
+                    <td class="num">379</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="num">380</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (show_metadata) {</pre>
+                      <pre class="language-r">    output$title &lt;- renderText(output_q()[["title"]])</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">186</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">381</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      observeEvent(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">187</td>
+                    <td class="num">382</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        input$metadata_button, showModal(</pre>
+                      <pre class="language-r">    table_r &lt;- reactive({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">188</td>
+                    <td class="num">383</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          modalDialog(</pre>
+                      <pre class="language-r">      shiny::req(iv_r()$is_valid())</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">189</td>
+                    <td class="num">384</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            title = "Metadata",</pre>
+                      <pre class="language-r">      output_q()[["tbl"]]</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">190</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">385</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            dataTableOutput(ns("metadata_table")),</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">191</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">386</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            size = "l",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">192</td>
+                    <td class="num">387</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            easyClose = TRUE</pre>
+                      <pre class="language-r">    teal.widgets::table_with_settings_srv(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">193</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">      id = "table",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">194</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">389</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">      table_r = table_r</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">195</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">196</td>
+                    <td class="num">391</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">197</td>
+                    <td class="num">392</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      metadata_data_frame &lt;- reactive({</pre>
+                      <pre class="language-r">    teal.widgets::verbatim_popup_srv(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">198</td>
+                    <td class="num">393</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        datanames &lt;- teal.data::datanames(data())</pre>
+                      <pre class="language-r">      id = "warning",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">199</td>
+                    <td class="num">394</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        convert_metadata_to_dataframe(</pre>
+                      <pre class="language-r">      verbatim_content = reactive(teal.code::get_warnings(output_q())),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">200</td>
+                    <td class="num">395</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          lapply(datanames, function(dataname) attr(data()[[dataname]], "metadata")),</pre>
+                      <pre class="language-r">      title = "Warning",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">201</td>
+                    <td class="num">396</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          datanames</pre>
+                      <pre class="language-r">      disabled = reactive(is.null(teal.code::get_warnings(output_q())))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">202</td>
+                    <td class="num">397</td>
                     <td class="coverage"></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">398</td>
                     <td class="coverage"></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="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">399</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    teal.widgets::verbatim_popup_srv(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">205</td>
+                    <td class="num">400</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      output$metadata_table &lt;- renderDataTable({</pre>
+                      <pre class="language-r">      id = "rcode",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">206</td>
+                    <td class="num">401</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        validate(need(nrow(metadata_data_frame()) &gt; 0, "The data has no associated metadata"))</pre>
+                      <pre class="language-r">      verbatim_content = reactive(teal.code::get_code(output_q())),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">207</td>
+                    <td class="num">402</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        metadata_data_frame()</pre>
+                      <pre class="language-r">      title = "Show R Code for Cross-Table"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">208</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">209</td>
+                    <td class="num">404</td>
                     <td class="coverage"></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">405</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
+                      <pre class="language-r">    ### REPORTER</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">211</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">406</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">    if (with_reporter) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">212</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">407</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      card_fun &lt;- function(comment, label) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">213</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">408</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># take a list of metadata, one item per dataset (raw_metadata each element from datasets$get_metadata())</pre>
+                      <pre class="language-r">        card &lt;- teal::report_card_template(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">214</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">409</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># and the corresponding datanames and output a data.frame with columns {Dataset, Name, Value}.</pre>
+                      <pre class="language-r">          title = "Cross Table",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">215</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"># which are, the Dataset the metadata came from, the metadata's name and value</pre>
+                      <pre class="language-r">          label = label,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">411</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          with_filter = with_filter,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">412</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          filter_panel_api = filter_panel_api</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">216</td>
+                    <td class="num">413</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">convert_metadata_to_dataframe &lt;- function(raw_metadata, datanames) {</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">217</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">414</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  output &lt;- mapply(function(metadata, dataname) {</pre>
+                      <pre class="language-r">        card$append_text("Table", "header3")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">218</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">415</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (is.null(metadata)) {</pre>
+                      <pre class="language-r">        card$append_table(table_r())</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">219</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">416</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      return(data.frame(Dataset = character(0), Name = character(0), Value = character(0)))</pre>
+                      <pre class="language-r">        if (!comment == "") {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">417</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          card$append_text("Comment", "header3")</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">418</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          card$append_text(comment)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">220</td>
+                    <td class="num">419</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">221</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">420</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    return(data.frame(</pre>
+                      <pre class="language-r">        card$append_src(teal.code::get_code(output_q()))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">222</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">421</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      Dataset = dataname,</pre>
+                      <pre class="language-r">        card</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">223</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">422</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      Name = names(metadata),</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">224</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">423</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      Value = unname(unlist(lapply(metadata, as.character)))</pre>
+                      <pre class="language-r">      teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">225</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="covered">
-                    <td class="num">226</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">425</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }, raw_metadata, datanames, SIMPLIFY = FALSE)</pre>
+                      <pre class="language-r">    ###</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">227</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">426</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  do.call(rbind, output)</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">228</td>
+                    <td class="num">427</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>