From efd378c4ff89d26689f29452e07b0672f8967b26 Mon Sep 17 00:00:00 2001
From: m7pr <m7pr@users.noreply.github.com>
Date: Wed, 14 Feb 2024 08:53:19 +0000
Subject: [PATCH] deploy: da59b96a2e102f08ac591f3e6940a8677119328e

---
 main/coverage-report/index.html | 24870 +++++++++++++++---------------
 1 file changed, 12435 insertions(+), 12435 deletions(-)

diff --git a/main/coverage-report/index.html b/main/coverage-report/index.html
index 88bf2af3..d0a1e54f 100644
--- a/main/coverage-report/index.html
+++ b/main/coverage-report/index.html
@@ -106,19 +106,19 @@ <h2>teal.goshawk coverage - 0.00%</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-2ecb439740a266e87bfe" style="width:100%;height:500px;"></div>
-          <script type="application/json" data-for="htmlwidget-2ecb439740a266e87bfe">{"x":{"filter":"none","vertical":false,"fillContainer":false,"data":[["<a href=\"#\">R/tm_g_gh_correlationplot.R<\/a>","<a href=\"#\">R/tm_g_gh_lineplot.R<\/a>","<a href=\"#\">R/tm_g_gh_boxplot.R<\/a>","<a href=\"#\">R/tm_g_gh_spaghettiplot.R<\/a>","<a href=\"#\">R/tm_g_gh_density_distribution_plot.R<\/a>","<a href=\"#\">R/tm_g_gh_scatterplot.R<\/a>","<a href=\"#\">R/utils-data_constraints.r<\/a>","<a href=\"#\">R/toggleable_slider.R<\/a>","<a href=\"#\">R/utils-arbitrary_lines.r<\/a>","<a href=\"#\">R/utils-templ_ui.r<\/a>","<a href=\"#\">R/utils.R<\/a>","<a href=\"#\">R/utils-keep_range_slider_updated.r<\/a>","<a href=\"#\">R/utils-maptrt.r<\/a>","<a href=\"#\">R/zzz.R<\/a>"],[886,819,591,548,459,434,258,254,177,74,84,39,39,3],[471,460,296,245,231,206,153,118,93,37,31,20,9,1],[0,0,0,0,0,0,0,0,0,0,0,0,0,0],[471,460,296,245,231,206,153,118,93,37,31,20,9,1],["0","0","0","0","0","0","0","0","0","0","0","0","0","0"],["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.00%"]],"container":"<table class=\"row-border\">\n  <thead>\n    <tr>\n      <th>File<\/th>\n      <th>Lines<\/th>\n      <th>Relevant<\/th>\n      <th>Covered<\/th>\n      <th>Missed<\/th>\n      <th>Hits / Line<\/th>\n      <th>Coverage<\/th>\n    <\/tr>\n  <\/thead>\n<\/table>","options":{"searching":false,"dom":"t","paging":false,"columnDefs":[{"targets":6,"createdCell":"function(td, cellData, rowData, row, col) {\n  var percent = cellData.replace(\"%\", \"\");\n  if (percent > 90) {\n    var grad = \"linear-gradient(90deg, #edfde7 \" + cellData + \", white \" + cellData + \")\";\n  } else if (percent > 75) {\n    var grad = \"linear-gradient(90deg, #f9ffe5 \" + cellData + \", white \" + cellData + \")\";\n  } else {\n    var grad = \"linear-gradient(90deg, #fcece9 \" + cellData + \", white \" + cellData + \")\";\n  }\n  $(td).css(\"background\", grad);\n}\n"},{"className":"dt-right","targets":[1,2,3,4]},{"name":"File","targets":0},{"name":"Lines","targets":1},{"name":"Relevant","targets":2},{"name":"Covered","targets":3},{"name":"Missed","targets":4},{"name":"Hits / Line","targets":5},{"name":"Coverage","targets":6}],"order":[],"autoWidth":false,"orderClasses":false},"callback":"function(table) {\ntable.on('click.dt', 'a', function() {\n  files = $('div#files div');\n  files.not('div.hidden').addClass('hidden');\n  id = $(this).text();\n  files.filter('div[id=\\'' + id + '\\']').removeClass('hidden');\n  $('ul.nav a[data-value=Source]').text(id).tab('show');\n});\n}","selection":{"mode":"multiple","selected":null,"target":"row","selectable":null}},"evals":["options.columnDefs.0.createdCell","callback"],"jsHooks":[]}</script>
+          <div class="datatables html-widget html-fill-item" id="htmlwidget-0f84b0197c29b898cc12" style="width:100%;height:500px;"></div>
+          <script type="application/json" data-for="htmlwidget-0f84b0197c29b898cc12">{"x":{"filter":"none","vertical":false,"fillContainer":false,"data":[["<a href=\"#\">R/tm_g_gh_correlationplot.R<\/a>","<a href=\"#\">R/tm_g_gh_lineplot.R<\/a>","<a href=\"#\">R/tm_g_gh_boxplot.R<\/a>","<a href=\"#\">R/tm_g_gh_spaghettiplot.R<\/a>","<a href=\"#\">R/tm_g_gh_density_distribution_plot.R<\/a>","<a href=\"#\">R/tm_g_gh_scatterplot.R<\/a>","<a href=\"#\">R/utils-data_constraints.r<\/a>","<a href=\"#\">R/toggleable_slider.R<\/a>","<a href=\"#\">R/utils-arbitrary_lines.r<\/a>","<a href=\"#\">R/utils-templ_ui.r<\/a>","<a href=\"#\">R/utils.R<\/a>","<a href=\"#\">R/utils-keep_range_slider_updated.r<\/a>","<a href=\"#\">R/utils-maptrt.r<\/a>","<a href=\"#\">R/zzz.R<\/a>"],[886,819,591,548,459,434,258,254,177,74,84,39,39,3],[471,460,296,245,231,206,153,118,93,37,31,20,9,1],[0,0,0,0,0,0,0,0,0,0,0,0,0,0],[471,460,296,245,231,206,153,118,93,37,31,20,9,1],["0","0","0","0","0","0","0","0","0","0","0","0","0","0"],["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.00%"]],"container":"<table class=\"row-border\">\n  <thead>\n    <tr>\n      <th>File<\/th>\n      <th>Lines<\/th>\n      <th>Relevant<\/th>\n      <th>Covered<\/th>\n      <th>Missed<\/th>\n      <th>Hits / Line<\/th>\n      <th>Coverage<\/th>\n    <\/tr>\n  <\/thead>\n<\/table>","options":{"searching":false,"dom":"t","paging":false,"columnDefs":[{"targets":6,"createdCell":"function(td, cellData, rowData, row, col) {\n  var percent = cellData.replace(\"%\", \"\");\n  if (percent > 90) {\n    var grad = \"linear-gradient(90deg, #edfde7 \" + cellData + \", white \" + cellData + \")\";\n  } else if (percent > 75) {\n    var grad = \"linear-gradient(90deg, #f9ffe5 \" + cellData + \", white \" + cellData + \")\";\n  } else {\n    var grad = \"linear-gradient(90deg, #fcece9 \" + cellData + \", white \" + cellData + \")\";\n  }\n  $(td).css(\"background\", grad);\n}\n"},{"className":"dt-right","targets":[1,2,3,4]},{"name":"File","targets":0},{"name":"Lines","targets":1},{"name":"Relevant","targets":2},{"name":"Covered","targets":3},{"name":"Missed","targets":4},{"name":"Hits / Line","targets":5},{"name":"Coverage","targets":6}],"order":[],"autoWidth":false,"orderClasses":false},"callback":"function(table) {\ntable.on('click.dt', 'a', function() {\n  files = $('div#files div');\n  files.not('div.hidden').addClass('hidden');\n  id = $(this).text();\n  files.filter('div[id=\\'' + id + '\\']').removeClass('hidden');\n  $('ul.nav a[data-value=Source]').text(id).tab('show');\n});\n}","selection":{"mode":"multiple","selected":null,"target":"row","selectable":null}},"evals":["options.columnDefs.0.createdCell","callback"],"jsHooks":[]}</script>
         </div>
         <div class="tab-pane" title="Source" data-value="Source" id="tab-covr-2">
           <div id="files">
-            <div id="R/tm_g_gh_lineplot.R" class="hidden">
+            <div id="R/tm_g_gh_boxplot.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">#' Line plot</pre>
+                      <pre class="language-r">#' Box Plot</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -132,21 +132,21 @@ <h2>teal.goshawk coverage - 0.00%</h2>
                     <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This teal module renders the UI and calls the function that creates a line plot.</pre>
+                      <pre class="language-r">#' This teal module renders the UI and calls the functions that create a box plot and accompanying</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' summary table.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams teal.widgets::standard_layout</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -167,7 +167,7 @@ <h2>teal.goshawk coverage - 0.00%</h2>
                     <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' laboratory data frame `ADLB`.</pre>
+                      <pre class="language-r">#'  laboratory data frame `ALB`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -181,483 +181,483 @@ <h2>teal.goshawk coverage - 0.00%</h2>
                     <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param param biomarker selected.</pre>
+                      <pre class="language-r">#' @param param list of biomarkers of interest.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param param_var_label single name of variable in analysis data that includes parameter labels.</pre>
+                      <pre class="language-r">#' @param yaxis_var name of variable containing biomarker results displayed on y-axis e.g. `AVAL`. When not provided,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param xaxis_var single name of variable in analysis data that is used as x-axis in the plot for the</pre>
+                      <pre class="language-r">#' it defaults to `choices_selected(c("AVAL", "CHG"), "AVAL")`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' respective `goshawk` function.</pre>
+                      <pre class="language-r">#' @param xaxis_var variable to categorize the x-axis. When not provided, it defaults to</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param xvar_level vector that can be used to define the factor level of `xvar`. Only use it when</pre>
+                      <pre class="language-r">#' `choices_selected("AVISITCD", "AVISITCD")`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `xvar` is character or factor.</pre>
+                      <pre class="language-r">#' @param facet_var variable to facet the plots by. When not provided, it defaults to</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param filter_var data constraint variable.</pre>
+                      <pre class="language-r">#' `choices_selected(c("ARM", "ACTARM"), "ARM")`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param filter_var_choices data constraint variable choices.</pre>
+                      <pre class="language-r">#' @param trt_group  \code{\link[teal.transform]{choices_selected}} object with available choices and pre-selected</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param yaxis_var single name of variable in analysis data that is used as summary variable in the</pre>
+                      <pre class="language-r">#'  option for variable names representing treatment group e.g. `ARM`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' respective `goshawk` function.</pre>
+                      <pre class="language-r">#' @param color_manual vector of colors applied to treatment values.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param trt_group \code{\link[teal.transform]{choices_selected}} object with available choices and pre-selected option</pre>
+                      <pre class="language-r">#' @param shape_manual vector of symbols applied to `LOQ` values.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' for variable names representing treatment group e.g. `ARM`.</pre>
+                      <pre class="language-r">#' @param facet_ncol numeric value indicating number of facets per row.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param trt_group_level vector that can be used to define factor level of `trt_group`.</pre>
+                      <pre class="language-r">#' @param loq_legend `loq` legend toggle.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param shape_choices Vector or \code{choices_selected} object with names of `ADSL` variables which</pre>
+                      <pre class="language-r">#' @param rotate_xlab 45 degree rotation of `x-axis` values.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' can be used to change shape</pre>
+                      <pre class="language-r">#' @param hline_arb numeric vector of at most 2 values identifying intercepts for arbitrary horizontal lines.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param color_manual string vector representing customized colors</pre>
+                      <pre class="language-r">#' @param hline_arb_color a character vector of at most length of \code{hline_arb}.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param stat string of statistics</pre>
+                      <pre class="language-r">#' naming the color for the arbitrary horizontal lines.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param hline_arb numeric vector of at most 2 values identifying intercepts for arbitrary horizontal lines.</pre>
+                      <pre class="language-r">#' @param hline_arb_label a character vector of at most length of \code{hline_arb}.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param hline_arb_color a character vector of at most length of \code{hline_arb}.</pre>
+                      <pre class="language-r">#' naming the label for the arbitrary horizontal lines.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' naming the color for the arbitrary horizontal lines.</pre>
+                      <pre class="language-r">#' @param hline_vars a character vector to name the columns that will define additional horizontal lines.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param hline_arb_label a character vector of at most length of \code{hline_arb}.</pre>
+                      <pre class="language-r">#' @param hline_vars_colors a character vector naming the colors for the additional horizontal lines.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' naming the label for the arbitrary horizontal lines.</pre>
+                      <pre class="language-r">#' @param hline_vars_labels a character vector naming the labels for the additional horizontal lines that will appear</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param xtick numeric vector to define the tick values of x-axis when x variable is numeric.</pre>
+                      <pre class="language-r">#'  in the legend.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Default value is waive().</pre>
+                      <pre class="language-r">#' @param plot_height controls plot height.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param xlabel vector with same length of `xtick` to define the label of x-axis tick values.</pre>
+                      <pre class="language-r">#' @param plot_width optional, controls plot width.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Default value is waive().</pre>
+                      <pre class="language-r">#' @param font_size font size control for title, `x-axis` label, `y-axis` label and legend.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param rotate_xlab `logical(1)` value indicating whether to rotate `x-axis` labels.</pre>
+                      <pre class="language-r">#' @param dot_size plot dot size.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param plot_height controls plot height.</pre>
+                      <pre class="language-r">#' @param alpha numeric vector to define transparency of plotted points.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param plot_width optional, controls plot width.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param plot_font_size control font size for title, `x-axis`, `y-axis` and legend font.</pre>
+                      <pre class="language-r">#' @inheritParams teal.widgets::standard_layout</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param dodge controls the position dodge of error bar</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param count_threshold minimum count of observations (as listed in the output table) to plot</pre>
+                      <pre class="language-r">#' @author Jeff Tomlinson (tomlinsj) jeffrey.tomlinson@roche.com</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' nodes on the graph</pre>
+                      <pre class="language-r">#' @author Balazs Toth (tothb2) toth.balazs@gene.com</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param table_font_size controls the font size of values in the table</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param plot_relative_height_value numeric value between 500 and 5000 for controlling the starting value</pre>
+                      <pre class="language-r">#' @return an \code{\link[teal]{module}} object</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' of the relative plot height slider</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @author Wenyi Liu (luiw2) wenyi.liu@roche.com</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @author Balazs Toth (tothb2) toth.balazs@gene.com</pre>
+                      <pre class="language-r">#'</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">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return \code{shiny} object</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' # Example using ADaM structure analysis dataset.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' data &lt;- teal_data()</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' data &lt;- within(data, {</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#'   library(dplyr)</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">#'   library(nestcolor)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Example using ADaM structure analysis dataset.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' data &lt;- teal_data()</pre>
+                      <pre class="language-r">#'   # original ARM value = dose value</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' data &lt;- within(data, {</pre>
+                      <pre class="language-r">#'   arm_mapping &lt;- list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">58</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   library(dplyr)</pre>
+                      <pre class="language-r">#'     "A: Drug X" = "150mg QD",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">59</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   library(stringr)</pre>
+                      <pre class="language-r">#'     "B: Placebo" = "Placebo",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">60</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   library(nestcolor)</pre>
+                      <pre class="language-r">#'     "C: Combination" = "Combination"</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <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">62</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   # original ARM value = dose value</pre>
+                      <pre class="language-r">#'   set.seed(1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   arm_mapping &lt;- list(</pre>
+                      <pre class="language-r">#'   ADSL &lt;- goshawk::rADSL</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     "A: Drug X" = "150mg QD",</pre>
+                      <pre class="language-r">#'   ADLB &lt;- goshawk::rADLB</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">65</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     "B: Placebo" = "Placebo",</pre>
+                      <pre class="language-r">#'   var_labels &lt;- lapply(ADLB, function(x) attributes(x)$label)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">66</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     "C: Combination" = "Combination"</pre>
+                      <pre class="language-r">#'   ADLB &lt;- ADLB %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">67</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">#'     dplyr::mutate(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'       AVISITCD = dplyr::case_when(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">69</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ADSL &lt;- goshawk::rADSL</pre>
+                      <pre class="language-r">#'         AVISIT == "SCREENING" ~ "SCR",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">70</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ADLB &lt;- goshawk::rADLB</pre>
+                      <pre class="language-r">#'         AVISIT == "BASELINE" ~ "BL",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">71</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   var_labels &lt;- lapply(ADLB, function(x) attributes(x)$label)</pre>
+                      <pre class="language-r">#'         grepl("WEEK", AVISIT) ~ paste("W", stringr::str_extract(AVISIT, "(?&lt;=(WEEK ))[0-9]+")),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">72</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ADLB &lt;- ADLB %&gt;%</pre>
+                      <pre class="language-r">#'         TRUE ~ as.character(NA)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">73</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     dplyr::mutate(</pre>
+                      <pre class="language-r">#'       ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">74</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       AVISITCD = dplyr::case_when(</pre>
+                      <pre class="language-r">#'       AVISITCDN = dplyr::case_when(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">75</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         AVISIT == "SCREENING" ~ "SCR",</pre>
+                      <pre class="language-r">#'         AVISITCD == "SCR" ~ -2,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">76</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         AVISIT == "BASELINE" ~ "BL",</pre>
+                      <pre class="language-r">#'         AVISITCD == "BL" ~ 0,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">77</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         grepl("WEEK", AVISIT) ~ paste("W", stringr::str_extract(AVISIT, "(?&lt;=(WEEK ))[0-9]+")),</pre>
+                      <pre class="language-r">#'         grepl("W", AVISITCD) ~ as.numeric(gsub("[^0-9]*", "", AVISITCD)),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">78</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         TRUE ~ as.character(NA)</pre>
+                      <pre class="language-r">#'         TRUE ~ as.numeric(NA)</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -671,35 +671,35 @@ <h2>teal.goshawk coverage - 0.00%</h2>
                     <td class="num">80</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       AVISITCDN = dplyr::case_when(</pre>
+                      <pre class="language-r">#'       AVISITCD = factor(AVISITCD) %&gt;% reorder(AVISITCDN),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">81</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         AVISITCD == "SCR" ~ -2,</pre>
+                      <pre class="language-r">#'       TRTORD = dplyr::case_when(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">82</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         AVISITCD == "BL" ~ 0,</pre>
+                      <pre class="language-r">#'         ARMCD == "ARM C" ~ 1,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">83</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         grepl("W", AVISITCD) ~ as.numeric(gsub("[^0-9]*", "", AVISITCD)),</pre>
+                      <pre class="language-r">#'         ARMCD == "ARM B" ~ 2,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">84</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         TRUE ~ as.numeric(NA)</pre>
+                      <pre class="language-r">#'         ARMCD == "ARM A" ~ 3</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -713,126 +713,126 @@ <h2>teal.goshawk coverage - 0.00%</h2>
                     <td class="num">86</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       AVISITCD = factor(AVISITCD) %&gt;% reorder(AVISITCDN),</pre>
+                      <pre class="language-r">#'       ARM = as.character(arm_mapping[match(ARM, names(arm_mapping))]),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">87</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       TRTORD = dplyr::case_when(</pre>
+                      <pre class="language-r">#'       ARM = factor(ARM) %&gt;% reorder(TRTORD),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">88</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         ARMCD == "ARM C" ~ 1,</pre>
+                      <pre class="language-r">#'       ACTARM = as.character(arm_mapping[match(ACTARM, names(arm_mapping))]),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">89</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         ARMCD == "ARM B" ~ 2,</pre>
+                      <pre class="language-r">#'       ACTARM = factor(ACTARM) %&gt;% reorder(TRTORD),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">90</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         ARMCD == "ARM A" ~ 3</pre>
+                      <pre class="language-r">#'       ANRLO = 50,</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">#'       ANRHI = 75</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">92</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       ARM = as.character(arm_mapping[match(ARM, names(arm_mapping))]),</pre>
+                      <pre class="language-r">#'     ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">93</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       ARM = factor(ARM) %&gt;% reorder(TRTORD),</pre>
+                      <pre class="language-r">#'     dplyr::rowwise() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">94</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       ACTARM = as.character(arm_mapping[match(ACTARM, names(arm_mapping))]),</pre>
+                      <pre class="language-r">#'     dplyr::group_by(PARAMCD) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">95</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       ACTARM = factor(ACTARM) %&gt;% reorder(TRTORD)</pre>
+                      <pre class="language-r">#'     dplyr::mutate(LBSTRESC = ifelse(</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">#'       USUBJID %in% sample(USUBJID, 1, replace = TRUE),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   attr(ADLB[["ARM"]], "label") &lt;- var_labels[["ARM"]]</pre>
+                      <pre class="language-r">#'       paste("&lt;", round(runif(1, min = 25, max = 30))), LBSTRESC</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">98</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   attr(ADLB[["ACTARM"]], "label") &lt;- var_labels[["ACTARM"]]</pre>
+                      <pre class="language-r">#'     )) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">99</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' })</pre>
+                      <pre class="language-r">#'     dplyr::mutate(LBSTRESC = ifelse(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">100</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'       USUBJID %in% sample(USUBJID, 1, replace = TRUE),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">101</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' datanames &lt;- c("ADSL", "ADLB")</pre>
+                      <pre class="language-r">#'       paste("&gt;", round(runif(1, min = 70, max = 75))), LBSTRESC</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">102</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' datanames(data) &lt;- datanames</pre>
+                      <pre class="language-r">#'     )) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">103</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">#'     ungroup()</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -846,1750 +846,1750 @@ <h2>teal.goshawk coverage - 0.00%</h2>
                     <td class="num">105</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' app &lt;- teal::init(</pre>
+                      <pre class="language-r">#'   attr(ADLB[["ARM"]], "label") &lt;- var_labels[["ARM"]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">106</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = data,</pre>
+                      <pre class="language-r">#'   attr(ADLB[["ACTARM"]], "label") &lt;- var_labels[["ACTARM"]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">107</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   modules = teal::modules(</pre>
+                      <pre class="language-r">#'   attr(ADLB[["ANRLO"]], "label") &lt;- "Analysis Normal Range Lower Limit"</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">108</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     teal.goshawk::tm_g_gh_lineplot(</pre>
+                      <pre class="language-r">#'   attr(ADLB[["ANRHI"]], "label") &lt;- "Analysis Normal Range Upper Limit"</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">109</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       label = "Line Plot",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">110</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       dataname = "ADLB",</pre>
+                      <pre class="language-r">#'   # add LLOQ and ULOQ variables</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">111</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       param_var = "PARAMCD",</pre>
+                      <pre class="language-r">#'   ALB_LOQS &lt;- goshawk:::h_identify_loq_values(ADLB)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">112</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       param = choices_selected(c("ALT", "CRP", "IGA"), "ALT"),</pre>
+                      <pre class="language-r">#'   ADLB &lt;- dplyr::left_join(ADLB, ALB_LOQS, by = "PARAM")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">113</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       shape_choices = c("SEX", "RACE"),</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">#'       xaxis_var = choices_selected("AVISITCD", "AVISITCD"),</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">#'       yaxis_var = choices_selected(c("AVAL", "BASE", "CHG", "PCHG"), "AVAL"),</pre>
+                      <pre class="language-r">#' datanames &lt;- c("ADSL", "ADLB")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">116</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       trt_group = choices_selected(c("ARM", "ACTARM"), "ARM"),</pre>
+                      <pre class="language-r">#' datanames(data) &lt;- datanames</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">117</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       hline_arb = c(20.5, 19.5),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">118</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       hline_arb_color = c("red", "green"),</pre>
+                      <pre class="language-r">#' join_keys(data) &lt;- default_cdisc_join_keys[datanames]</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">119</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       hline_arb_label = c("A", "B")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">120</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     )</pre>
+                      <pre class="language-r">#' app &lt;- teal::init(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">121</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">122</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#'   modules = teal::modules(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">123</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' if (interactive()) {</pre>
+                      <pre class="language-r">#'     teal.goshawk::tm_g_gh_boxplot(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">124</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 = "Box Plot",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">125</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">#'       dataname = "ADLB",</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">#'       param_var = "PARAMCD",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">127</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">tm_g_gh_lineplot &lt;- function(label,</pre>
+                      <pre class="language-r">#'       param = choices_selected(c("ALT", "CRP", "IGA"), "ALT"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">128</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             dataname,</pre>
+                      <pre class="language-r">#'       yaxis_var = choices_selected(c("AVAL", "BASE", "CHG"), "AVAL"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">129</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             param_var,</pre>
+                      <pre class="language-r">#'       xaxis_var = choices_selected(c("ACTARM", "ARM", "AVISITCD", "STUDYID"), "ARM"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">130</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             param,</pre>
+                      <pre class="language-r">#'       facet_var = choices_selected(c("ACTARM", "ARM", "AVISITCD", "SEX"), "AVISITCD"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">131</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             param_var_label = "PARAM",</pre>
+                      <pre class="language-r">#'       trt_group = choices_selected(c("ARM", "ACTARM"), "ARM"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">132</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             xaxis_var,</pre>
+                      <pre class="language-r">#'       loq_legend = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">133</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             yaxis_var,</pre>
+                      <pre class="language-r">#'       rotate_xlab = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">134</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             xvar_level = NULL,</pre>
+                      <pre class="language-r">#'       hline_arb = c(60, 55),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">135</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             filter_var = yaxis_var,</pre>
+                      <pre class="language-r">#'       hline_arb_color = c("grey", "red"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">136</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             filter_var_choices = filter_var,</pre>
+                      <pre class="language-r">#'       hline_arb_label = c("default_hori_A", "default_hori_B"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">137</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             trt_group,</pre>
+                      <pre class="language-r">#'       hline_vars = c("ANRHI", "ANRLO", "ULOQN", "LLOQN"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">138</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             trt_group_level = NULL,</pre>
+                      <pre class="language-r">#'       hline_vars_colors = c("pink", "brown", "purple", "black"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">139</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             shape_choices = NULL,</pre>
+                      <pre class="language-r">#'     )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">140</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             stat = "mean",</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">141</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             hline_arb = numeric(0),</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">142</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             hline_arb_color = "red",</pre>
+                      <pre class="language-r">#' if (interactive()) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">143</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             hline_arb_label = "Horizontal line",</pre>
+                      <pre class="language-r">#'   shinyApp(app$ui, app$server)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">144</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             color_manual = c(</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">145</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                               getOption("ggplot2.discrete.colour"),</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">                               c("#ff0000", "#008000", "#4ca3dd", "#8a2be2")</pre>
+                      <pre class="language-r">tm_g_gh_boxplot &lt;- function(label,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">147</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             )[1:4],</pre>
+                      <pre class="language-r">                            dataname,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">148</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             xtick = ggplot2::waiver(),</pre>
+                      <pre class="language-r">                            param_var,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">149</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             xlabel = xtick,</pre>
+                      <pre class="language-r">                            param,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">150</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             rotate_xlab = FALSE,</pre>
+                      <pre class="language-r">                            yaxis_var = teal.transform::choices_selected(c("AVAL", "CHG"), "AVAL"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">151</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             plot_height = c(600, 200, 4000),</pre>
+                      <pre class="language-r">                            xaxis_var = teal.transform::choices_selected("AVISITCD", "AVISITCD"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">152</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             plot_width = NULL,</pre>
+                      <pre class="language-r">                            facet_var = teal.transform::choices_selected(c("ARM", "ACTARM"), "ARM"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">153</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             plot_font_size = c(12, 8, 20),</pre>
+                      <pre class="language-r">                            trt_group,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">154</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             dodge = c(0.4, 0, 1),</pre>
+                      <pre class="language-r">                            color_manual = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">155</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             pre_output = NULL,</pre>
+                      <pre class="language-r">                            shape_manual = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">156</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             post_output = NULL,</pre>
+                      <pre class="language-r">                            facet_ncol = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">157</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             count_threshold = 0,</pre>
+                      <pre class="language-r">                            loq_legend = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">158</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             table_font_size = c(12, 4, 20),</pre>
+                      <pre class="language-r">                            rotate_xlab = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">159</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             plot_relative_height_value = 1000) {</pre>
+                      <pre class="language-r">                            hline_arb = numeric(0),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">160</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  logger::log_info("Initializing tm_g_gh_lineplot")</pre>
+                      <pre class="language-r">                            hline_arb_color = "red",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">161</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(param, "choices_selected")</pre>
+                      <pre class="language-r">                            hline_arb_label = "Horizontal line",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">162</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(xaxis_var, "choices_selected")</pre>
+                      <pre class="language-r">                            hline_vars = character(0),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">163</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(yaxis_var, "choices_selected")</pre>
+                      <pre class="language-r">                            hline_vars_colors = "green",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">164</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(trt_group, "choices_selected")</pre>
+                      <pre class="language-r">                            hline_vars_labels = hline_vars,</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">  checkmate::assert_flag(rotate_xlab)</pre>
+                      <pre class="language-r">                            plot_height = c(600, 200, 2000),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">166</td>
-                    <td class="coverage">!</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">                            plot_width = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">167</td>
-                    <td class="coverage">!</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">                            font_size = c(12, 8, 20),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">168</td>
-                    <td class="coverage">!</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">                            dot_size = c(2, 1, 12),</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">  checkmate::assert_numeric(</pre>
+                      <pre class="language-r">                            alpha = c(0.8, 0.0, 1.0),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">170</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    plot_width[1],</pre>
+                      <pre class="language-r">                            pre_output = NULL,</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">    lower = plot_width[2], upper = plot_width[3], null.ok = TRUE, .var.name = "plot_width"</pre>
+                      <pre class="language-r">                            post_output = NULL) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">172</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_g_gh_boxplot")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">173</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(table_font_size, len = 3, any.missing = FALSE, null.ok = TRUE, finite = TRUE)</pre>
+                      <pre class="language-r">  checkmate::assert_string(label)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">174</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(</pre>
+                      <pre class="language-r">  checkmate::assert_string(dataname)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">175</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    table_font_size[1],</pre>
+                      <pre class="language-r">  checkmate::assert_string(param_var)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">176</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lower = table_font_size[2], upper = table_font_size[3],</pre>
+                      <pre class="language-r">  checkmate::assert_class(param, "choices_selected")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">177</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    null.ok = TRUE, .var.name = "table_font_size"</pre>
+                      <pre class="language-r">  checkmate::assert_class(yaxis_var, "choices_selected")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">178</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_class(xaxis_var, "choices_selected")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">179</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_class(facet_var, "choices_selected")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">180</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_number(plot_relative_height_value, lower = 500, upper = 5000)</pre>
+                      <pre class="language-r">  checkmate::assert_class(trt_group, "choices_selected")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">181</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_int(facet_ncol, null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">182</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_number(count_threshold)</pre>
+                      <pre class="language-r">  checkmate::assert_flag(loq_legend)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">183</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  validate_line_arb_arg(hline_arb, hline_arb_color, hline_arb_label)</pre>
+                      <pre class="language-r">  checkmate::assert_flag(rotate_xlab)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">184</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  args &lt;- as.list(environment())</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(font_size, len = 3)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">185</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_numeric(dot_size, len = 3)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">186</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  module(</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(alpha, len = 3)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">187</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    label = label,</pre>
+                      <pre class="language-r">  validate_line_arb_arg(hline_arb, hline_arb_color, hline_arb_label)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">188</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    server = srv_lineplot,</pre>
+                      <pre class="language-r">  validate_line_vars_arg(hline_vars, hline_vars_colors, hline_vars_labels)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">189</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    server_args = list(</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">190</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dataname = dataname,</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">191</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      param_var = param_var,</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">192</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      trt_group = trt_group,</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">193</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      color_manual = color_manual,</pre>
+                      <pre class="language-r">    plot_width[1],</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">194</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      xvar_level = xvar_level,</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">
+                  <tr class="never">
                     <td class="num">195</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      trt_group_level = trt_group_level,</pre>
+                      <pre class="language-r">  )</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">      shape_choices = shape_choices,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">197</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      param_var_label = param_var_label,</pre>
+                      <pre class="language-r">  args &lt;- as.list(environment())</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">198</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      xtick = xtick,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">199</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      xlabel = xlabel,</pre>
+                      <pre class="language-r">  module(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">200</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      plot_height = plot_height,</pre>
+                      <pre class="language-r">    label = label,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">201</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      plot_width = plot_width</pre>
+                      <pre class="language-r">    datanames = dataname,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">202</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ),</pre>
+                      <pre class="language-r">    server = srv_g_boxplot,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">203</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ui = ui_lineplot,</pre>
+                      <pre class="language-r">    server_args = list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">204</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ui_args = args,</pre>
+                      <pre class="language-r">      dataname = dataname,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">205</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    datanames = dataname</pre>
+                      <pre class="language-r">      param_var = param_var,</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">      trt_group = trt_group,</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">      facet_var = facet_var,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">208</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      color_manual = color_manual,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">209</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">ui_lineplot &lt;- function(id, ...) {</pre>
+                      <pre class="language-r">      shape_manual = shape_manual,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">210</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ns &lt;- NS(id)</pre>
+                      <pre class="language-r">      plot_height = plot_height,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">211</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  a &lt;- list(...)</pre>
+                      <pre class="language-r">      plot_width = plot_width,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">212</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      hline_vars_colors = hline_vars_colors,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">213</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  shiny::tagList(</pre>
+                      <pre class="language-r">      hline_vars_labels = hline_vars_labels</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">214</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">    ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">215</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    teal.widgets::standard_layout(</pre>
+                      <pre class="language-r">    ui = ui_g_boxplot,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">216</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      output = teal.widgets::plot_with_settings_ui(id = ns("plot")),</pre>
+                      <pre class="language-r">    ui_args = args</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">217</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">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">218</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">
+                  <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">        teal.reporter::simple_reporter_ui(ns("simple_reporter")),</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">ui_g_boxplot &lt;- function(id, ...) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">221</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        templ_ui_dataname(a$dataname),</pre>
+                      <pre class="language-r">  ns &lt;- NS(id)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">222</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        teal.widgets::optionalSelectInput(</pre>
+                      <pre class="language-r">  a &lt;- list(...)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">223</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ns("trt_group"),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">224</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          label = "Select Treatment Variable",</pre>
+                      <pre class="language-r">  teal.widgets::standard_layout(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">225</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          choices = a$trt_group$choices,</pre>
+                      <pre class="language-r">    output = div(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">226</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          selected = a$trt_group$selected,</pre>
+                      <pre class="language-r">      fluidRow(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">227</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          multiple = FALSE</pre>
+                      <pre class="language-r">        teal.widgets::plot_with_settings_ui(id = ns("boxplot"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">228</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ),</pre>
+                      <pre class="language-r">      ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">229</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        templ_ui_params_vars(</pre>
+                      <pre class="language-r">      fluidRow(column(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">230</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ns,</pre>
+                      <pre class="language-r">        width = 12,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">231</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          # xparam and yparam are identical, so we only show the user one</pre>
+                      <pre class="language-r">        br(), hr(),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">232</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          xparam_choices = a$param$choices, xparam_selected = a$param$selected, xparam_label = "Select a Biomarker",</pre>
+                      <pre class="language-r">        h4("Selected Data Points"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">233</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          xchoices = a$xaxis_var$choices, xselected = a$xaxis_var$selected,</pre>
+                      <pre class="language-r">        DT::dataTableOutput(ns("brush_data"))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">234</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ychoices = a$yaxis_var$choices, yselected = a$yaxis_var$selected</pre>
+                      <pre class="language-r">      )),</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">      fluidRow(column(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">236</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        uiOutput(ns("shape_ui")),</pre>
+                      <pre class="language-r">        width = 12,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">237</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        radioButtons(ns("stat"), "Select a Statistic:", c("mean", "median"), a$stat),</pre>
+                      <pre class="language-r">        br(), hr(),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">238</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        checkboxInput(ns("include_stat"), "Include Statistic Table", value = TRUE),</pre>
+                      <pre class="language-r">        h4("Descriptive Statistics"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">239</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        div(</pre>
+                      <pre class="language-r">        DT::dataTableOutput(ns("table_ui"))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">240</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          sliderInput(</pre>
+                      <pre class="language-r">      ))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">241</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ns("relative_height"),</pre>
+                      <pre class="language-r">    ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">242</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            div(</pre>
+                      <pre class="language-r">    encoding = div(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">243</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              "Relative height of plot to table(s)",</pre>
+                      <pre class="language-r">      ### Reporter</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">244</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              title =</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">245</td>
-                    <td class="coverage">!</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">246</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  "The larger the value selected the greater the size of the plot relative\nto",</pre>
+                      <pre class="language-r">      templ_ui_dataname(a$dataname),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">247</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  "the size of the tables. Note the units of this slider are arbitrary.\nTo",</pre>
+                      <pre class="language-r">      teal.widgets::optionalSelectInput(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">248</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  "change the total size of the plot and table(s)\nuse",</pre>
+                      <pre class="language-r">        ns("trt_group"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">249</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  "the plot resizing controls available at the top right of the plot."</pre>
+                      <pre class="language-r">        label = "Select Treatment Variable",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">250</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                ),</pre>
+                      <pre class="language-r">        choices = a$trt_group$choices,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">251</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              icon("circle-info")</pre>
+                      <pre class="language-r">        selected = a$trt_group$selected,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">252</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="missed">
+                  <tr class="never">
                     <td class="num">253</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            min = 500,</pre>
+                      <pre class="language-r">      ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">254</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            max = 5000,</pre>
+                      <pre class="language-r">      templ_ui_params_vars(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">255</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            step = 50,</pre>
+                      <pre class="language-r">        ns,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">256</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            value = a$plot_relative_height_value,</pre>
+                      <pre class="language-r">        xparam_choices = a$param$choices,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">257</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ticks = FALSE</pre>
+                      <pre class="language-r">        xparam_selected = a$param$selected,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">258</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ),</pre>
+                      <pre class="language-r">        xparam_label = "Select a Biomarker",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">259</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ),</pre>
+                      <pre class="language-r">        xchoices = a$xaxis_var$choices,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">260</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        templ_ui_constraint(ns), # required by constr_anl_q</pre>
+                      <pre class="language-r">        xselected = a$xaxis_var$selected,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">261</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ui_arbitrary_lines(id = ns("hline_arb"), a$hline_arb, a$hline_arb_label, a$hline_arb_color),</pre>
+                      <pre class="language-r">        ychoices = a$yaxis_var$choices,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">262</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        teal.widgets::panel_group(</pre>
+                      <pre class="language-r">        yselected = a$yaxis_var$selected</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">263</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          teal.widgets::panel_item(</pre>
+                      <pre class="language-r">      ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">264</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            title = "Plot Aesthetic Settings",</pre>
+                      <pre class="language-r">      teal.widgets::optionalSelectInput(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">265</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            toggle_slider_ui(</pre>
+                      <pre class="language-r">        ns("facet_var"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">266</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              ns("yrange_scale"),</pre>
+                      <pre class="language-r">        label = "Facet by",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">267</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              label = "Y-Axis Range Zoom",</pre>
+                      <pre class="language-r">        choices = a$facet_var$choices,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">268</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              min = -1000000,</pre>
+                      <pre class="language-r">        selected = a$facet_var$selected,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">269</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              max = 1000000,</pre>
+                      <pre class="language-r">        multiple = FALSE</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">270</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              value = c(-1000000, 1000000)</pre>
+                      <pre class="language-r">      ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">271</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ),</pre>
+                      <pre class="language-r">      templ_ui_constraint(ns, label = "Data Constraint"), # required by constr_anl_q</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">272</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            checkboxInput(ns("rotate_xlab"), "Rotate X-axis Label", a$rotate_xlab),</pre>
+                      <pre class="language-r">      if (length(a$hline_vars) &gt; 0) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">273</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            numericInput(ns("count_threshold"), "Contributing Observations Threshold:", a$count_threshold)</pre>
+                      <pre class="language-r">        teal.widgets::optionalSelectInput(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">274</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ),</pre>
+                      <pre class="language-r">          ns("hline_vars"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">275</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          teal.widgets::panel_item(</pre>
+                      <pre class="language-r">          label = "Add Horizontal Range Line(s):",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">276</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            title = "Plot settings",</pre>
+                      <pre class="language-r">          choices = a$hline_vars,</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::optionalSliderInputValMinMax(ns("dodge"), "Error Bar Position Dodge", a$dodge, ticks = FALSE),</pre>
+                      <pre class="language-r">          selected = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">278</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            teal.widgets::panel_group(</pre>
+                      <pre class="language-r">          multiple = TRUE</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">279</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              teal.widgets::panel_item(</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">280</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                title = "Line Settings",</pre>
+                      <pre class="language-r">      },</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">281</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                uiOutput(ns("lines"))</pre>
+                      <pre class="language-r">      ui_arbitrary_lines(id = ns("hline_arb"), a$hline_arb, a$hline_arb_label, a$hline_arb_color),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">282</td>
-                    <td class="coverage"></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="missed">
                     <td class="num">283</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::panel_item(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">284</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                title = "Symbol settings",</pre>
+                      <pre class="language-r">          title = "Plot Aesthetic Settings",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">285</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                uiOutput(ns("symbols"))</pre>
+                      <pre class="language-r">          toggle_slider_ui(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">286</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              )</pre>
+                      <pre class="language-r">            ns("yrange_scale"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">287</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ),</pre>
+                      <pre class="language-r">            label = "Y-Axis Range Zoom",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">288</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            teal.widgets::optionalSliderInputValMinMax(</pre>
+                      <pre class="language-r">            min = -1000000,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">289</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              ns("plot_font_size"),</pre>
+                      <pre class="language-r">            max = 1000000,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">290</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              "Font Size",</pre>
+                      <pre class="language-r">            value = c(-1000000, 1000000)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">291</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              a$plot_font_size,</pre>
+                      <pre class="language-r">          ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">292</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              ticks = FALSE</pre>
+                      <pre class="language-r">          numericInput(ns("facet_ncol"), "Number of Plots Per Row:", a$facet_ncol, min = 1),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">293</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">          checkboxInput(ns("loq_legend"), "Display LoQ Legend", a$loq_legend),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">294</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ),</pre>
+                      <pre class="language-r">          checkboxInput(ns("rotate_xlab"), "Rotate X-axis Label", a$rotate_xlab)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">295</td>
-                    <td class="coverage">!</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">296</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            title = "Table settings",</pre>
+                      <pre class="language-r">        teal.widgets::panel_item(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">297</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            teal.widgets::optionalSliderInputValMinMax(</pre>
+                      <pre class="language-r">          title = "Plot settings",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">298</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              ns("table_font_size"),</pre>
+                      <pre class="language-r">          teal.widgets::optionalSliderInputValMinMax(ns("font_size"), "Font Size", a$font_size, ticks = FALSE),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">299</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              "Table Font Size",</pre>
+                      <pre class="language-r">          teal.widgets::optionalSliderInputValMinMax(ns("dot_size"), "Dot Size", a$dot_size, ticks = FALSE),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">300</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              a$table_font_size,</pre>
+                      <pre class="language-r">          teal.widgets::optionalSliderInputValMinMax(ns("alpha"), "Dot Alpha", a$alpha, ticks = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">301</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              ticks = FALSE</pre>
+                      <pre class="language-r">        )</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">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">303</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">    ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">304</td>
-                    <td class="coverage"></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">
+                  <tr class="missed">
                     <td class="num">305</td>
-                    <td class="coverage"></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">306</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      forms = tagList(</pre>
+                      <pre class="language-r">      teal.widgets::verbatim_popup_ui(ns("rcode"), "Show R code")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">307</td>
-                    <td class="coverage">!</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">308</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">    pre_output = a$pre_output,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">309</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ),</pre>
+                      <pre class="language-r">    post_output = a$post_output</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">310</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      pre_output = a$pre_output,</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">311</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      post_output = a$post_output</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">312</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">313</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r"></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>
+                      <pre class="language-r">srv_g_boxplot &lt;- function(id,</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>
+                      <pre class="language-r">                          data,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">316</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">srv_lineplot &lt;- function(id,</pre>
+                      <pre class="language-r">                          reporter,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">317</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         data,</pre>
+                      <pre class="language-r">                          filter_panel_api,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">318</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         reporter,</pre>
+                      <pre class="language-r">                          dataname,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">319</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         filter_panel_api,</pre>
+                      <pre class="language-r">                          param_var,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">320</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         dataname,</pre>
+                      <pre class="language-r">                          trt_group,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">321</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         param_var,</pre>
+                      <pre class="language-r">                          facet_var,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">322</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         trt_group,</pre>
+                      <pre class="language-r">                          color_manual,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">323</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         color_manual,</pre>
+                      <pre class="language-r">                          shape_manual,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">324</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         xvar_level,</pre>
+                      <pre class="language-r">                          plot_height,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">325</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         trt_group_level,</pre>
+                      <pre class="language-r">                          plot_width,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">326</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         shape_choices,</pre>
+                      <pre class="language-r">                          hline_vars_colors,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">327</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         param_var_label,</pre>
+                      <pre class="language-r">                          hline_vars_labels) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">328</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         xtick,</pre>
+                      <pre class="language-r">  with_reporter &lt;- !missing(reporter) &amp;&amp; inherits(reporter, "Reporter")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">329</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         xlabel,</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">
+                  <tr class="missed">
                     <td class="num">330</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         plot_height,</pre>
+                      <pre class="language-r">  checkmate::assert_class(data, "reactive")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">331</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         plot_width) {</pre>
+                      <pre class="language-r">  checkmate::assert_class(shiny::isolate(data()), "teal_data")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">332</td>
-                    <td class="coverage">!</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"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">333</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">  moduleServer(id, function(input, output, session) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">334</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(data, "reactive")</pre>
+                      <pre class="language-r">    # reused in all modules</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">335</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(shiny::isolate(data()), "teal_data")</pre>
+                      <pre class="language-r">    anl_q_output &lt;- constr_anl_q(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">336</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      session, input, data, dataname,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">337</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">      param_id = "xaxis_param", param_var = param_var, trt_group = input$trt_group, min_rows = 2</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">338</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ns &lt;- session$ns</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">339</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    output$shape_ui &lt;- renderUI({</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">340</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (!is.null(shape_choices)) {</pre>
+                      <pre class="language-r">    anl_q &lt;- anl_q_output()$value</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">341</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (methods::is(shape_choices, "choices_selected")) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">342</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          choices &lt;- shape_choices$choices</pre>
+                      <pre class="language-r">    # update sliders for axes taking constraints into account</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">343</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          selected &lt;- shape_choices$selected</pre>
+                      <pre class="language-r">    yrange_slider &lt;- toggle_slider_server("yrange_scale")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">344</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        } else {</pre>
+                      <pre class="language-r">    keep_range_slider_updated(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">345</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          choices &lt;- shape_choices</pre>
+                      <pre class="language-r">      session,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">346</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          selected &lt;- NULL</pre>
+                      <pre class="language-r">      input,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">347</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">      update_slider_fcn = yrange_slider$update_state,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">348</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        teal.widgets::optionalSelectInput(</pre>
+                      <pre class="language-r">      id_var = "yaxis_var",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">349</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ns("shape"),</pre>
+                      <pre class="language-r">      id_param_var = "xaxis_param",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">350</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "Select Line Splitting Variable",</pre>
+                      <pre class="language-r">      reactive_ANL = anl_q</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">351</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          choices = choices, selected = selected</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">352</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">    keep_data_const_opts_updated(session, input, anl_q, "xaxis_param")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <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">
+                  <tr class="missed">
                     <td class="num">354</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">    horizontal_line &lt;- srv_arbitrary_lines("hline_arb")</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -2603,98 +2603,98 @@ <h2>teal.goshawk coverage - 0.00%</h2>
                     <td class="num">356</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    anl_q_output &lt;- constr_anl_q(</pre>
+                      <pre class="language-r">    trt_group &lt;- reactive({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">357</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      session = session,</pre>
+                      <pre class="language-r">      input$trt_group</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">358</td>
-                    <td class="coverage">!</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">
+                  <tr class="never">
                     <td class="num">359</td>
-                    <td class="coverage">!</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">360</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dataname = dataname,</pre>
+                      <pre class="language-r">    iv_r &lt;- reactive({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">361</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      param_id = "xaxis_param",</pre>
+                      <pre class="language-r">      iv &lt;- shinyvalidate::InputValidator$new()</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">362</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      param_var = param_var,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">363</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      trt_group = input$trt_group,</pre>
+                      <pre class="language-r">      iv$add_rule("xaxis_param", shinyvalidate::sv_required("Please select a biomarker"))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">364</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      min_rows = 2</pre>
+                      <pre class="language-r">      iv$add_rule("trt_group", shinyvalidate::sv_required("Please select a treatment variable"))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">365</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">      iv$add_rule("xaxis_var", shinyvalidate::sv_required("Please select an X-Axis variable"))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">366</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      iv$add_rule("xaxis_var", ~ if ((.) %in% c("ACTARM", "ARM") &amp;&amp; isTRUE((.) != trt_group())) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">367</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    anl_q &lt;- anl_q_output()$value</pre>
+                      <pre class="language-r">        sprintf("You can not choose %s as x-axis variable for treatment variable %s.", (.), trt_group())</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <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="missed">
                     <td class="num">369</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    keep_data_const_opts_updated(session, input, anl_q, "xaxis_param")</pre>
+                      <pre class="language-r">      iv$add_rule("yaxis_var", shinyvalidate::sv_required("Please select a Y-Axis variable"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -2708,1400 +2708,1400 @@ <h2>teal.goshawk coverage - 0.00%</h2>
                     <td class="num">371</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    yrange_slider &lt;- toggle_slider_server("yrange_scale")</pre>
+                      <pre class="language-r">      iv$add_rule("facet_var", shinyvalidate::sv_optional())</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">372</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      iv$add_rule("facet_var", ~ if ((.) %in% c("ACTARM", "ARM") &amp;&amp; isTRUE((.) != trt_group())) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">373</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    horizontal_line &lt;- srv_arbitrary_lines("hline_arb")</pre>
+                      <pre class="language-r">        sprintf("You can not choose %s as faceting variable for treatment variable %s.", (.), trt_group())</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <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">
+                  <tr class="never">
                     <td class="num">375</td>
-                    <td class="coverage">!</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">376</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv &lt;- shinyvalidate::InputValidator$new()</pre>
+                      <pre class="language-r">      iv_facet &lt;- shinyvalidate::InputValidator$new()</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">377</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv$add_rule("xaxis_param", shinyvalidate::sv_required("Please select a biomarker"))</pre>
+                      <pre class="language-r">      iv_facet$condition(~ !is.null(input$facet_var))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">378</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv$add_rule("trt_group", shinyvalidate::sv_required("Please select a treatment variable"))</pre>
+                      <pre class="language-r">      iv_facet$add_rule("facet_ncol", plots_per_row_validate_rules(required = FALSE))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">379</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv$add_rule("xaxis_var", shinyvalidate::sv_required("Please select an X-Axis variable"))</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">380</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      iv$add_rule("yaxis_var", shinyvalidate::sv_required("Please select a Y-Axis variable"))</pre>
+                      <pre class="language-r">      iv$add_validator(iv_facet)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">381</td>
+                    <td class="num">380</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">382</td>
+                    <td class="num">381</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">      iv$add_validator(horizontal_line()$iv_r())</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">383</td>
+                    <td class="num">382</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">      iv$add_validator(anl_q_output()$iv_r())</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">384</td>
+                    <td class="num">383</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">      iv$enable()</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">385</td>
+                    <td class="num">384</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">      iv</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">386</td>
+                    <td class="num">385</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">387</td>
+                    <td class="num">386</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
+                    <td class="num">387</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    create_plot &lt;- reactive({</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
                     <td class="num">388</td>
-                    <td class="coverage"></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">389</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # update sliders for axes</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">390</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    observe({</pre>
+                      <pre class="language-r">      req(anl_q())</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">391</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      varname &lt;- input[["yaxis_var"]]</pre>
+                      <pre class="language-r">      # nolint start</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">392</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      validate(need(varname, "Please select variable"))</pre>
+                      <pre class="language-r">      param &lt;- input$xaxis_param</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">393</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      yaxis &lt;- input$yaxis_var</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">394</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ANL &lt;- anl_q()$ANL # nolint</pre>
+                      <pre class="language-r">      xaxis &lt;- input$xaxis_var</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">395</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      validate_has_variable(ANL, varname, paste("variable", varname, "does not exist"))</pre>
+                      <pre class="language-r">      facet_var &lt;- `if`(is.null(input$facet_var), "None", input$facet_var)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">396</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      ylim &lt;- yrange_slider$state()$value</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">397</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      shape &lt;- if (!(is.null(input$shape) || input$shape == "None")) {</pre>
+                      <pre class="language-r">      facet_ncol &lt;- input$facet_ncol</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">398</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        input$shape</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">399</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">      alpha &lt;- input$alpha</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">400</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        NULL</pre>
+                      <pre class="language-r">      font_size &lt;- input$font_size</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">401</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">      dot_size &lt;- input$dot_size</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">402</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      loq_legend &lt;- input$loq_legend</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">403</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # we don't need to additionally filter for paramvar here as in keep_range_slider_updated because</pre>
+                      <pre class="language-r">      rotate_xlab &lt;- input$rotate_xlab</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">404</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # xaxis_var and yaxis_var are always distinct</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">405</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      sum_data &lt;- ANL %&gt;%</pre>
+                      <pre class="language-r">      hline_arb &lt;- horizontal_line()$line_arb</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">406</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        dplyr::group_by_at(c(input$xaxis_var, input$trt_group, shape)) %&gt;%</pre>
+                      <pre class="language-r">      hline_arb_label &lt;- horizontal_line()$line_arb_label</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">407</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        dplyr::summarise(</pre>
+                      <pre class="language-r">      hline_arb_color &lt;- horizontal_line()$line_arb_color</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">408</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          upper = if (input$stat == "mean") {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">409</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            mean(!!sym(varname), na.rm = TRUE) +</pre>
+                      <pre class="language-r">      hline_vars &lt;- input$hline_vars</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">410</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              1.96 * stats::sd(!!sym(varname), na.rm = TRUE) / sqrt(dplyr::n())</pre>
+                      <pre class="language-r">      trt_group &lt;- input$trt_group</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">411</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          } else {</pre>
+                      <pre class="language-r">      # nolint end</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">412</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            stats::quantile(!!sym(varname), 0.75, na.rm = TRUE)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">413</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          },</pre>
+                      <pre class="language-r">      validate_has_variable(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">414</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          lower = if (input$stat == "mean") {</pre>
+                      <pre class="language-r">        anl_q()$ANL,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">415</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            mean(!!sym(varname), na.rm = TRUE) -</pre>
+                      <pre class="language-r">        yaxis,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">416</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              1.96 * stats::sd(!!sym(varname), na.rm = TRUE) / sqrt(dplyr::n())</pre>
+                      <pre class="language-r">        sprintf("Variable %s is not available in data %s", yaxis, dataname)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">417</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">418</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            stats::quantile(!!sym(varname), 0.25, na.rm = TRUE)</pre>
+                      <pre class="language-r">      validate_has_variable(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">419</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          }</pre>
+                      <pre class="language-r">        anl_q()$ANL,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">420</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">        xaxis,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">421</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        sprintf("Variable %s is not available in data %s", xaxis, dataname)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">422</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      minmax &lt;- grDevices::extendrange(</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">423</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        r = c(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">424</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          floor(min(sum_data$lower, na.rm = TRUE) * 10) / 10,</pre>
+                      <pre class="language-r">      if (!facet_var == "None") {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">425</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ceiling(max(sum_data$upper, na.rm = TRUE) * 10) / 10</pre>
+                      <pre class="language-r">        validate_has_variable(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">426</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ),</pre>
+                      <pre class="language-r">          anl_q()$ANL,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">427</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        f = 0.05</pre>
+                      <pre class="language-r">          facet_var,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">428</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">          sprintf("Variable %s is not available in data %s", facet_var, dataname)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <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">430</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # we don't use keep_range_slider_updated because this module computes the min, max</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">431</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # not from the constrained ANL, but rather by first grouping and computing confidence</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">432</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # intervals</pre>
+                      <pre class="language-r">      anl_q()$qenv %&gt;% teal.code::eval_code(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">433</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      isolate(yrange_slider$update_state(</pre>
+                      <pre class="language-r">        code = bquote({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">434</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        min = minmax[[1]],</pre>
+                      <pre class="language-r">          p &lt;- goshawk::g_boxplot(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">435</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        max = minmax[[2]],</pre>
+                      <pre class="language-r">            data = ANL,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">436</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        value = minmax</pre>
+                      <pre class="language-r">            biomarker = .(param),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">437</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ))</pre>
+                      <pre class="language-r">            xaxis_var = .(xaxis),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">438</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">            yaxis_var = .(yaxis),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">439</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">            hline_arb = .(hline_arb),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">440</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    line_color_defaults &lt;- reactiveVal(color_manual)</pre>
+                      <pre class="language-r">            hline_arb_label = .(hline_arb_label),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">441</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">            hline_arb_color = .(hline_arb_color),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">442</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    line_type_defaults &lt;- reactiveVal("solid")</pre>
+                      <pre class="language-r">            hline_vars = .(hline_vars),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">443</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">            hline_vars_colors = .(hline_vars_colors[seq_along(hline_vars)]),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">444</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    observeEvent(input$trt_group, {</pre>
+                      <pre class="language-r">            hline_vars_labels = .(hline_vars_labels[seq_along(hline_vars)]),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">445</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      req(anl_q())</pre>
+                      <pre class="language-r">            facet_ncol = .(facet_ncol),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">446</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      req(input$trt_group)</pre>
+                      <pre class="language-r">            loq_legend = .(loq_legend),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">447</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      anl_arm &lt;- anl_q()$ANL[[input$trt_group]]</pre>
+                      <pre class="language-r">            rotate_xlab = .(rotate_xlab),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">448</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      anl_arm_nlevels &lt;- nlevels(anl_arm)</pre>
+                      <pre class="language-r">            trt_group = .(trt_group),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">449</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">            ylim = .(ylim),</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 (is.null(names(line_color_defaults()))) {</pre>
+                      <pre class="language-r">            color_manual = .(color_manual),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">451</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # if color_manual did not specify arms (i.e. didn't have names) then order</pre>
+                      <pre class="language-r">            shape_manual = .(shape_manual),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">452</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # of the vector does not need to match order of level(anl_arm)</pre>
+                      <pre class="language-r">            facet_var = .(facet_var),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">453</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        line_color_to_set &lt;- line_color_defaults()[seq_len(anl_arm_nlevels)]</pre>
+                      <pre class="language-r">            alpha = .(alpha),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">454</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">            dot_size = .(dot_size),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">455</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # if color_manual did specify arms then we need to make sure the order of</pre>
+                      <pre class="language-r">            font_size = .(font_size),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">456</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # line_color_to_set matches the order of level(anl_arm) and if any arms are invalid</pre>
+                      <pre class="language-r">            unit = .("AVALU")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">457</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # or missing then we fill with a random colour</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">458</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        line_color_to_set &lt;- stats::setNames(line_color_defaults()[levels(anl_arm)], nm = levels(anl_arm))</pre>
+                      <pre class="language-r">        })</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <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">
+                  <tr class="never">
                     <td class="num">460</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      line_color_to_set[is.na(line_color_to_set)] &lt;- grDevices::rainbow(anl_arm_nlevels)[is.na(line_color_to_set)]</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">461</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      line_color_defaults(line_color_to_set)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">462</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    create_table &lt;- reactive({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">463</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      line_type_to_set &lt;- if (length(line_type_defaults()) &lt;= anl_arm_nlevels) {</pre>
+                      <pre class="language-r">      req(iv_r()$is_valid())</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">464</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        c(line_type_defaults(), rep(line_type_defaults(), anl_arm_nlevels - length(line_type_defaults())))</pre>
+                      <pre class="language-r">      req(anl_q())</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">465</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">      param &lt;- input$xaxis_param</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">466</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        line_type_defaults()[seq_len(anl_arm_nlevels)]</pre>
+                      <pre class="language-r">      xaxis_var &lt;- input$yaxis_var # nolint</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">467</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">      font_size &lt;- input$font_size</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">468</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      trt_group &lt;- input$trt_group</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">469</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      line_type_defaults(line_type_to_set)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">470</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">      anl_q()$qenv %&gt;% teal.code::eval_code(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">471</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        code = bquote({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">472</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    line_color_selected &lt;- reactive({</pre>
+                      <pre class="language-r">          tbl &lt;- goshawk::t_summarytable(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">473</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      req(anl_q())</pre>
+                      <pre class="language-r">            data = ANL,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">474</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (is.null(input$trt_group)) {</pre>
+                      <pre class="language-r">            trt_group = .(trt_group),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">475</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        return(NULL)</pre>
+                      <pre class="language-r">            param_var = .(param_var),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">476</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">            param = .(param),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">477</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      anl_arm &lt;- isolate(anl_q()$ANL[[input$trt_group]])</pre>
+                      <pre class="language-r">            xaxis_var = .(xaxis_var),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">478</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      anl_arm_nlevels &lt;- nlevels(anl_arm)</pre>
+                      <pre class="language-r">            facet_var = .(input$facet_var)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">479</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      anl_arm_levels &lt;- levels(anl_arm)</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <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="missed">
+                  <tr class="never">
                     <td class="num">481</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      stats::setNames(</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">482</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        vapply(</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">483</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          seq_len(anl_arm_nlevels),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">484</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          function(idx) {</pre>
+                      <pre class="language-r">    plot_r &lt;- reactive({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">485</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            x &lt;- input[[paste0("line_color_", idx)]]</pre>
+                      <pre class="language-r">      create_plot()[["p"]]</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">486</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            if (is.null(x)) isolate(line_color_defaults())[[idx]] else x</pre>
+                      <pre class="language-r">    })</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>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">488</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          character(1)</pre>
+                      <pre class="language-r">    boxplot_data &lt;- teal.widgets::plot_with_settings_srv(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">489</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ),</pre>
+                      <pre class="language-r">      id = "boxplot",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">490</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        anl_arm_levels</pre>
+                      <pre class="language-r">      plot_r = plot_r,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">491</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">      height = plot_height,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">492</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">      width = plot_width,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">493</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      brushing = TRUE</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">494</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    line_type_selected &lt;- reactive({</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">495</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      req(anl_q())</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">496</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (is.null(input$trt_group)) {</pre>
+                      <pre class="language-r">    output$table_ui &lt;- DT::renderDataTable({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">497</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        return(NULL)</pre>
+                      <pre class="language-r">      req(create_table())</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">498</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">      tbl &lt;- create_table()[["tbl"]]</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">499</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      anl_arm &lt;- isolate(anl_q()$ANL[[input$trt_group]])</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">500</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      anl_arm_nlevels &lt;- nlevels(anl_arm)</pre>
+                      <pre class="language-r">      numeric_cols &lt;- setdiff(names(dplyr::select_if(tbl, is.numeric)), "n")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">501</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      anl_arm_levels &lt;- levels(anl_arm)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">502</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      DT::datatable(tbl, rownames = FALSE, options = list(scrollX = TRUE)) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">503</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      stats::setNames(</pre>
+                      <pre class="language-r">        DT::formatRound(numeric_cols, 4)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">504</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        vapply(</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">505</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          seq_len(anl_arm_nlevels),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">506</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          function(idx) {</pre>
+                      <pre class="language-r">    ### REPORTER</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">507</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            x &lt;- input[[paste0("line_type_", idx)]]</pre>
+                      <pre class="language-r">    if (with_reporter) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">508</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            if (is.null(x)) isolate(line_type_defaults())[[idx]] else x</pre>
+                      <pre class="language-r">      card_fun &lt;- function(comment, label) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">509</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          },</pre>
+                      <pre class="language-r">        constraint_description &lt;- paste(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">510</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          character(1)</pre>
+                      <pre class="language-r">          "\nFacet By:",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">511</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ),</pre>
+                      <pre class="language-r">          if (length(input$facet_var) != 0) input$facet_var else "None",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">512</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        anl_arm_levels</pre>
+                      <pre class="language-r">          "\nSelect an X-axis Variable:",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">513</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">          input$xaxis_var</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">514</td>
                     <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">515</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        card &lt;- report_card_template_goshawk(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">516</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    output$lines &lt;- renderUI({</pre>
+                      <pre class="language-r">          title = "Box Plot",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">517</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      req(anl_q())</pre>
+                      <pre class="language-r">          label = label,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">518</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      req(input$trt_group)</pre>
+                      <pre class="language-r">          with_filter = with_filter,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">519</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      anl_arm &lt;- isolate(anl_q()$ANL[[input$trt_group]])</pre>
+                      <pre class="language-r">          filter_panel_api = filter_panel_api,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">520</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      anl_arm_nlevels &lt;- nlevels(anl_arm)</pre>
+                      <pre class="language-r">          constraint_list = list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">521</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      anl_arm_levels &lt;- levels(anl_arm)</pre>
+                      <pre class="language-r">            constraint_var = input$constraint_var,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">522</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      color_def &lt;- line_color_defaults()</pre>
+                      <pre class="language-r">            constraint_range_min = input$constraint_range_min,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">523</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      type_def &lt;- line_type_defaults()</pre>
+                      <pre class="language-r">            constraint_range_max = input$constraint_range_max</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">524</td>
-                    <td class="coverage">!</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">525</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        lapply(</pre>
+                      <pre class="language-r">          constraint_description = constraint_description,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">526</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          seq_len(anl_arm_nlevels),</pre>
+                      <pre class="language-r">          style = "verbatim"</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">527</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          function(idx) {</pre>
+                      <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">            x &lt;- anl_arm_levels[[idx]]</pre>
+                      <pre class="language-r">        card$append_text("Plot", "header3")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">529</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            x_color &lt;- color_def[[idx]]</pre>
+                      <pre class="language-r">        card$append_plot(plot_r(), dim = boxplot_data$dim())</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">530</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            color_input &lt;- colourpicker::colourInput(</pre>
+                      <pre class="language-r">        if (!comment == "") {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">531</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              ns(paste0("line_color_", idx)),</pre>
+                      <pre class="language-r">          card$append_text("Comment", "header3")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">532</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              "Color:",</pre>
+                      <pre class="language-r">          card$append_text(comment)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">533</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              x_color</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">534</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">        card$append_src(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">535</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            x_type &lt;- type_def[[idx]]</pre>
+                      <pre class="language-r">          teal.code::get_code(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">536</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            type_input &lt;- selectInput(</pre>
+                      <pre class="language-r">            teal.code::join(create_plot(), create_table())</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">537</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              ns(paste0("line_type_", idx)),</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">538</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              "Type:",</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">539</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              choices = c(</pre>
+                      <pre class="language-r">        card</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">540</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                "blank",</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">541</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                "solid",</pre>
+                      <pre class="language-r">      teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">542</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                "dashed",</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">543</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                "dotted",</pre>
+                      <pre class="language-r">    ###</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">544</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                "dotdash",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">545</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                "longdash",</pre>
+                      <pre class="language-r">    # highlight plot area</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">546</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                "twodash",</pre>
+                      <pre class="language-r">    output$brush_data &lt;- DT::renderDataTable({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">547</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                "1F",</pre>
+                      <pre class="language-r">      boxplot_brush &lt;- boxplot_data$brush()</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">548</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                "F1",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">549</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                "4C88C488",</pre>
+                      <pre class="language-r">      ANL &lt;- isolate(anl_q()$ANL) %&gt;% droplevels() # nolint</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">550</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                "12345678"</pre>
+                      <pre class="language-r">      validate_has_data(ANL, 2)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <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="missed">
                     <td class="num">552</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              selected = x_type</pre>
+                      <pre class="language-r">      xvar &lt;- isolate(input$xaxis_var)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">553</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">      yvar &lt;- isolate(input$yaxis_var)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">554</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            div(</pre>
+                      <pre class="language-r">      facetv &lt;- isolate(input$facet_var)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">555</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              tags$label("Line configuration for:", tags$code(x)),</pre>
+                      <pre class="language-r">      trt_group &lt;- isolate(input$trt_group)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">556</td>
-                    <td class="coverage">!</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">557</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                class = "flex",</pre>
+                      <pre class="language-r">      req(all(c(xvar, yvar, facetv, trt_group) %in% names(ANL)))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">558</td>
-                    <td class="coverage">!</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">559</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  class = "flex-grow-1",</pre>
+                      <pre class="language-r">      df &lt;- teal.widgets::clean_brushedPoints(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">560</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  color_input</pre>
+                      <pre class="language-r">        dplyr::select(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">561</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                ),</pre>
+                      <pre class="language-r">          ANL, "USUBJID", dplyr::all_of(c(trt_group, facetv)),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">562</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                div(</pre>
+                      <pre class="language-r">          "AVISITCD", "PARAMCD", dplyr::all_of(c(xvar, yvar)), "LOQFL"</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">563</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  class = "flex-grow-1",</pre>
+                      <pre class="language-r">        ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">564</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  type_input</pre>
+                      <pre class="language-r">        boxplot_brush</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">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">566</td>
                     <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">567</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">      numeric_cols &lt;- names(dplyr::select_if(df, is.numeric))</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>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">569</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">      DT::datatable(df, rownames = FALSE, options = list(scrollX = TRUE)) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">570</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">        DT::formatRound(numeric_cols, 4)</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -4118,15125 +4118,14746 @@ <h2>teal.goshawk coverage - 0.00%</h2>
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">573</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    joined_qenvs &lt;- reactive({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">574</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    symbol_type_start &lt;- c(</pre>
+                      <pre class="language-r">      req(create_plot(), create_table())</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">575</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "circle",</pre>
+                      <pre class="language-r">      teal.code::join(create_plot(), create_table())</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">576</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "square",</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">577</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "diamond",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">578</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "triangle",</pre>
+                      <pre class="language-r">    teal.widgets::verbatim_popup_srv(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">579</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "circle open",</pre>
+                      <pre class="language-r">      id = "warning",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">580</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "square open",</pre>
+                      <pre class="language-r">      verbatim_content = reactive(teal.code::get_warnings(joined_qenvs())),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">581</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "diamond open",</pre>
+                      <pre class="language-r">      title = "Warning",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">582</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "triangle open",</pre>
+                      <pre class="language-r">      disabled = reactive(is.null(teal.code::get_warnings(joined_qenvs())))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">583</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "triangle down open",</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">584</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "circle cross",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">585</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "square cross",</pre>
+                      <pre class="language-r">    teal.widgets::verbatim_popup_srv(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">586</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "circle plus",</pre>
+                      <pre class="language-r">      id = "rcode",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">587</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "square plus",</pre>
+                      <pre class="language-r">      verbatim_content = reactive(teal.code::get_code(joined_qenvs())),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">588</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "diamond plus",</pre>
+                      <pre class="language-r">      title = "Show R Code for Boxplot"</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">589</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "square triangle",</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">590</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "plus",</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">591</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "cross",</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">592</td>
-                    <td class="coverage">!</td>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/tm_g_gh_density_distribution_plot.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">      "asterisk"</pre>
+                      <pre class="language-r">#' Density Distribution Plot</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">593</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">594</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">    symbol_type_defaults &lt;- reactiveVal(symbol_type_start)</pre>
+                      <pre class="language-r">#' This teal module renders the UI and calls the functions that create a density distribution plot</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">595</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' and an accompanying summary table.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">596</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # reset shapes when different splitting variable is selected</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">597</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">    observeEvent(</pre>
+                      <pre class="language-r">#' @param label menu item label of the module in the teal app.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">598</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">      eventExpr = input$shape,</pre>
+                      <pre class="language-r">#' @param trt_group \code{\link[teal.transform]{choices_selected}} object with available choices and pre-selected option</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">599</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">      handlerExpr = symbol_type_defaults(symbol_type_start),</pre>
+                      <pre class="language-r">#' for variable names representing treatment group e.g. `ARM`.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">600</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">      ignoreNULL = TRUE</pre>
+                      <pre class="language-r">#' @param color_manual vector of colors applied to treatment values.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">601</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 color_comb name or hex value for combined treatment color.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">602</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 plot_height controls plot height.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">603</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">    observe({</pre>
+                      <pre class="language-r">#' @param plot_width optional, controls plot width.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">604</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">      req(input$shape)</pre>
+                      <pre class="language-r">#' @param font_size font size control for title, `x-axis` label, `y-axis` label and legend.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">605</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">      req(anl_q())</pre>
+                      <pre class="language-r">#' @param line_size plot line thickness.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">606</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_shape &lt;- anl_q()$ANL[[input$shape]]</pre>
+                      <pre class="language-r">#' @param hline_arb numeric vector of at most 2 values identifying intercepts for arbitrary horizontal lines.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">607</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">      anl_shape_nlevels &lt;- nlevels(anl_shape)</pre>
+                      <pre class="language-r">#' @param hline_arb_color a character vector of at most length of \code{hline_arb}.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">608</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">      symbol_type_to_set &lt;- symbol_type_defaults()[pmin(length(symbol_type_defaults()), seq_len(anl_shape_nlevels))]</pre>
+                      <pre class="language-r">#' naming the color for the arbitrary horizontal lines.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">609</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">      symbol_type_defaults(symbol_type_to_set)</pre>
+                      <pre class="language-r">#' @param hline_arb_label a character vector of at most length of \code{hline_arb}.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">610</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">#' naming the label for the arbitrary horizontal lines.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">611</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 facet_ncol numeric value indicating number of facets per row.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">612</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">    symbol_type_selected &lt;- reactive({</pre>
+                      <pre class="language-r">#' @param comb_line display combined treatment line toggle.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">613</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">      req(anl_q())</pre>
+                      <pre class="language-r">#' @param rotate_xlab 45 degree rotation of `x-axis` values.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">614</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">      if (is.null(input$shape)) {</pre>
+                      <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">        return(NULL)</pre>
+                  <tr class="never">
+                    <td class="num">24</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' @inheritParams teal.widgets::standard_layout</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">616</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#' @inheritParams tm_g_gh_scatterplot</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">617</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_shape &lt;- isolate(anl_q()$ANL[[input$shape]])</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">618</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_shape_nlevels &lt;- nlevels(anl_shape)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">619</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">28</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      anl_shape_levels &lt;- levels(anl_shape)</pre>
+                      <pre class="language-r">#' @author Nick Paszty (npaszty) paszty.nicholas@gene.com</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">620</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @author Balazs Toth (tothb2)  toth.balazs@gene.com</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">621</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">      stats::setNames(</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">31</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        vapply(</pre>
+                      <pre class="language-r">#' @details None</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">623</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">          seq_len(anl_shape_nlevels),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">624</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">          function(idx) {</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">625</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">            x &lt;- input[[paste0("symbol_type_", idx)]]</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">35</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            if (is.null(x)) isolate(symbol_type_defaults())[[idx]] else x</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">627</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="missed">
-                    <td class="num">628</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">          character(1)</pre>
+                      <pre class="language-r">#' # Example using ADaM structure analysis dataset.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">629</td>
+                    <td class="num">38</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">630</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">        anl_shape_levels</pre>
+                      <pre class="language-r">#' data &lt;- within(data, {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">631</td>
+                    <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#'   library(dplyr)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">632</td>
+                    <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">#'   # original ARM value = dose value</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">633</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   arm_mapping &lt;- list(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">634</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">    output$symbols &lt;- renderUI({</pre>
+                      <pre class="language-r">#'     "A: Drug X" = "150mg QD",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">635</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">      req(symbol_type_defaults())</pre>
+                      <pre class="language-r">#'     "B: Placebo" = "Placebo",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">636</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">      validate(need(input$shape, "Please select line splitting variable first."))</pre>
+                      <pre class="language-r">#'     "C: Combination" = "Combination"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">637</td>
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">638</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">      anl_shape &lt;- isolate(anl_q()$ANL[[input$shape]])</pre>
+                      <pre class="language-r">#'   ADSL &lt;- goshawk::rADSL</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">639</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">      validate(need(is.factor(anl_shape), "Line splitting variable must be a factor."))</pre>
+                      <pre class="language-r">#'   ADLB &lt;- goshawk::rADLB</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">640</td>
+                    <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   var_labels &lt;- lapply(ADLB, function(x) attributes(x)$label)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">641</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">      anl_shape_nlevels &lt;- nlevels(anl_shape)</pre>
+                      <pre class="language-r">#'   ADLB &lt;- ADLB %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">642</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">      anl_shape_levels &lt;- levels(anl_shape)</pre>
+                      <pre class="language-r">#'     dplyr::mutate(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">643</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">      symbol_def &lt;- symbol_type_defaults()</pre>
+                      <pre class="language-r">#'       AVISITCD = dplyr::case_when(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">644</td>
+                    <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'         AVISIT == "SCREENING" ~ "SCR",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">645</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">54</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      tagList(</pre>
+                      <pre class="language-r">#'         AVISIT == "BASELINE" ~ "BL",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">646</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">55</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        lapply(</pre>
+                      <pre class="language-r">#'         grepl("WEEK", AVISIT) ~ paste("W", stringr::str_extract(AVISIT, "(?&lt;=(WEEK ))[0-9]+")),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">647</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">          seq_len(anl_shape_nlevels),</pre>
+                      <pre class="language-r">#'         TRUE ~ as.character(NA)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">648</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">          function(idx) {</pre>
+                      <pre class="language-r">#'       ),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">649</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">            x &lt;- anl_shape_levels[[idx]]</pre>
+                      <pre class="language-r">#'       AVISITCDN = dplyr::case_when(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">650</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">            x_color &lt;- symbol_def[[idx]]</pre>
+                      <pre class="language-r">#'         AVISITCD == "SCR" ~ -2,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">651</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">            selectInput(</pre>
+                      <pre class="language-r">#'         AVISITCD == "BL" ~ 0,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">652</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">              ns(paste0("symbol_type_", idx)),</pre>
+                      <pre class="language-r">#'         grepl("W", AVISITCD) ~ as.numeric(gsub("[^0-9]*", "", AVISITCD)),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">653</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">              HTML(paste0("Symbol for: ", tags$code(x))),</pre>
+                      <pre class="language-r">#'         TRUE ~ as.numeric(NA)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">654</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">              choices = symbol_type_start,</pre>
+                      <pre class="language-r">#'       ),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">655</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">              selected = x_color</pre>
+                      <pre class="language-r">#'       AVISITCD = factor(AVISITCD) %&gt;% reorder(AVISITCDN),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">656</td>
+                    <td class="num">65</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">#'       TRTORD = dplyr::case_when(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">657</td>
+                    <td class="num">66</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          }</pre>
+                      <pre class="language-r">#'         ARMCD == "ARM C" ~ 1,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">658</td>
+                    <td class="num">67</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#'         ARMCD == "ARM B" ~ 2,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">659</td>
+                    <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#'         ARMCD == "ARM A" ~ 3</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">660</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">661</td>
+                    <td class="num">70</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'       ARM = as.character(arm_mapping[match(ARM, names(arm_mapping))]),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">662</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_q &lt;- reactive({</pre>
+                      <pre class="language-r">#'       ARM = factor(ARM) %&gt;% reorder(TRTORD),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">663</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">      teal::validate_inputs(iv_r())</pre>
+                      <pre class="language-r">#'       ACTARM = as.character(arm_mapping[match(ACTARM, names(arm_mapping))]),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">664</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(anl_q(), line_color_selected(), line_type_selected())</pre>
+                      <pre class="language-r">#'       ACTARM = factor(ACTARM) %&gt;% reorder(TRTORD)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">665</td>
+                    <td class="num">74</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">666</td>
+                    <td class="num">75</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">667</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">      ylim &lt;- yrange_slider$state()$value</pre>
+                      <pre class="language-r">#'   attr(ADLB[["ARM"]], "label") &lt;- var_labels[["ARM"]]</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">668</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">      plot_font_size &lt;- input$plot_font_size</pre>
+                      <pre class="language-r">#'   attr(ADLB[["ACTARM"]], "label") &lt;- var_labels[["ACTARM"]]</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">669</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">      dodge &lt;- input$dodge</pre>
+                      <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">79</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      rotate_xlab &lt;- input$rotate_xlab</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">671</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">      count_threshold &lt;- `if`(is.na(as.numeric(input$count_threshold)), 0, as.numeric(input$count_threshold))</pre>
+                      <pre class="language-r">#' datanames &lt;- c("ADSL", "ADLB")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">672</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">      table_font_size &lt;- input$table_font_size</pre>
+                      <pre class="language-r">#' datanames(data) &lt;- datanames</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">673</td>
+                    <td class="num">82</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]</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">674</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">      median &lt;- ifelse(input$stat == "median", TRUE, FALSE)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">675</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">      relative_height &lt;- input$relative_height</pre>
+                      <pre class="language-r">#' app &lt;- teal::init(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">676</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">      trt_group &lt;- input$trt_group</pre>
+                      <pre class="language-r">#'   data = data,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">677</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">      color_selected &lt;- line_color_selected()</pre>
+                      <pre class="language-r">#'   modules = teal::modules(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">678</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">      type_selected &lt;- line_type_selected()</pre>
+                      <pre class="language-r">#'     teal.goshawk::tm_g_gh_density_distribution_plot(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">679</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">      symbol_selected &lt;- symbol_type_selected()</pre>
+                      <pre class="language-r">#'       label = "Density Distribution Plot",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">680</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">      include_stat &lt;- input$include_stat</pre>
+                      <pre class="language-r">#'       dataname = "ADLB",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">681</td>
+                    <td class="num">90</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'       param_var = "PARAMCD",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">682</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">      param &lt;- input$xaxis_param</pre>
+                      <pre class="language-r">#'       param = choices_selected(c("ALT", "CRP", "IGA"), "ALT"),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">683</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">      xaxis &lt;- input$xaxis_var</pre>
+                      <pre class="language-r">#'       xaxis_var = choices_selected(c("AVAL", "BASE", "CHG", "PCHG"), "AVAL"),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">684</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">      yaxis &lt;- input$yaxis_var</pre>
+                      <pre class="language-r">#'       trt_group = choices_selected(c("ARM", "ACTARM"), "ARM"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">685</td>
+                    <td class="num">94</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # nolint end</pre>
+                      <pre class="language-r">#'       color_manual = c(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">686</td>
+                    <td class="num">95</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'         "150mg QD" = "#000000",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">687</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">      shape &lt;- if (!(is.null(input$shape) || input$shape == "None")) {</pre>
+                      <pre class="language-r">#'         "Placebo" = "#3498DB",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">688</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">        input$shape</pre>
+                      <pre class="language-r">#'         "Combination" = "#E74C3C"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">689</td>
+                    <td class="num">98</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">#'       ),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">690</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">        NULL</pre>
+                      <pre class="language-r">#'       color_comb = "#39ff14",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">691</td>
+                    <td class="num">100</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#'       comb_line = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">692</td>
+                    <td class="num">101</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'       plot_height = c(500, 200, 2000),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">693</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">      validate(</pre>
+                      <pre class="language-r">#'       font_size = c(12, 8, 20),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">694</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">        need(</pre>
+                      <pre class="language-r">#'       line_size = c(1, .25, 3),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">695</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">          nrow(anl_q()$ANL[stats::complete.cases(anl_q()$ANL[, c(yaxis, xaxis)]), ]) &gt;= 2,</pre>
+                      <pre class="language-r">#'       hline_arb = c(.02, .05),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">696</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">          "Number of complete rows on x and y axis variables is less than 2"</pre>
+                      <pre class="language-r">#'       hline_arb_color = c("red", "black"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">697</td>
+                    <td class="num">106</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#'       hline_arb_label = c("Horizontal Line A", "Horizontal Line B")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">698</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">699</td>
+                    <td class="num">108</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">700</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">      private_qenv &lt;- anl_q()$qenv</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">701</td>
+                    <td class="num">110</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">702</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 (!methods::is(xtick, "waiver") &amp;&amp; !is.null(xtick)) {</pre>
+                      <pre class="language-r">#'   shinyApp(app$ui, app$server)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">703</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">        private_qenv &lt;- teal.code::eval_code(</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">704</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">          object = private_qenv,</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">114</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          code = bquote({</pre>
+                      <pre class="language-r">tm_g_gh_density_distribution_plot &lt;- function(label, # nolint</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">706</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">            keep_index &lt;- which(.(xtick) %in% ANL[[.(xaxis)]])</pre>
+                      <pre class="language-r">                                              dataname,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">707</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">            xtick &lt;- (.(xtick))[keep_index] # extra parentheses needed for edge case, e.g. 1:5[keep_index]</pre>
+                      <pre class="language-r">                                              param_var,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">708</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">            xlabel &lt;- (.(xlabel))[keep_index]</pre>
+                      <pre class="language-r">                                              param,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">709</td>
+                    <td class="num">118</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          })</pre>
+                      <pre class="language-r">                                              xaxis_var,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">710</td>
+                    <td class="num">119</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">                                              trt_group,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">711</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">      } else if (methods::is(xtick, "waiver")) {</pre>
+                      <pre class="language-r">                                              color_manual = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">712</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">        private_qenv &lt;- teal.code::eval_code(</pre>
+                      <pre class="language-r">                                              color_comb = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">713</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">          object = private_qenv,</pre>
+                      <pre class="language-r">                                              plot_height = c(500, 200, 2000),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">714</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">          code = "</pre>
+                      <pre class="language-r">                                              plot_width = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">715</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">            xtick &lt;- ggplot2::waiver()</pre>
+                      <pre class="language-r">                                              font_size = c(12, 8, 20),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">716</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">            xlabel &lt;- ggplot2::waiver()</pre>
+                      <pre class="language-r">                                              line_size = c(1, .25, 3),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">717</td>
+                    <td class="num">126</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "</pre>
+                      <pre class="language-r">                                              hline_arb = numeric(0),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">718</td>
+                    <td class="num">127</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">                                              hline_arb_color = "red",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">719</td>
+                    <td class="num">128</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">                                              hline_arb_label = "Horizontal line",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">720</td>
+                    <td class="num">129</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                                              facet_ncol = 2L,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">721</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">      hline_arb &lt;- horizontal_line()$line_arb</pre>
+                      <pre class="language-r">                                              comb_line = TRUE,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">722</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">      hline_arb_label &lt;- horizontal_line()$line_arb_label</pre>
+                      <pre class="language-r">                                              rotate_xlab = FALSE,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">723</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">      hline_arb_color &lt;- horizontal_line()$line_arb_color</pre>
+                      <pre class="language-r">                                              pre_output = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">724</td>
+                    <td class="num">133</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">725</td>
+                    <td class="num">134</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.code::eval_code(</pre>
+                      <pre class="language-r">  logger::log_info("Initializing tm_g_gh_density_distribution_plot")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">726</td>
+                    <td class="num">135</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        object = private_qenv,</pre>
+                      <pre class="language-r">  checkmate::assert_string(label)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">727</td>
+                    <td class="num">136</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        code = bquote({</pre>
+                      <pre class="language-r">  checkmate::assert_string(dataname)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">728</td>
+                    <td class="num">137</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          p &lt;- goshawk::g_lineplot(</pre>
+                      <pre class="language-r">  checkmate::assert_string(param_var)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">729</td>
+                    <td class="num">138</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            data = ANL[stats::complete.cases(ANL[, c(.(yaxis), .(xaxis))]), ],</pre>
+                      <pre class="language-r">  checkmate::assert_class(param, "choices_selected")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">730</td>
+                    <td class="num">139</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            biomarker_var = .(param_var),</pre>
+                      <pre class="language-r">  checkmate::assert_class(xaxis_var, "choices_selected")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">731</td>
+                    <td class="num">140</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            biomarker_var_label = .(param_var_label),</pre>
+                      <pre class="language-r">  checkmate::assert_class(trt_group, "choices_selected")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">732</td>
+                    <td class="num">141</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            biomarker = .(param),</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(font_size, len = 3)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">733</td>
+                    <td class="num">142</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            value_var = .(yaxis),</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(line_size, len = 3)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">734</td>
+                    <td class="num">143</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ylim = .(ylim),</pre>
+                      <pre class="language-r">  checkmate::assert_int(facet_ncol)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">735</td>
+                    <td class="num">144</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            trt_group = .(trt_group),</pre>
+                      <pre class="language-r">  checkmate::assert_flag(comb_line)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">736</td>
+                    <td class="num">145</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            trt_group_level = .(trt_group_level),</pre>
+                      <pre class="language-r">  checkmate::assert_flag(rotate_xlab)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">737</td>
+                    <td class="num">146</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            shape = .(shape),</pre>
+                      <pre class="language-r">  validate_line_arb_arg(hline_arb, hline_arb_color, hline_arb_label)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">738</td>
+                    <td class="num">147</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            shape_type = .(symbol_selected),</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">739</td>
+                    <td class="num">148</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            time = .(xaxis),</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">740</td>
+                    <td class="num">149</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            time_level = .(xvar_level),</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">741</td>
+                    <td class="num">150</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            color_manual = .(color_selected),</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">742</td>
+                    <td class="num">151</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            line_type = .(type_selected),</pre>
+                      <pre class="language-r">    plot_width[1],</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">743</td>
+                    <td class="num">152</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            median = .(median),</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">744</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">            hline_arb = .(hline_arb),</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">745</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">            hline_arb_label = .(hline_arb_label),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">746</td>
+                    <td class="num">155</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            hline_arb_color = .(hline_arb_color),</pre>
+                      <pre class="language-r">  args &lt;- as.list(environment())</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">747</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">            xtick = .(if (!is.null(xtick)) quote(xtick) else xtick),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">748</td>
+                    <td class="num">157</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            xlabel = .(if (!is.null(xtick)) quote(xlabel) else xlabel),</pre>
+                      <pre class="language-r">  module(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">749</td>
+                    <td class="num">158</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            rotate_xlab = .(rotate_xlab),</pre>
+                      <pre class="language-r">    label = label,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">750</td>
+                    <td class="num">159</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            plot_height = .(relative_height), # in g_lineplot this is relative height of plot to table</pre>
+                      <pre class="language-r">    datanames = dataname,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">751</td>
+                    <td class="num">160</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            plot_font_size = .(plot_font_size),</pre>
+                      <pre class="language-r">    server = srv_g_density_distribution_plot,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">752</td>
+                    <td class="num">161</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            dodge = .(dodge),</pre>
+                      <pre class="language-r">    server_args = list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">753</td>
+                    <td class="num">162</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            count_threshold = .(count_threshold),</pre>
+                      <pre class="language-r">      dataname = dataname,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">754</td>
+                    <td class="num">163</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            table_font_size = .(table_font_size),</pre>
+                      <pre class="language-r">      param_var = param_var,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">755</td>
+                    <td class="num">164</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            display_center_tbl = .(include_stat)</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>
+                      <pre class="language-r">      param = param,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">757</td>
+                    <td class="num">165</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          print(p)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">758</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="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      )</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>
+                      <pre class="language-r">      trt_group = trt_group,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">761</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">      color_manual = color_manual,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">762</td>
+                    <td class="num">167</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    plot_r &lt;- reactive(plot_q()[["p"]])</pre>
+                      <pre class="language-r">      color_comb = color_comb,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">763</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">      plot_height = plot_height,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">764</td>
+                    <td class="num">169</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    plot_data &lt;- teal.widgets::plot_with_settings_srv(</pre>
+                      <pre class="language-r">      plot_width = plot_width</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">765</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">      id = "plot",</pre>
+                      <pre class="language-r">    ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">766</td>
+                    <td class="num">171</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      plot_r = plot_r,</pre>
+                      <pre class="language-r">    ui = ui_g_density_distribution_plot,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">767</td>
+                    <td class="num">172</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      height = plot_height,</pre>
+                      <pre class="language-r">    ui_args = args</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">768</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">      width = plot_width,</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">769</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">770</td>
+                    <td class="num">175</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">771</td>
+                    <td class="num">176</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ### REPORTER</pre>
+                      <pre class="language-r">ui_g_density_distribution_plot &lt;- function(id, ...) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">772</td>
+                    <td class="num">177</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (with_reporter) {</pre>
+                      <pre class="language-r">  ns &lt;- NS(id)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">773</td>
+                    <td class="num">178</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">  a &lt;- list(...)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">774</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">        constraint_description &lt;- paste(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">775</td>
+                    <td class="num">180</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "\nSelect Line Splitting Variable:",</pre>
+                      <pre class="language-r">  teal.widgets::standard_layout(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">776</td>
+                    <td class="num">181</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          if (!is.null(input$shape)) input$shape else "None",</pre>
+                      <pre class="language-r">    output = div(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">777</td>
+                    <td class="num">182</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "\nContributing Observations Threshold:",</pre>
+                      <pre class="language-r">      fluidRow(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">778</td>
+                    <td class="num">183</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          input$count_threshold</pre>
+                      <pre class="language-r">        teal.widgets::plot_with_settings_ui(id = ns("plot"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">779</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="missed">
-                    <td class="num">780</td>
+                    <td class="num">185</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        card &lt;- report_card_template_goshawk(</pre>
+                      <pre class="language-r">      fluidRow(column(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">781</td>
+                    <td class="num">186</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          title = "Line Plot",</pre>
+                      <pre class="language-r">        width = 12,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">782</td>
+                    <td class="num">187</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          label = label,</pre>
+                      <pre class="language-r">        br(), hr(),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">783</td>
+                    <td class="num">188</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          with_filter = with_filter,</pre>
+                      <pre class="language-r">        h4("Descriptive Statistics"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">784</td>
+                    <td class="num">189</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">        DT::dataTableOutput(ns("table_ui"))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">785</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">          constraint_list = list(</pre>
+                      <pre class="language-r">      ))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">786</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">            constraint_var = input$constraint_var,</pre>
+                      <pre class="language-r">    ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">787</td>
+                    <td class="num">192</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            constraint_range_min = input$constraint_range_min,</pre>
+                      <pre class="language-r">    encoding = div(</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">193</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      ### Reporter</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">788</td>
+                    <td class="num">194</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            constraint_range_max = input$constraint_range_max</pre>
+                      <pre class="language-r">      teal.reporter::simple_reporter_ui(ns("simple_reporter")),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">789</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="missed">
-                    <td class="num">790</td>
+                    <td class="num">196</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          constraint_description = constraint_description,</pre>
+                      <pre class="language-r">      templ_ui_dataname(a$dataname),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">791</td>
+                    <td class="num">197</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          style = "verbatim"</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>
+                      <pre class="language-r">      teal.widgets::optionalSelectInput(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">793</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">        ns("trt_group"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">794</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 = plot_data$dim())</pre>
+                      <pre class="language-r">        label = "Select Treatment Variable",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">795</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">        choices = a$trt_group$choices,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">796</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">        selected = a$trt_group$selected,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">797</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">        multiple = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">798</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">799</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(plot_q()))</pre>
+                      <pre class="language-r">      templ_ui_params_vars(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">800</td>
+                    <td class="num">205</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        card</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">801</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">        ns,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">802</td>
+                    <td class="num">206</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">803</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">        xparam_choices = a$param$choices, xparam_selected = a$param$selected, xparam_label = "Select a Biomarker",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">804</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">        xchoices = a$xaxis_var$choices, xselected = a$xaxis_var$selected</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">805</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="missed">
-                    <td class="num">806</td>
+                    <td class="num">209</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    teal.widgets::verbatim_popup_srv(</pre>
+                      <pre class="language-r">      templ_ui_constraint(ns, label = "Data Constraint"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">807</td>
+                    <td class="num">210</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      id = "warning",</pre>
+                      <pre class="language-r">      ui_arbitrary_lines(id = ns("hline_arb"), a$hline_arb, a$hline_arb_label, a$hline_arb_color),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">808</td>
+                    <td class="num">211</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      verbatim_content = reactive(teal.code::get_warnings(plot_q())),</pre>
+                      <pre class="language-r">      teal.widgets::panel_group(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">809</td>
+                    <td class="num">212</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      title = "Warning",</pre>
+                      <pre class="language-r">        teal.widgets::panel_item(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">810</td>
+                    <td class="num">213</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      disabled = reactive(is.null(teal.code::get_warnings(plot_q())))</pre>
+                      <pre class="language-r">          title = "Plot Aesthetic Settings",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">811</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">          toggle_slider_ui(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">812</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">            ns("xrange_scale"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">813</td>
+                    <td class="num">216</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    teal.widgets::verbatim_popup_srv(</pre>
+                      <pre class="language-r">            label = "X-Axis Range Zoom",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">814</td>
+                    <td class="num">217</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      id = "rcode",</pre>
+                      <pre class="language-r">            min = -1000000,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">815</td>
+                    <td class="num">218</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      verbatim_content = reactive(teal.code::get_code(plot_q())),</pre>
+                      <pre class="language-r">            max = 1000000,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">816</td>
+                    <td class="num">219</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      title = "Show R Code for Line Plot"</pre>
+                      <pre class="language-r">            value = c(-1000000, 1000000)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">817</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">818</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">  })</pre>
+                      <pre class="language-r">          toggle_slider_ui(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">819</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">}</pre>
+                      <pre class="language-r">            ns("yrange_scale"),</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/tm_g_gh_boxplot.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">223</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Box Plot</pre>
+                      <pre class="language-r">            label = "Y-Axis Range Zoom",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">2</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">            min = -1000000,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">3</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">#' This teal module renders the UI and calls the functions that create a box plot and accompanying</pre>
+                      <pre class="language-r">            max = 1000000,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">4</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">#' summary table.</pre>
+                      <pre class="language-r">            value = c(-1000000, 1000000)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</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">6</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">#' @param label menu item label of the module in the teal app.</pre>
+                      <pre class="language-r">          numericInput(ns("facet_ncol"), "Number of Plots Per Row:", a$facet_ncol, min = 1),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">7</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 dataname analysis data passed to the data argument of \code{\link[teal]{init}}. E.g. `ADaM` structured</pre>
+                      <pre class="language-r">          checkboxInput(ns("comb_line"), "Display Combined line", a$comb_line),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">8</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">#'  laboratory data frame `ALB`.</pre>
+                      <pre class="language-r">          checkboxInput(ns("rug_plot"), "Include rug plot", value = FALSE),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">9</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 param_var name of variable containing biomarker codes e.g. `PARAMCD`.</pre>
+                      <pre class="language-r">          checkboxInput(ns("rotate_xlab"), "Rotate X-axis Label", a$rotate_xlab)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">232</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param param list of biomarkers of interest.</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">233</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param yaxis_var name of variable containing biomarker results displayed on y-axis e.g. `AVAL`. When not provided,</pre>
+                      <pre class="language-r">        teal.widgets::panel_item(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">12</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">#' it defaults to `choices_selected(c("AVAL", "CHG"), "AVAL")`.</pre>
+                      <pre class="language-r">          title = "Plot settings",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">13</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">#' @param xaxis_var variable to categorize the x-axis. When not provided, it defaults to</pre>
+                      <pre class="language-r">          teal.widgets::optionalSliderInputValMinMax(ns("font_size"), "Font Size", a$font_size, ticks = FALSE),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">14</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">#' `choices_selected("AVISITCD", "AVISITCD")`.</pre>
+                      <pre class="language-r">          teal.widgets::optionalSliderInputValMinMax(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">15</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 facet_var variable to facet the plots by. When not provided, it defaults to</pre>
+                      <pre class="language-r">            ns("line_size"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">16</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">#' `choices_selected(c("ARM", "ACTARM"), "ARM")`.</pre>
+                      <pre class="language-r">            "Line Size",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">17</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">#' @param trt_group  \code{\link[teal.transform]{choices_selected}} object with available choices and pre-selected</pre>
+                      <pre class="language-r">            value_min_max = a$line_size,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">18</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">#'  option for variable names representing treatment group e.g. `ARM`.</pre>
+                      <pre class="language-r">            step = .25,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">19</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">#' @param color_manual vector of colors applied to treatment values.</pre>
+                      <pre class="language-r">            ticks = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">242</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param shape_manual vector of symbols applied to `LOQ` values.</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">243</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param facet_ncol numeric value indicating number of facets per row.</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">244</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param loq_legend `loq` legend toggle.</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">23</td>
+                    <td class="num">245</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param rotate_xlab 45 degree rotation of `x-axis` values.</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">246</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param hline_arb numeric vector of at most 2 values identifying intercepts for arbitrary horizontal lines.</pre>
+                      <pre class="language-r">    forms = tagList(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">25</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">#' @param hline_arb_color a character vector of at most length of \code{hline_arb}.</pre>
+                      <pre class="language-r">      teal.widgets::verbatim_popup_ui(ns("warning"), "Show Warnings"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">26</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">#' naming the color for the arbitrary horizontal lines.</pre>
+                      <pre class="language-r">      teal.widgets::verbatim_popup_ui(ns("rcode"), "Show R code")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">249</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param hline_arb_label a character vector of at most length of \code{hline_arb}.</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">250</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' naming the label for the arbitrary horizontal lines.</pre>
+                      <pre class="language-r">    pre_output = a$pre_output,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">29</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 hline_vars a character vector to name the columns that will define additional horizontal lines.</pre>
+                      <pre class="language-r">    post_output = a$post_output</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">252</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param hline_vars_colors a character vector naming the colors for the additional horizontal lines.</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
+                    <td class="num">253</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param hline_vars_labels a character vector naming the labels for the additional horizontal lines that will appear</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">32</td>
+                    <td class="num">254</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  in the legend.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">255</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param plot_height controls plot height.</pre>
+                      <pre class="language-r">srv_g_density_distribution_plot &lt;- function(id, # nolint</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">34</td>
+                    <td class="num">256</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param plot_width optional, controls plot width.</pre>
+                      <pre class="language-r">                                            data,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</td>
+                    <td class="num">257</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param font_size font size control for title, `x-axis` label, `y-axis` label and legend.</pre>
+                      <pre class="language-r">                                            reporter,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">36</td>
+                    <td class="num">258</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param dot_size plot dot size.</pre>
+                      <pre class="language-r">                                            filter_panel_api,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</td>
+                    <td class="num">259</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param alpha numeric vector to define transparency of plotted points.</pre>
+                      <pre class="language-r">                                            dataname,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">260</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                            param_var,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">261</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams teal.widgets::standard_layout</pre>
+                      <pre class="language-r">                                            param,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">262</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                            trt_group,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">263</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @author Jeff Tomlinson (tomlinsj) jeffrey.tomlinson@roche.com</pre>
+                      <pre class="language-r">                                            color_manual,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">264</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @author Balazs Toth (tothb2) toth.balazs@gene.com</pre>
+                      <pre class="language-r">                                            color_comb,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <td class="num">265</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                            plot_height,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">44</td>
+                    <td class="num">266</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return an \code{\link[teal]{module}} object</pre>
+                      <pre class="language-r">                                            plot_width) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">45</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">  with_reporter &lt;- !missing(reporter) &amp;&amp; inherits(reporter, "Reporter")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">46</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">#' @export</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">47</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">  checkmate::assert_class(data, "reactive")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">48</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">#' @examples</pre>
+                      <pre class="language-r">  checkmate::assert_class(shiny::isolate(data()), "teal_data")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">49</td>
+                    <td class="num">271</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">50</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">#' # Example using ADaM structure analysis dataset.</pre>
+                      <pre class="language-r">  moduleServer(id, function(input, output, session) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">51</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">#' data &lt;- teal_data()</pre>
+                      <pre class="language-r">    anl_q_output &lt;- constr_anl_q(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">52</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">#' data &lt;- within(data, {</pre>
+                      <pre class="language-r">      session, input, data, dataname,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">53</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">#'   library(dplyr)</pre>
+                      <pre class="language-r">      param_id = "xaxis_param", param_var = param_var, trt_group = input$trt_group, min_rows = 2</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">54</td>
+                    <td class="num">276</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">55</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">56</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">#'   # original ARM value = dose value</pre>
+                      <pre class="language-r">    anl_q &lt;- anl_q_output()$value</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">57</td>
+                    <td class="num">279</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   arm_mapping &lt;- list(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">58</td>
+                    <td class="num">280</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     "A: Drug X" = "150mg QD",</pre>
+                      <pre class="language-r">    # update sliders for axes taking constraints into account</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">59</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">#'     "B: Placebo" = "Placebo",</pre>
+                      <pre class="language-r">    xrange_slider &lt;- toggle_slider_server("xrange_scale")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">60</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">#'     "C: Combination" = "Combination"</pre>
+                      <pre class="language-r">    yrange_slider &lt;- toggle_slider_server("yrange_scale")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">61</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">    keep_range_slider_updated(session, input, xrange_slider$update_state, "xaxis_var", "xaxis_param", anl_q)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">62</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">#'   set.seed(1)</pre>
+                      <pre class="language-r">    keep_range_slider_updated(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">63</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">#'   ADSL &lt;- goshawk::rADSL</pre>
+                      <pre class="language-r">      session,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">64</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">#'   ADLB &lt;- goshawk::rADLB</pre>
+                      <pre class="language-r">      input,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">65</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">#'   var_labels &lt;- lapply(ADLB, function(x) attributes(x)$label)</pre>
+                      <pre class="language-r">      yrange_slider$update_state,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">66</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">#'   ADLB &lt;- ADLB %&gt;%</pre>
+                      <pre class="language-r">      "xaxis_var",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">67</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">#'     dplyr::mutate(</pre>
+                      <pre class="language-r">      "xaxis_param",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">68</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">#'       AVISITCD = dplyr::case_when(</pre>
+                      <pre class="language-r">      anl_q,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">69</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">#'         AVISIT == "SCREENING" ~ "SCR",</pre>
+                      <pre class="language-r">      is_density = TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">70</td>
+                    <td class="num">292</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         AVISIT == "BASELINE" ~ "BL",</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">293</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         grepl("WEEK", AVISIT) ~ paste("W", stringr::str_extract(AVISIT, "(?&lt;=(WEEK ))[0-9]+")),</pre>
+                      <pre class="language-r">    keep_data_const_opts_updated(session, input, anl_q, "xaxis_param")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">72</td>
+                    <td class="num">294</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         TRUE ~ as.character(NA)</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">295</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       ),</pre>
+                      <pre class="language-r">    horizontal_line &lt;- srv_arbitrary_lines("hline_arb")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">74</td>
+                    <td class="num">296</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       AVISITCDN = dplyr::case_when(</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">297</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         AVISITCD == "SCR" ~ -2,</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">298</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         AVISITCD == "BL" ~ 0,</pre>
+                      <pre class="language-r">      iv &lt;- shinyvalidate::InputValidator$new()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">77</td>
+                    <td class="num">299</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         grepl("W", AVISITCD) ~ as.numeric(gsub("[^0-9]*", "", AVISITCD)),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">78</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">#'         TRUE ~ as.numeric(NA)</pre>
+                      <pre class="language-r">      iv$add_rule("xaxis_param", shinyvalidate::sv_required("Please select a biomarker"))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">79</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">      iv$add_rule("trt_group", shinyvalidate::sv_required("Please select a treatment variable"))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">80</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">#'       AVISITCD = factor(AVISITCD) %&gt;% reorder(AVISITCDN),</pre>
+                      <pre class="language-r">      iv$add_rule("xaxis_var", shinyvalidate::sv_required("Please select an X-Axis variable"))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">81</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">#'       TRTORD = dplyr::case_when(</pre>
+                      <pre class="language-r">      iv$add_rule("facet_ncol", plots_per_row_validate_rules())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">82</td>
+                    <td class="num">304</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         ARMCD == "ARM C" ~ 1,</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">305</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         ARMCD == "ARM B" ~ 2,</pre>
+                      <pre class="language-r">      iv$add_validator(horizontal_line()$iv_r())</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">84</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">#'         ARMCD == "ARM A" ~ 3</pre>
+                      <pre class="language-r">      iv$add_validator(anl_q_output()$iv_r())</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">85</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">#'       ),</pre>
+                      <pre class="language-r">      iv$enable()</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">86</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">#'       ARM = as.character(arm_mapping[match(ARM, names(arm_mapping))]),</pre>
+                      <pre class="language-r">      iv</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">87</td>
+                    <td class="num">309</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       ARM = factor(ARM) %&gt;% reorder(TRTORD),</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">88</td>
+                    <td class="num">310</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       ACTARM = as.character(arm_mapping[match(ACTARM, names(arm_mapping))]),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">89</td>
+                    <td class="num">311</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       ACTARM = factor(ACTARM) %&gt;% reorder(TRTORD),</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">312</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       ANRLO = 50,</pre>
+                      <pre class="language-r">    create_plot &lt;- reactive({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">91</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">#'       ANRHI = 75</pre>
+                      <pre class="language-r">      teal::validate_inputs(iv_r())</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">92</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">#'     ) %&gt;%</pre>
+                      <pre class="language-r">      req(anl_q())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">93</td>
+                    <td class="num">315</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     dplyr::rowwise() %&gt;%</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">94</td>
+                    <td class="num">316</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     dplyr::group_by(PARAMCD) %&gt;%</pre>
+                      <pre class="language-r">      # nolint start</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">95</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">#'     dplyr::mutate(LBSTRESC = ifelse(</pre>
+                      <pre class="language-r">      param &lt;- input$xaxis_param</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">96</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">#'       USUBJID %in% sample(USUBJID, 1, replace = TRUE),</pre>
+                      <pre class="language-r">      xaxis_var &lt;- input$xaxis_var</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">97</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">#'       paste("&lt;", round(runif(1, min = 25, max = 30))), LBSTRESC</pre>
+                      <pre class="language-r">      xlim &lt;- xrange_slider$state()$value</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">98</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">#'     )) %&gt;%</pre>
+                      <pre class="language-r">      ylim &lt;- yrange_slider$state()$value</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">99</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">#'     dplyr::mutate(LBSTRESC = ifelse(</pre>
+                      <pre class="language-r">      font_size &lt;- input$font_size</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">100</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">#'       USUBJID %in% sample(USUBJID, 1, replace = TRUE),</pre>
+                      <pre class="language-r">      line_size &lt;- input$line_size</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">101</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">#'       paste("&gt;", round(runif(1, min = 70, max = 75))), LBSTRESC</pre>
+                      <pre class="language-r">      hline_arb &lt;- horizontal_line()$line_arb</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">102</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">#'     )) %&gt;%</pre>
+                      <pre class="language-r">      hline_arb_label &lt;- horizontal_line()$line_arb_label</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">103</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">#'     ungroup()</pre>
+                      <pre class="language-r">      hline_arb_color &lt;- horizontal_line()$line_arb_color</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">104</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">      facet_ncol &lt;- input$facet_ncol</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">105</td>
+                    <td class="num">327</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   attr(ADLB[["ARM"]], "label") &lt;- var_labels[["ARM"]]</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">328</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   attr(ADLB[["ACTARM"]], "label") &lt;- var_labels[["ACTARM"]]</pre>
+                      <pre class="language-r">      comb_line &lt;- input$comb_line</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">107</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">#'   attr(ADLB[["ANRLO"]], "label") &lt;- "Analysis Normal Range Lower Limit"</pre>
+                      <pre class="language-r">      rug_plot &lt;- input$rug_plot</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">108</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">#'   attr(ADLB[["ANRHI"]], "label") &lt;- "Analysis Normal Range Upper Limit"</pre>
+                      <pre class="language-r">      rotate_xlab &lt;- input$rotate_xlab</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">109</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">      trt_group &lt;- input$trt_group</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">110</td>
+                    <td class="num">332</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   # add LLOQ and ULOQ variables</pre>
+                      <pre class="language-r">      # nolint end</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">111</td>
+                    <td class="num">333</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ALB_LOQS &lt;- goshawk:::h_identify_loq_values(ADLB)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">112</td>
+                    <td class="num">334</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ADLB &lt;- dplyr::left_join(ADLB, ALB_LOQS, by = "PARAM")</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">335</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">114</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">        object = anl_q()$qenv,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">115</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">#' datanames &lt;- c("ADSL", "ADLB")</pre>
+                      <pre class="language-r">        code = bquote({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">116</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">#' datanames(data) &lt;- datanames</pre>
+                      <pre class="language-r">          p &lt;- goshawk::g_density_distribution_plot(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">117</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">            data = ANL,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">118</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">#' join_keys(data) &lt;- default_cdisc_join_keys[datanames]</pre>
+                      <pre class="language-r">            param_var = .(param_var),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">119</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">            param = .(param),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">120</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">#' app &lt;- teal::init(</pre>
+                      <pre class="language-r">            xaxis_var = .(xaxis_var),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">121</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">#'   data = data,</pre>
+                      <pre class="language-r">            trt_group = .(trt_group),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">122</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">#'   modules = teal::modules(</pre>
+                      <pre class="language-r">            xlim = .(xlim),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">123</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">#'     teal.goshawk::tm_g_gh_boxplot(</pre>
+                      <pre class="language-r">            ylim = .(ylim),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">124</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">#'       label = "Box Plot",</pre>
+                      <pre class="language-r">            color_manual = .(color_manual),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">125</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">#'       dataname = "ADLB",</pre>
+                      <pre class="language-r">            color_comb = .(color_comb),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">126</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">#'       param_var = "PARAMCD",</pre>
+                      <pre class="language-r">            font_size = .(font_size),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">127</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">#'       param = choices_selected(c("ALT", "CRP", "IGA"), "ALT"),</pre>
+                      <pre class="language-r">            line_size = .(line_size),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">128</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">#'       yaxis_var = choices_selected(c("AVAL", "BASE", "CHG"), "AVAL"),</pre>
+                      <pre class="language-r">            facet_ncol = .(facet_ncol),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">129</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">#'       xaxis_var = choices_selected(c("ACTARM", "ARM", "AVISITCD", "STUDYID"), "ARM"),</pre>
+                      <pre class="language-r">            comb_line = .(comb_line),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">130</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">#'       facet_var = choices_selected(c("ACTARM", "ARM", "AVISITCD", "SEX"), "AVISITCD"),</pre>
+                      <pre class="language-r">            hline_arb = .(hline_arb),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">131</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">#'       trt_group = choices_selected(c("ARM", "ACTARM"), "ARM"),</pre>
+                      <pre class="language-r">            hline_arb_label = .(hline_arb_label),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">132</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">#'       loq_legend = TRUE,</pre>
+                      <pre class="language-r">            hline_arb_color = .(hline_arb_color),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">133</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">#'       rotate_xlab = FALSE,</pre>
+                      <pre class="language-r">            rug_plot = .(rug_plot)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">134</td>
+                    <td class="num">356</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       hline_arb = c(60, 55),</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">135</td>
+                    <td class="num">357</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       hline_arb_color = c("grey", "red"),</pre>
+                      <pre class="language-r">        })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">136</td>
+                    <td class="num">358</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       hline_arb_label = c("default_hori_A", "default_hori_B"),</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">137</td>
+                    <td class="num">359</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       hline_vars = c("ANRHI", "ANRLO", "ULOQN", "LLOQN"),</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">138</td>
+                    <td class="num">360</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       hline_vars_colors = c("pink", "brown", "purple", "black"),</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">361</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     )</pre>
+                      <pre class="language-r">    create_table &lt;- reactive({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">140</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">      req(iv_r()$is_valid())</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">141</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">      req(anl_q())</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">142</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">#' if (interactive()) {</pre>
+                      <pre class="language-r">      param &lt;- input$xaxis_param</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">143</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">#'   shinyApp(app$ui, app$server)</pre>
+                      <pre class="language-r">      xaxis_var &lt;- input$xaxis_var</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">144</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">      font_size &lt;- input$font_size</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">145</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">      trt_group &lt;- input$trt_group</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">146</td>
+                    <td class="num">368</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">tm_g_gh_boxplot &lt;- function(label,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">147</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">                            dataname,</pre>
+                      <pre class="language-r">      teal.code::eval_code(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">148</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">                            param_var,</pre>
+                      <pre class="language-r">        object = anl_q()$qenv,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">149</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">                            param,</pre>
+                      <pre class="language-r">        code = bquote(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">150</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">                            yaxis_var = teal.transform::choices_selected(c("AVAL", "CHG"), "AVAL"),</pre>
+                      <pre class="language-r">          tbl &lt;- goshawk::t_summarytable(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">151</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">                            xaxis_var = teal.transform::choices_selected("AVISITCD", "AVISITCD"),</pre>
+                      <pre class="language-r">            data = ANL,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">152</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">                            facet_var = teal.transform::choices_selected(c("ARM", "ACTARM"), "ARM"),</pre>
+                      <pre class="language-r">            trt_group = .(trt_group),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">153</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">                            trt_group,</pre>
+                      <pre class="language-r">            param_var = .(param_var),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">154</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">                            color_manual = NULL,</pre>
+                      <pre class="language-r">            param = .(param),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">155</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">                            shape_manual = NULL,</pre>
+                      <pre class="language-r">            xaxis_var = .(xaxis_var),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">156</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">                            facet_ncol = NULL,</pre>
+                      <pre class="language-r">            font_size = .(font_size)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">157</td>
+                    <td class="num">379</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            loq_legend = TRUE,</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">158</td>
+                    <td class="num">380</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            rotate_xlab = FALSE,</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">159</td>
+                    <td class="num">381</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            hline_arb = numeric(0),</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">160</td>
+                    <td class="num">382</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            hline_arb_color = "red",</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">161</td>
+                    <td class="num">383</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            hline_arb_label = "Horizontal line",</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">384</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            hline_vars = character(0),</pre>
+                      <pre class="language-r">    plot_r &lt;- reactive({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">163</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">                            hline_vars_colors = "green",</pre>
+                      <pre class="language-r">      create_plot()[["p"]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">164</td>
+                    <td class="num">386</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            hline_vars_labels = hline_vars,</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">165</td>
+                    <td class="num">387</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">166</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">                            plot_width = NULL,</pre>
+                      <pre class="language-r">    plot_data &lt;- teal.widgets::plot_with_settings_srv(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">167</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">                            font_size = c(12, 8, 20),</pre>
+                      <pre class="language-r">      id = "plot",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">168</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">                            dot_size = c(2, 1, 12),</pre>
+                      <pre class="language-r">      plot_r = plot_r,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">169</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">                            alpha = c(0.8, 0.0, 1.0),</pre>
+                      <pre class="language-r">      height = plot_height,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">392</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      width = plot_width,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">170</td>
+                    <td class="num">393</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">171</td>
+                    <td class="num">394</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">172</td>
+                    <td class="num">395</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  logger::log_info("Initializing tm_g_gh_boxplot")</pre>
+                      <pre class="language-r">    output$table_ui &lt;- DT::renderDataTable({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">173</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">      req(create_table())</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">174</td>
+                    <td class="num">397</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(dataname)</pre>
+                      <pre class="language-r">      tbl &lt;- create_table()[["tbl"]]</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">175</td>
+                    <td class="num">398</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(param_var)</pre>
+                      <pre class="language-r">      numeric_cols &lt;- names(dplyr::select_if(tbl, is.numeric))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">176</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">  checkmate::assert_class(param, "choices_selected")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">177</td>
+                    <td class="num">400</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(yaxis_var, "choices_selected")</pre>
+                      <pre class="language-r">      DT::datatable(tbl, rownames = FALSE, options = list(scrollX = TRUE)) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">178</td>
+                    <td class="num">401</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(xaxis_var, "choices_selected")</pre>
+                      <pre class="language-r">        DT::formatRound(numeric_cols, 2)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">179</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">  checkmate::assert_class(facet_var, "choices_selected")</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">403</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(trt_group, "choices_selected")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">181</td>
+                    <td class="num">404</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_int(facet_ncol, null.ok = TRUE)</pre>
+                      <pre class="language-r">    joined_qenvs &lt;- reactive({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">182</td>
+                    <td class="num">405</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(loq_legend)</pre>
+                      <pre class="language-r">      req(create_plot(), create_table())</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">183</td>
+                    <td class="num">406</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(rotate_xlab)</pre>
+                      <pre class="language-r">      teal.code::join(create_plot(), create_table())</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">184</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">407</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(font_size, len = 3)</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">408</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(dot_size, len = 3)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">186</td>
+                    <td class="num">409</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(alpha, len = 3)</pre>
+                      <pre class="language-r">    teal.widgets::verbatim_popup_srv(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">187</td>
+                    <td class="num">410</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  validate_line_arb_arg(hline_arb, hline_arb_color, hline_arb_label)</pre>
+                      <pre class="language-r">      id = "warning",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">188</td>
+                    <td class="num">411</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  validate_line_vars_arg(hline_vars, hline_vars_colors, hline_vars_labels)</pre>
+                      <pre class="language-r">      verbatim_content = reactive(teal.code::get_warnings(joined_qenvs())),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">189</td>
+                    <td class="num">412</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">      title = "Warning",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">190</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">      disabled = reactive(is.null(teal.code::get_warnings(joined_qenvs())))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">191</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <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">    )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">415</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">416</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(</pre>
+                      <pre class="language-r">    teal.widgets::verbatim_popup_srv(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">193</td>
+                    <td class="num">417</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    plot_width[1],</pre>
+                      <pre class="language-r">      id = "rcode",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">194</td>
+                    <td class="num">418</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">      verbatim_content = reactive(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">195</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">        teal.code::get_code(joined_qenvs())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">196</td>
+                    <td class="num">420</td>
                     <td class="coverage"></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">421</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  args &lt;- as.list(environment())</pre>
+                      <pre class="language-r">      title = "Show R Code for Density Distribution Plot"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">198</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">199</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">423</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">200</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">    label = label,</pre>
+                      <pre class="language-r">    ### REPORTER</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">201</td>
+                    <td class="num">425</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    datanames = dataname,</pre>
+                      <pre class="language-r">    if (with_reporter) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">202</td>
+                    <td class="num">426</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    server = srv_g_boxplot,</pre>
+                      <pre class="language-r">      card_fun &lt;- function(comment, label) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">203</td>
+                    <td class="num">427</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    server_args = list(</pre>
+                      <pre class="language-r">        card &lt;- report_card_template_goshawk(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">204</td>
+                    <td class="num">428</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dataname = dataname,</pre>
+                      <pre class="language-r">          title = "Density Distribution Plot",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">205</td>
+                    <td class="num">429</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      param_var = param_var,</pre>
+                      <pre class="language-r">          label = label,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">206</td>
+                    <td class="num">430</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      trt_group = trt_group,</pre>
+                      <pre class="language-r">          with_filter = with_filter,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">207</td>
+                    <td class="num">431</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      facet_var = facet_var,</pre>
+                      <pre class="language-r">          filter_panel_api = filter_panel_api,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">208</td>
+                    <td class="num">432</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      color_manual = color_manual,</pre>
+                      <pre class="language-r">          constraint_list = list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">209</td>
+                    <td class="num">433</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      shape_manual = shape_manual,</pre>
+                      <pre class="language-r">            constraint_var = input$constraint_var,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">210</td>
+                    <td class="num">434</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      plot_height = plot_height,</pre>
+                      <pre class="language-r">            constraint_range_min = input$constraint_range_min,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">211</td>
+                    <td class="num">435</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      plot_width = plot_width,</pre>
+                      <pre class="language-r">            constraint_range_max = input$constraint_range_max</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">212</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      hline_vars_colors = hline_vars_colors,</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">213</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">      hline_vars_labels = hline_vars_labels</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">214</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="missed">
-                    <td class="num">215</td>
+                    <td class="num">438</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ui = ui_g_boxplot,</pre>
+                      <pre class="language-r">        card$append_text("Plot", "header3")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">216</td>
+                    <td class="num">439</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ui_args = args</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">217</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">218</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="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        card$append_plot(plot_r(), dim = plot_data$dim())</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">220</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">ui_g_boxplot &lt;- function(id, ...) {</pre>
+                      <pre class="language-r">        card$append_text("Descriptive Statistics", "header3")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">221</td>
+                    <td class="num">441</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ns &lt;- NS(id)</pre>
+                      <pre class="language-r">        card$append_table(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">222</td>
+                    <td class="num">442</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  a &lt;- list(...)</pre>
+                      <pre class="language-r">          create_table()[["tbl"]] %&gt;% dplyr::mutate_if(is.numeric, round, 2)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">223</td>
+                    <td class="num">443</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">224</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">225</td>
+                    <td class="num">444</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    output = div(</pre>
+                      <pre class="language-r">        if (!comment == "") {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">226</td>
+                    <td class="num">445</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      fluidRow(</pre>
+                      <pre class="language-r">          card$append_text("Comment", "header3")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">227</td>
+                    <td class="num">446</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        teal.widgets::plot_with_settings_ui(id = ns("boxplot"))</pre>
+                      <pre class="language-r">          card$append_text(comment)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">228</td>
+                    <td class="num">447</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ),</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">229</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      fluidRow(column(</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">230</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        width = 12,</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">231</td>
+                    <td class="num">448</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        br(), hr(),</pre>
+                      <pre class="language-r">        card$append_src(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">232</td>
+                    <td class="num">449</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        h4("Selected Data Points"),</pre>
+                      <pre class="language-r">          teal.code::get_code(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">233</td>
+                    <td class="num">450</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        DT::dataTableOutput(ns("brush_data"))</pre>
+                      <pre class="language-r">            teal.code::join(create_plot(), create_table())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">234</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">235</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">452</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      fluidRow(column(</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">236</td>
+                    <td class="num">453</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        width = 12,</pre>
+                      <pre class="language-r">        card</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">237</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">        br(), hr(),</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">238</td>
+                    <td class="num">455</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        h4("Descriptive Statistics"),</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">239</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">        DT::dataTableOutput(ns("table_ui"))</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">240</td>
+                    <td class="num">457</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ))</pre>
+                      <pre class="language-r">    ###</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">241</td>
+                    <td class="num">458</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ),</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">459</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    encoding = div(</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/utils-data_constraints.r" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">243</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ### Reporter</pre>
+                      <pre class="language-r">templ_ui_constraint &lt;- function(ns, label = "Data Constraint") {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">244</td>
+                    <td class="num">2</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">245</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">246</td>
+                    <td class="num">3</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      templ_ui_dataname(a$dataname),</pre>
+                      <pre class="language-r">    id = ns("constraint_var_whole"), # give an id to hide it</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">247</td>
+                    <td class="num">4</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.widgets::optionalSelectInput(</pre>
+                      <pre class="language-r">    radioButtons(ns("constraint_var"), label, choices = "NONE"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">248</td>
+                    <td class="num">5</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ns("trt_group"),</pre>
+                      <pre class="language-r">    shinyjs::hidden(div(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">249</td>
+                    <td class="num">6</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        label = "Select Treatment Variable",</pre>
+                      <pre class="language-r">      id = ns("constraint_range"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">250</td>
+                    <td class="num">7</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        choices = a$trt_group$choices,</pre>
+                      <pre class="language-r">      div(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">251</td>
+                    <td class="num">8</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        selected = a$trt_group$selected,</pre>
+                      <pre class="language-r">        class = "inline-block;",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">252</td>
+                    <td class="num">9</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        multiple = FALSE</pre>
+                      <pre class="language-r">        numericInput(ns("constraint_range_min"), label = "Min", value = 0, min = 0, max = 0)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">253</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">      ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">254</td>
+                    <td class="num">11</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      templ_ui_params_vars(</pre>
+                      <pre class="language-r">      div(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">255</td>
+                    <td class="num">12</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ns,</pre>
+                      <pre class="language-r">        class = "inline-block;",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">256</td>
+                    <td class="num">13</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        xparam_choices = a$param$choices,</pre>
+                      <pre class="language-r">        numericInput(ns("constraint_range_max"), label = "Min", value = 0, min = 0, max = 0)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">257</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">        xparam_selected = a$param$selected,</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">15</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        xparam_label = "Select a Biomarker",</pre>
+                      <pre class="language-r">    )),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">259</td>
+                    <td class="num">16</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        xchoices = a$xaxis_var$choices,</pre>
+                      <pre class="language-r">    shinyjs::hidden(div(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">260</td>
+                    <td class="num">17</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        xselected = a$xaxis_var$selected,</pre>
+                      <pre class="language-r">      id = ns("all_na"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">261</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        ychoices = a$yaxis_var$choices,</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">262</td>
+                    <td class="num">18</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        yselected = a$yaxis_var$selected</pre>
+                      <pre class="language-r">      helpText("All values are missing (NA)")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">263</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ),</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">264</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      teal.widgets::optionalSelectInput(</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">265</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        ns("facet_var"),</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">20</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        label = "Facet by",</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">267</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">        choices = a$facet_var$choices,</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">22</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        selected = a$facet_var$selected,</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">23</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        multiple = FALSE</pre>
+                      <pre class="language-r">keep_data_const_opts_updated &lt;- function(session, input, data, id_param_var) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">270</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ),</pre>
+                      <pre class="language-r">  # use reactiveVal so that it only updates when options actually changed and not just data</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">271</td>
+                    <td class="num">25</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      templ_ui_constraint(ns, label = "Data Constraint"), # required by constr_anl_q</pre>
+                      <pre class="language-r">  choices &lt;- reactiveVal()</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">272</td>
+                    <td class="num">26</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (length(a$hline_vars) &gt; 0) {</pre>
+                      <pre class="language-r">  observeEvent(data(), {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">273</td>
+                    <td class="num">27</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        teal.widgets::optionalSelectInput(</pre>
+                      <pre class="language-r">    paramname &lt;- input[[id_param_var]]</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">274</td>
+                    <td class="num">28</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ns("hline_vars"),</pre>
+                      <pre class="language-r">    req(length(paramname) == 1)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">275</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">          label = "Add Horizontal Range Line(s):",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">276</td>
+                    <td class="num">30</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          choices = a$hline_vars,</pre>
+                      <pre class="language-r">    data_filtered &lt;- data()$ANL %&gt;% dplyr::filter(.data$PARAMCD == paramname)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">277</td>
+                    <td class="num">31</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          selected = NULL,</pre>
+                      <pre class="language-r">    choices(c("None" = "NONE", "Screening" = "BASE2", "Baseline" = "BASE")[</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">278</td>
+                    <td class="num">32</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          multiple = TRUE</pre>
+                      <pre class="language-r">      c(TRUE, !all(is.na(data_filtered[["BASE2"]])), !all(is.na(data_filtered[["BASE"]])))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">279</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">280</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      },</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">281</td>
+                    <td class="num">35</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ui_arbitrary_lines(id = ns("hline_arb"), a$hline_arb, a$hline_arb_label, a$hline_arb_color),</pre>
+                      <pre class="language-r">  observeEvent(choices(), {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">282</td>
+                    <td class="num">36</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.widgets::panel_group(</pre>
+                      <pre class="language-r">    updateRadioButtons(session, "constraint_var", choices = choices())</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">283</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">        teal.widgets::panel_item(</pre>
+                      <pre class="language-r">    # hide when only one option "NONE"</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">284</td>
+                    <td class="num">38</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          title = "Plot Aesthetic Settings",</pre>
+                      <pre class="language-r">    if (length(choices()) == 1) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">285</td>
+                    <td class="num">39</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          toggle_slider_ui(</pre>
+                      <pre class="language-r">      shinyjs::hide("constraint_var_whole")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">286</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">            ns("yrange_scale"),</pre>
+                      <pre class="language-r">    } else {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">287</td>
+                    <td class="num">41</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            label = "Y-Axis Range Zoom",</pre>
+                      <pre class="language-r">      shinyjs::show("constraint_var_whole")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">288</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">            min = -1000000,</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">43</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            max = 1000000,</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">44</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            value = c(-1000000, 1000000)</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">291</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">292</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">          numericInput(ns("facet_ncol"), "Number of Plots Per Row:", a$facet_ncol, min = 1),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">293</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">          checkboxInput(ns("loq_legend"), "Display LoQ Legend", a$loq_legend),</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">48</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          checkboxInput(ns("rotate_xlab"), "Rotate X-axis Label", a$rotate_xlab)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">295</td>
+                    <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ),</pre>
+                      <pre class="language-r"># param_id: input id that contains values of PARAMCD to filter for</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">296</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">        teal.widgets::panel_item(</pre>
+                      <pre class="language-r"># param_var: currently only "PARAMCD" is supported</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">51</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">constr_anl_q &lt;- function(session, input, data, dataname, param_id, param_var, trt_group, min_rows) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">297</td>
+                    <td class="num">52</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          title = "Plot settings",</pre>
+                      <pre class="language-r">  checkmate::assert_class(data, "reactive")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">298</td>
+                    <td class="num">53</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          teal.widgets::optionalSliderInputValMinMax(ns("font_size"), "Font Size", a$font_size, ticks = FALSE),</pre>
+                      <pre class="language-r">  checkmate::assert_class(shiny::isolate(data()), "teal_data")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">299</td>
+                    <td class="num">54</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          teal.widgets::optionalSliderInputValMinMax(ns("dot_size"), "Dot Size", a$dot_size, ticks = FALSE),</pre>
+                      <pre class="language-r">  dataset_var &lt;- dataname</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">300</td>
+                    <td class="num">55</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          teal.widgets::optionalSliderInputValMinMax(ns("alpha"), "Dot Alpha", a$alpha, ticks = FALSE)</pre>
+                      <pre class="language-r">  if (!identical(param_var, "PARAMCD")) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">301</td>
+                    <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">    # why is there a variable param_id which is provided to this function and always equal to "param"?</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">57</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    stop("param_var must be 'PARAMCD'. Otherwise, we cannot currently guarantee the correctness of the code.")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">302</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="never">
-                    <td class="num">303</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">304</td>
+                    <td class="num">60</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    forms = tagList(</pre>
+                      <pre class="language-r">  anl_param &lt;- reactive({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">305</td>
+                    <td class="num">61</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">    param_var_value &lt;- input[[param_id]] # value to filter PARAMCD for</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">306</td>
+                    <td class="num">62</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">    validate(need(param_var_value, "Please select a biomarker"))</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">63</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    checkmate::assert_string(param_var_value)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">307</td>
+                    <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">308</td>
+                    <td class="num">65</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    pre_output = a$pre_output,</pre>
+                      <pre class="language-r">    ANL &lt;- data()[[dataname]] # nolint</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">309</td>
+                    <td class="num">66</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    post_output = a$post_output</pre>
+                      <pre class="language-r">    validate_has_data(ANL, min_rows)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">310</td>
+                    <td class="num">67</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">311</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">    validate_has_variable(ANL, param_var)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">312</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">    validate_has_variable(ANL, "AVISITCD")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">313</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">    validate_has_variable(ANL, "BASE")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">314</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">71</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">srv_g_boxplot &lt;- function(id,</pre>
+                      <pre class="language-r">    validate_has_variable(ANL, "BASE2")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">315</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">                          data,</pre>
+                      <pre class="language-r">    validate_has_variable(ANL, trt_group)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">316</td>
+                    <td class="num">73</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">317</td>
+                    <td class="num">74</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          filter_panel_api,</pre>
+                      <pre class="language-r">    # analysis</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">318</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">                          dataname,</pre>
+                      <pre class="language-r">    private_qenv &lt;- data() %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">319</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">                          param_var,</pre>
+                      <pre class="language-r">      teal.code::eval_code(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">320</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">                          trt_group,</pre>
+                      <pre class="language-r">        substitute(ANL &lt;- dataname, list(dataname = as.name(dataname))) # nolint</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">321</td>
+                    <td class="num">78</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          facet_var,</pre>
+                      <pre class="language-r">      ) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">322</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">                          color_manual,</pre>
+                      <pre class="language-r">      teal.code::eval_code(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">323</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">80</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          shape_manual,</pre>
+                      <pre class="language-r">        code = bquote({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">324</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">81</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          plot_height,</pre>
+                      <pre class="language-r">          ANL &lt;- .(as.name(dataset_var)) %&gt;% # nolint</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">325</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">                          plot_width,</pre>
+                      <pre class="language-r">            dplyr::filter(.(as.name(param_var)) == .(param_var_value))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">326</td>
+                    <td class="num">83</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          hline_vars_colors,</pre>
+                      <pre class="language-r">        })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">327</td>
+                    <td class="num">84</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          hline_vars_labels) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">328</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">      )</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">329</td>
+                    <td class="num">85</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">    validate_has_data(private_qenv[["ANL"]], min_rows)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">330</td>
+                    <td class="num">86</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(data, "reactive")</pre>
+                      <pre class="language-r">    list(ANL = ANL, qenv = private_qenv)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">331</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">  checkmate::assert_class(shiny::isolate(data()), "teal_data")</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">332</td>
+                    <td class="num">88</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">89</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">  observe({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">334</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">    # reused in all modules</pre>
+                      <pre class="language-r">    param_var_value &lt;- input[[param_id]]</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">335</td>
+                    <td class="num">91</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    anl_q_output &lt;- constr_anl_q(</pre>
+                      <pre class="language-r">    validate(need(param_var_value, "Please select a biomarker"))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">336</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">      session, input, data, dataname,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">337</td>
+                    <td class="num">93</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      param_id = "xaxis_param", param_var = param_var, trt_group = input$trt_group, min_rows = 2</pre>
+                      <pre class="language-r">    constraint_var &lt;- input[["constraint_var"]]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">338</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">    validate(need(constraint_var, "select a constraint variable"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">339</td>
+                    <td class="num">95</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">340</td>
+                    <td class="num">96</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    anl_q &lt;- anl_q_output()$value</pre>
+                      <pre class="language-r">    ANL &lt;- data()[[dataname]] # nolint</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">341</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"></pre>
+                      <pre class="language-r">    validate_has_data(ANL, min_rows)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">342</td>
+                    <td class="num">98</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # update sliders for axes taking constraints into account</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">343</td>
+                    <td class="num">99</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    yrange_slider &lt;- toggle_slider_server("yrange_scale")</pre>
+                      <pre class="language-r">    validate_has_variable(ANL, param_var)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">344</td>
+                    <td class="num">100</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    keep_range_slider_updated(</pre>
+                      <pre class="language-r">    validate_has_variable(ANL, "AVISITCD")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">345</td>
+                    <td class="num">101</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      session,</pre>
+                      <pre class="language-r">    validate_has_variable(ANL, "BASE")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">346</td>
+                    <td class="num">102</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      input,</pre>
+                      <pre class="language-r">    validate_has_variable(ANL, "BASE2")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">347</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">      update_slider_fcn = yrange_slider$update_state,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">348</td>
+                    <td class="num">104</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      id_var = "yaxis_var",</pre>
+                      <pre class="language-r">    ANL &lt;- ANL %&gt;% dplyr::filter(!!sym(param_var) == param_var_value) # nolint</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">349</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">      id_param_var = "xaxis_param",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">350</td>
+                    <td class="num">106</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      reactive_ANL = anl_q</pre>
+                      <pre class="language-r">    visit_freq &lt;- unique(ANL$AVISITCD)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">351</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">108</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    # get min max values</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">352</td>
+                    <td class="num">109</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    keep_data_const_opts_updated(session, input, anl_q, "xaxis_param")</pre>
+                      <pre class="language-r">    if ((constraint_var == "BASE2" &amp;&amp; any(grepl("SCR", visit_freq))) ||</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">353</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">      (constraint_var == "BASE" &amp;&amp; any(grepl("BL", visit_freq)))) { # nolint</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">354</td>
+                    <td class="num">111</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    horizontal_line &lt;- srv_arbitrary_lines("hline_arb")</pre>
+                      <pre class="language-r">      val &lt;- stats::na.omit(switch(constraint_var,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">355</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"></pre>
+                      <pre class="language-r">        "BASE" = ANL$BASE[ANL$AVISITCD == "BL"],</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">356</td>
+                    <td class="num">113</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    trt_group &lt;- reactive({</pre>
+                      <pre class="language-r">        "BASE2" = ANL$BASE2[ANL$AVISITCD == "SCR"],</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">357</td>
+                    <td class="num">114</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      input$trt_group</pre>
+                      <pre class="language-r">        stop(paste(constraint_var, "not allowed"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">358</td>
+                    <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">359</td>
+                    <td class="num">116</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">360</td>
+                    <td class="num">117</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    iv_r &lt;- reactive({</pre>
+                      <pre class="language-r">      if (length(val) == 0 || all(is.na(val))) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">361</td>
+                    <td class="num">118</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("all_na")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">362</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">119</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        shinyjs::hide("constraint_range")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">363</td>
+                    <td class="num">120</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv$add_rule("xaxis_param", shinyvalidate::sv_required("Please select a biomarker"))</pre>
+                      <pre class="language-r">        args &lt;- list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">364</td>
+                    <td class="num">121</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv$add_rule("trt_group", shinyvalidate::sv_required("Please select a treatment variable"))</pre>
+                      <pre class="language-r">          min = list(label = "Min", min = 0, max = 0, value = 0),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">365</td>
+                    <td class="num">122</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv$add_rule("xaxis_var", shinyvalidate::sv_required("Please select an X-Axis variable"))</pre>
+                      <pre class="language-r">          max = list(label = "Max", min = 0, max = 0, value = 0)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">366</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">      iv$add_rule("xaxis_var", ~ if ((.) %in% c("ACTARM", "ARM") &amp;&amp; isTRUE((.) != trt_group())) {</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">367</td>
+                    <td class="num">124</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        sprintf("You can not choose %s as x-axis variable for treatment variable %s.", (.), trt_group())</pre>
+                      <pre class="language-r">        update_min_max(session, args)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">368</td>
+                    <td class="num">125</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">369</td>
+                    <td class="num">126</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv$add_rule("yaxis_var", shinyvalidate::sv_required("Please select a Y-Axis variable"))</pre>
+                      <pre class="language-r">        rng &lt;- range(val, na.rm = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">370</td>
+                    <td class="num">127</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">371</td>
+                    <td class="num">128</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv$add_rule("facet_var", shinyvalidate::sv_optional())</pre>
+                      <pre class="language-r">        minmax &lt;- c(floor(rng[1] * 1000) / 1000, ceiling(rng[2] * 1000) / 1000)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">372</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">      iv$add_rule("facet_var", ~ if ((.) %in% c("ACTARM", "ARM") &amp;&amp; isTRUE((.) != trt_group())) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">373</td>
+                    <td class="num">130</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        sprintf("You can not choose %s as faceting variable for treatment variable %s.", (.), trt_group())</pre>
+                      <pre class="language-r">        label_min &lt;- sprintf("Min (%s)", minmax[1])</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">374</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">      })</pre>
+                      <pre class="language-r">        label_max &lt;- sprintf("Max (%s)", minmax[2])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">375</td>
+                    <td class="num">132</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">376</td>
+                    <td class="num">133</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">        args &lt;- list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">377</td>
+                    <td class="num">134</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv_facet$condition(~ !is.null(input$facet_var))</pre>
+                      <pre class="language-r">          min = list(label = label_min, min = minmax[1], max = minmax[2], value = minmax[1]),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">378</td>
+                    <td class="num">135</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv_facet$add_rule("facet_ncol", plots_per_row_validate_rules(required = FALSE))</pre>
+                      <pre class="language-r">          max = list(label = label_max, min = minmax[1], max = minmax[2], value = minmax[2])</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">379</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">      iv$add_validator(iv_facet)</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">380</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">381</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      iv$add_validator(horizontal_line()$iv_r())</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">382</td>
+                    <td class="num">138</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv$add_validator(anl_q_output()$iv_r())</pre>
+                      <pre class="language-r">        update_min_max(session, args)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">383</td>
+                    <td class="num">139</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv$enable()</pre>
+                      <pre class="language-r">        shinyjs::show("constraint_range") # update before show</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">384</td>
+                    <td class="num">140</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv</pre>
+                      <pre class="language-r">        shinyjs::hide("all_na")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">385</td>
+                    <td class="num">141</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">386</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"></pre>
+                      <pre class="language-r">    } else if (constraint_var == "NONE") {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">387</td>
+                    <td class="num">143</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    create_plot &lt;- reactive({</pre>
+                      <pre class="language-r">      shinyjs::hide("constraint_range") # hide before update</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">388</td>
+                    <td class="num">144</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal::validate_inputs(iv_r())</pre>
+                      <pre class="language-r">      shinyjs::hide("all_na")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">389</td>
+                    <td class="num">145</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">390</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      req(anl_q())</pre>
-                    </td>
-                  </tr>
                   <tr class="never">
-                    <td class="num">391</td>
+                    <td class="num">146</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # nolint start</pre>
+                      <pre class="language-r">      # force update (and thus refresh) on different constraint_var -&gt; pass unique value for each constraint_var name</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">392</td>
+                    <td class="num">147</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      param &lt;- input$xaxis_param</pre>
+                      <pre class="language-r">      args &lt;- list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">393</td>
+                    <td class="num">148</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      yaxis &lt;- input$yaxis_var</pre>
+                      <pre class="language-r">        min = list(label = "Min", min = 0, max = 0, value = 0),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">394</td>
+                    <td class="num">149</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      xaxis &lt;- input$xaxis_var</pre>
+                      <pre class="language-r">        max = list(label = "Max", min = 0, max = 0, value = 0)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">395</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">      facet_var &lt;- `if`(is.null(input$facet_var), "None", input$facet_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">151</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ylim &lt;- yrange_slider$state()$value</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">397</td>
+                    <td class="num">152</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      facet_ncol &lt;- input$facet_ncol</pre>
+                      <pre class="language-r">      update_min_max(session, args)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">398</td>
+                    <td class="num">153</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">399</td>
+                    <td class="num">154</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      alpha &lt;- input$alpha</pre>
+                      <pre class="language-r">      validate(need(FALSE, "This is an invalid data contraint for the filtered data"))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">400</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">      font_size &lt;- input$font_size</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">156</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dot_size &lt;- input$dot_size</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">402</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">      loq_legend &lt;- input$loq_legend</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">403</td>
+                    <td class="num">158</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      rotate_xlab &lt;- input$rotate_xlab</pre>
+                      <pre class="language-r">  anl_constraint &lt;- create_anl_constraint_reactive(anl_param, input, param_id = param_id, min_rows = min_rows)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">404</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">405</td>
+                    <td class="num">160</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      hline_arb &lt;- horizontal_line()$line_arb</pre>
+                      <pre class="language-r">  return(anl_constraint)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">406</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">      hline_arb_label &lt;- horizontal_line()$line_arb_label</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">162</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      hline_arb_color &lt;- horizontal_line()$line_arb_color</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">408</td>
+                    <td class="num">163</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r"># returns a reactive that applies the `x-axis data constraint`</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">409</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">      hline_vars &lt;- input$hline_vars</pre>
+                      <pre class="language-r"># More precisely, all patients are filtered out that do not have the range of</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">410</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">      trt_group &lt;- input$trt_group</pre>
+                      <pre class="language-r"># `param_id.constraint_var` in the specified range</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">411</td>
+                    <td class="num">166</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # nolint end</pre>
+                      <pre class="language-r"># constraint var means that `param_id.constraint_var` is constrained to the filtered range (or NA),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">412</td>
+                    <td class="num">167</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r"># e.g. `ALT.BASE2` (i.e. `PARAMCD = ALT &amp; range_filter_on(BASE2)`)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">168</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">create_anl_constraint_reactive &lt;- function(anl_param, input, param_id, min_rows) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">413</td>
+                    <td class="num">169</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      validate_has_variable(</pre>
+                      <pre class="language-r">  iv_r &lt;- reactive({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">414</td>
+                    <td class="num">170</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        anl_q()$ANL,</pre>
+                      <pre class="language-r">    iv &lt;- shinyvalidate::InputValidator$new()</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">415</td>
+                    <td class="num">171</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        yaxis,</pre>
+                      <pre class="language-r">    iv$condition(~ isTRUE(input$constraint_var != "NONE"))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">416</td>
+                    <td class="num">172</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        sprintf("Variable %s is not available in data %s", yaxis, dataname)</pre>
+                      <pre class="language-r">    iv$add_rule("constraint_range_min", shinyvalidate::sv_required("A contraint minimum value is required"))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">417</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">173</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">    iv$add_rule("constraint_range_max", shinyvalidate::sv_required("A contraint maximum value is required"))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">418</td>
+                    <td class="num">174</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      validate_has_variable(</pre>
+                      <pre class="language-r">    iv$add_rule(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">419</td>
+                    <td class="num">175</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        anl_q()$ANL,</pre>
+                      <pre class="language-r">      "constraint_range_min",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">420</td>
+                    <td class="num">176</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        xaxis,</pre>
+                      <pre class="language-r">      ~ if (!is.na(input$constraint_range_max) &amp;&amp; (.) &gt; input$constraint_range_max) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">421</td>
+                    <td class="num">177</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        sprintf("Variable %s is not available in data %s", xaxis, dataname)</pre>
+                      <pre class="language-r">        "constraint min needs to be less than max"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">422</td>
+                    <td class="num">178</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">423</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">424</td>
+                    <td class="num">180</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (!facet_var == "None") {</pre>
+                      <pre class="language-r">    iv$add_rule(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">425</td>
+                    <td class="num">181</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        validate_has_variable(</pre>
+                      <pre class="language-r">      "constraint_range_max",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">426</td>
+                    <td class="num">182</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          anl_q()$ANL,</pre>
+                      <pre class="language-r">      ~ if (!is.na(input$constraint_range_min) &amp;&amp; (.) &lt; input$constraint_range_min) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">427</td>
+                    <td class="num">183</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          facet_var,</pre>
+                      <pre class="language-r">        "constraint min needs to be less than max"</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="never">
+                    <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">428</td>
+                    <td class="num">186</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          sprintf("Variable %s is not available in data %s", facet_var, dataname)</pre>
+                      <pre class="language-r">    iv</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">429</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">430</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">431</td>
+                    <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">432</td>
+                    <td class="num">190</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      anl_q()$qenv %&gt;% teal.code::eval_code(</pre>
+                      <pre class="language-r">  return_val &lt;- reactive({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">433</td>
+                    <td class="num">191</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        code = bquote({</pre>
+                      <pre class="language-r">    private_qenv &lt;- anl_param()$qenv</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">434</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">          p &lt;- goshawk::g_boxplot(</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">193</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            data = ANL,</pre>
+                      <pre class="language-r">    # it is assumed that constraint_var is triggering constraint_range which then trigger this clause</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">436</td>
+                    <td class="num">194</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            biomarker = .(param),</pre>
+                      <pre class="language-r">    constraint_var &lt;- isolate(input[["constraint_var"]])</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">437</td>
+                    <td class="num">195</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            xaxis_var = .(xaxis),</pre>
+                      <pre class="language-r">    constraint_range_min &lt;- input[["constraint_range_min"]]</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">438</td>
+                    <td class="num">196</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            yaxis_var = .(yaxis),</pre>
+                      <pre class="language-r">    constraint_range_max &lt;- input[["constraint_range_max"]]</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">439</td>
+                    <td class="num">197</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            hline_arb = .(hline_arb),</pre>
+                      <pre class="language-r">    param &lt;- input[[param_id]]</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">440</td>
+                    <td class="num">198</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            hline_arb_label = .(hline_arb_label),</pre>
+                      <pre class="language-r">    req(param)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">441</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">            hline_arb_color = .(hline_arb_color),</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">200</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            hline_vars = .(hline_vars),</pre>
+                      <pre class="language-r">    # filter constraint</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">443</td>
+                    <td class="num">201</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            hline_vars_colors = .(hline_vars_colors[seq_along(hline_vars)]),</pre>
+                      <pre class="language-r">    if (constraint_var != "NONE") {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">444</td>
+                    <td class="num">202</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            hline_vars_labels = .(hline_vars_labels[seq_along(hline_vars)]),</pre>
+                      <pre class="language-r">      private_qenv &lt;- teal.code::eval_code(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">445</td>
+                    <td class="num">203</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            facet_ncol = .(facet_ncol),</pre>
+                      <pre class="language-r">        object = private_qenv,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">446</td>
+                    <td class="num">204</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            loq_legend = .(loq_legend),</pre>
+                      <pre class="language-r">        code = bquote({</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">447</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">205</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            rotate_xlab = .(rotate_xlab),</pre>
+                      <pre class="language-r">          # the below includes patients who have at least one non-NA BASE value</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">448</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">            trt_group = .(trt_group),</pre>
+                      <pre class="language-r">          # ideally, a patient should either have all NA values or none at all</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">449</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">207</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ylim = .(ylim),</pre>
+                      <pre class="language-r">          # this could be achieved through preprocessing; otherwise, this is easily overseen</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">450</td>
+                    <td class="num">208</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            color_manual = .(color_manual),</pre>
+                      <pre class="language-r">          filtered_usubjids &lt;- ANL %&gt;% # nolint</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">451</td>
+                    <td class="num">209</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            shape_manual = .(shape_manual),</pre>
+                      <pre class="language-r">            dplyr::filter(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">452</td>
+                    <td class="num">210</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            facet_var = .(facet_var),</pre>
+                      <pre class="language-r">              PARAMCD == .(param),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">453</td>
+                    <td class="num">211</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            alpha = .(alpha),</pre>
+                      <pre class="language-r">              (.(constraint_range_min) &lt;= .data[[.(constraint_var)]]) &amp;</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">454</td>
+                    <td class="num">212</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            dot_size = .(dot_size),</pre>
+                      <pre class="language-r">                (.data[[.(constraint_var)]] &lt;= .(constraint_range_max))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">455</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">            font_size = .(font_size),</pre>
+                      <pre class="language-r">            ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">456</td>
+                    <td class="num">214</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            unit = .("AVALU")</pre>
+                      <pre class="language-r">            dplyr::pull(USUBJID)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">457</td>
+                    <td class="num">215</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">          # include patients with all NA values for constraint_var</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">458</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">          filtered_usubjids &lt;- c(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">459</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">            filtered_usubjids,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">460</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">            ANL %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">461</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">              dplyr::filter(PARAMCD == .(param)) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">462</td>
+                    <td class="num">220</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    create_table &lt;- reactive({</pre>
+                      <pre class="language-r">              dplyr::group_by(USUBJID) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">463</td>
+                    <td class="num">221</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      req(iv_r()$is_valid())</pre>
+                      <pre class="language-r">              dplyr::summarize(all_na = all(is.na(.data[[.(constraint_var)]]))) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">464</td>
+                    <td class="num">222</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      req(anl_q())</pre>
+                      <pre class="language-r">              dplyr::filter(all_na) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">465</td>
+                    <td class="num">223</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      param &lt;- input$xaxis_param</pre>
+                      <pre class="language-r">              dplyr::pull(USUBJID)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">466</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">      xaxis_var &lt;- input$yaxis_var # nolint</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">467</td>
+                    <td class="num">225</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">          ANL &lt;- ANL %&gt;% dplyr::filter(USUBJID %in% filtered_usubjids) # nolint</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">468</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">226</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      trt_group &lt;- input$trt_group</pre>
+                      <pre class="language-r">        })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">469</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="missed">
-                    <td class="num">470</td>
+                    <td class="num">228</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      anl_q()$qenv %&gt;% teal.code::eval_code(</pre>
+                      <pre class="language-r">      validate_has_data(private_qenv[["ANL"]], min_rows)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">471</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">        code = bquote({</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">472</td>
+                    <td class="num">230</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          tbl &lt;- goshawk::t_summarytable(</pre>
+                      <pre class="language-r">    list(ANL = private_qenv[["ANL"]], qenv = private_qenv)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">473</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">            data = ANL,</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">474</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">            trt_group = .(trt_group),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">475</td>
+                    <td class="num">233</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            param_var = .(param_var),</pre>
+                      <pre class="language-r">  reactive(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">476</td>
+                    <td class="num">234</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            param = .(param),</pre>
+                      <pre class="language-r">    list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">477</td>
+                    <td class="num">235</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            xaxis_var = .(xaxis_var),</pre>
+                      <pre class="language-r">      value = return_val,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">478</td>
+                    <td class="num">236</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            facet_var = .(input$facet_var)</pre>
+                      <pre class="language-r">      iv_r = iv_r</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">479</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">480</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">481</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">482</td>
+                    <td class="num">240</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">483</td>
+                    <td class="num">241</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r"># for outputting the constraint in the report</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">484</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">242</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    plot_r &lt;- reactive({</pre>
+                      <pre class="language-r">formatted_data_constraint &lt;- function(constraint_var, constraint_range_min, constraint_range_max) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">485</td>
+                    <td class="num">243</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      create_plot()[["p"]]</pre>
+                      <pre class="language-r">  constraint_var_label &lt;- switch(constraint_var,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">486</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">    "BASE2" = "Screening",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">487</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">    "BASE" = "Baseline",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">488</td>
+                    <td class="num">246</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    boxplot_data &lt;- teal.widgets::plot_with_settings_srv(</pre>
+                      <pre class="language-r">    "None"</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">489</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">247</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      id = "boxplot",</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">490</td>
+                    <td class="num">248</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      plot_r = plot_r,</pre>
+                      <pre class="language-r">  msg &lt;- paste("Data Constraint:", constraint_var_label)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">491</td>
+                    <td class="num">249</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      height = plot_height,</pre>
+                      <pre class="language-r">  if (constraint_var_label != "None") {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">492</td>
+                    <td class="num">250</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      width = plot_width,</pre>
+                      <pre class="language-r">    msg &lt;- paste(msg, "from", constraint_range_min, "to", constraint_range_max)</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="missed">
-                    <td class="num">493</td>
+                    <td class="num">252</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      brushing = TRUE</pre>
+                      <pre class="language-r">  msg</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">494</td>
+                    <td class="num">253</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">495</td>
+                    <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">496</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">255</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">update_min_max &lt;- function(session, args) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">497</td>
+                    <td class="num">256</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      req(create_table())</pre>
+                      <pre class="language-r">  do.call("updateNumericInput", c(list(session = session, inputId = "constraint_range_min"), args$min))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">498</td>
+                    <td class="num">257</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      tbl &lt;- create_table()[["tbl"]]</pre>
+                      <pre class="language-r">  do.call("updateNumericInput", c(list(session = session, inputId = "constraint_range_max"), args$max))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">499</td>
+                    <td class="num">258</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">500</td>
-                    <td class="coverage">!</td>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/tm_g_gh_lineplot.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">      numeric_cols &lt;- setdiff(names(dplyr::select_if(tbl, is.numeric)), "n")</pre>
+                      <pre class="language-r">#' Line plot</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">501</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">502</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">      DT::datatable(tbl, rownames = FALSE, options = list(scrollX = TRUE)) %&gt;%</pre>
+                      <pre class="language-r">#' This teal module renders the UI and calls the function that creates a line plot.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">503</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">        DT::formatRound(numeric_cols, 4)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">504</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 teal.widgets::standard_layout</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">505</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 label menu item label of the module in the teal app.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">506</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ### REPORTER</pre>
+                      <pre class="language-r">#' @param dataname analysis data passed to the data argument of \code{\link[teal]{init}}. E.g. `ADaM` structured</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">507</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 (with_reporter) {</pre>
+                      <pre class="language-r">#' laboratory data frame `ADLB`.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">508</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">      card_fun &lt;- function(comment, label) {</pre>
+                      <pre class="language-r">#' @param param_var name of variable containing biomarker codes e.g. `PARAMCD`.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">509</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">        constraint_description &lt;- paste(</pre>
+                      <pre class="language-r">#' @param param biomarker selected.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">510</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">          "\nFacet By:",</pre>
+                      <pre class="language-r">#' @param param_var_label single name of variable in analysis data that includes parameter labels.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">511</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">          if (length(input$facet_var) != 0) input$facet_var else "None",</pre>
+                      <pre class="language-r">#' @param xaxis_var single name of variable in analysis data that is used as x-axis in the plot for the</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">512</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">          "\nSelect an X-axis Variable:",</pre>
+                      <pre class="language-r">#' respective `goshawk` function.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">513</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">          input$xaxis_var</pre>
+                      <pre class="language-r">#' @param xvar_level vector that can be used to define the factor level of `xvar`. Only use it when</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">514</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#' `xvar` is character or factor.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">515</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">        card &lt;- report_card_template_goshawk(</pre>
+                      <pre class="language-r">#' @param filter_var data constraint variable.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">516</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">          title = "Box Plot",</pre>
+                      <pre class="language-r">#' @param filter_var_choices data constraint variable choices.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">517</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">          label = label,</pre>
+                      <pre class="language-r">#' @param yaxis_var single name of variable in analysis data that is used as summary variable in the</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">518</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 = with_filter,</pre>
+                      <pre class="language-r">#' respective `goshawk` function.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">519</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">          filter_panel_api = filter_panel_api,</pre>
+                      <pre class="language-r">#' @param trt_group \code{\link[teal.transform]{choices_selected}} object with available choices and pre-selected option</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">520</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">          constraint_list = list(</pre>
+                      <pre class="language-r">#' for variable names representing treatment group e.g. `ARM`.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">521</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">            constraint_var = input$constraint_var,</pre>
+                      <pre class="language-r">#' @param trt_group_level vector that can be used to define factor level of `trt_group`.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">522</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">            constraint_range_min = input$constraint_range_min,</pre>
+                      <pre class="language-r">#' @param shape_choices Vector or \code{choices_selected} object with names of `ADSL` variables which</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">523</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">            constraint_range_max = input$constraint_range_max</pre>
+                      <pre class="language-r">#' can be used to change shape</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">524</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 color_manual string vector representing customized colors</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">525</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">          constraint_description = constraint_description,</pre>
+                      <pre class="language-r">#' @param stat string of statistics</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">526</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">          style = "verbatim"</pre>
+                      <pre class="language-r">#' @param hline_arb numeric vector of at most 2 values identifying intercepts for arbitrary horizontal lines.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">527</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#' @param hline_arb_color a character vector of at most length of \code{hline_arb}.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">528</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">        card$append_text("Plot", "header3")</pre>
+                      <pre class="language-r">#' naming the color for the arbitrary horizontal lines.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">529</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">        card$append_plot(plot_r(), dim = boxplot_data$dim())</pre>
+                      <pre class="language-r">#' @param hline_arb_label a character vector of at most length of \code{hline_arb}.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">530</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 (!comment == "") {</pre>
+                      <pre class="language-r">#' naming the label for the arbitrary horizontal lines.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">531</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">          card$append_text("Comment", "header3")</pre>
+                      <pre class="language-r">#' @param xtick numeric vector to define the tick values of x-axis when x variable is numeric.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">532</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">          card$append_text(comment)</pre>
+                      <pre class="language-r">#' Default value is waive().</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">533</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">#' @param xlabel vector with same length of `xtick` to define the label of x-axis tick values.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">534</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">        card$append_src(</pre>
+                      <pre class="language-r">#' Default value is waive().</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">535</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">          teal.code::get_code(</pre>
+                      <pre class="language-r">#' @param rotate_xlab `logical(1)` value indicating whether to rotate `x-axis` labels.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">536</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">            teal.code::join(create_plot(), create_table())</pre>
+                      <pre class="language-r">#' @param plot_height controls plot height.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">537</td>
+                    <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">#' @param plot_width optional, controls plot width.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">538</td>
+                    <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#' @param plot_font_size control font size for title, `x-axis`, `y-axis` and legend font.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">539</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">        card</pre>
+                      <pre class="language-r">#' @param dodge controls the position dodge of error bar</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">540</td>
+                    <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#' @param count_threshold minimum count of observations (as listed in the output table) to plot</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">541</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">      teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun)</pre>
+                      <pre class="language-r">#' nodes on the graph</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">542</td>
+                    <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#' @param table_font_size controls the font size of values in the table</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">543</td>
+                    <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ###</pre>
+                      <pre class="language-r">#' @param plot_relative_height_value numeric value between 500 and 5000 for controlling the starting value</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">544</td>
+                    <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' of the relative plot height slider</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">545</td>
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # highlight plot area</pre>
+                      <pre class="language-r">#' @author Wenyi Liu (luiw2) wenyi.liu@roche.com</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">546</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">    output$brush_data &lt;- DT::renderDataTable({</pre>
+                      <pre class="language-r">#' @author Balazs Toth (tothb2) toth.balazs@gene.com</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">547</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">      boxplot_brush &lt;- boxplot_data$brush()</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">548</td>
+                    <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @return \code{shiny} object</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">549</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">      ANL &lt;- isolate(anl_q()$ANL) %&gt;% droplevels() # nolint</pre>
+                      <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">51</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      validate_has_data(ANL, 2)</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">551</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">552</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">      xvar &lt;- isolate(input$xaxis_var)</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">553</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">      yvar &lt;- isolate(input$yaxis_var)</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">55</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      facetv &lt;- isolate(input$facet_var)</pre>
+                      <pre class="language-r">#' # Example using ADaM structure analysis dataset.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">555</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">      trt_group &lt;- isolate(input$trt_group)</pre>
+                      <pre class="language-r">#' data &lt;- teal_data()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">556</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;- within(data, {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">557</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">      req(all(c(xvar, yvar, facetv, trt_group) %in% names(ANL)))</pre>
+                      <pre class="language-r">#'   library(dplyr)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">558</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(stringr)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">559</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">      df &lt;- teal.widgets::clean_brushedPoints(</pre>
+                      <pre class="language-r">#'   library(nestcolor)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">560</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">        dplyr::select(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">561</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">          ANL, "USUBJID", dplyr::all_of(c(trt_group, facetv)),</pre>
+                      <pre class="language-r">#'   # original ARM value = dose value</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">562</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">          "AVISITCD", "PARAMCD", dplyr::all_of(c(xvar, yvar)), "LOQFL"</pre>
+                      <pre class="language-r">#'   arm_mapping &lt;- list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">563</td>
+                    <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ),</pre>
+                      <pre class="language-r">#'     "A: Drug X" = "150mg QD",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">564</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">        boxplot_brush</pre>
+                      <pre class="language-r">#'     "B: Placebo" = "Placebo",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">565</td>
+                    <td class="num">66</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#'     "C: Combination" = "Combination"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">566</td>
+                    <td class="num">67</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">567</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">      numeric_cols &lt;- names(dplyr::select_if(df, is.numeric))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">568</td>
+                    <td class="num">69</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   ADSL &lt;- goshawk::rADSL</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">569</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">      DT::datatable(df, rownames = FALSE, options = list(scrollX = TRUE)) %&gt;%</pre>
+                      <pre class="language-r">#'   ADLB &lt;- goshawk::rADLB</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">570</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">        DT::formatRound(numeric_cols, 4)</pre>
+                      <pre class="language-r">#'   var_labels &lt;- lapply(ADLB, function(x) attributes(x)$label)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">571</td>
+                    <td class="num">72</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">#'   ADLB &lt;- ADLB %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">572</td>
+                    <td class="num">73</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">573</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">    joined_qenvs &lt;- reactive({</pre>
+                      <pre class="language-r">#'       AVISITCD = dplyr::case_when(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">574</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">      req(create_plot(), create_table())</pre>
+                      <pre class="language-r">#'         AVISIT == "SCREENING" ~ "SCR",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">575</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">      teal.code::join(create_plot(), create_table())</pre>
+                      <pre class="language-r">#'         AVISIT == "BASELINE" ~ "BL",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">576</td>
+                    <td class="num">77</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">#'         grepl("WEEK", AVISIT) ~ paste("W", stringr::str_extract(AVISIT, "(?&lt;=(WEEK ))[0-9]+")),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">577</td>
+                    <td class="num">78</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'         TRUE ~ as.character(NA)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">578</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.widgets::verbatim_popup_srv(</pre>
+                      <pre class="language-r">#'       ),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">579</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 = "warning",</pre>
+                      <pre class="language-r">#'       AVISITCDN = dplyr::case_when(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">580</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">      verbatim_content = reactive(teal.code::get_warnings(joined_qenvs())),</pre>
+                      <pre class="language-r">#'         AVISITCD == "SCR" ~ -2,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">581</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">      title = "Warning",</pre>
+                      <pre class="language-r">#'         AVISITCD == "BL" ~ 0,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">582</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">      disabled = reactive(is.null(teal.code::get_warnings(joined_qenvs())))</pre>
+                      <pre class="language-r">#'         grepl("W", AVISITCD) ~ as.numeric(gsub("[^0-9]*", "", AVISITCD)),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">583</td>
+                    <td class="num">84</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#'         TRUE ~ as.numeric(NA)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">584</td>
+                    <td class="num">85</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'       ),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">585</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::verbatim_popup_srv(</pre>
+                      <pre class="language-r">#'       AVISITCD = factor(AVISITCD) %&gt;% reorder(AVISITCDN),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">586</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">      id = "rcode",</pre>
+                      <pre class="language-r">#'       TRTORD = dplyr::case_when(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">587</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">      verbatim_content = reactive(teal.code::get_code(joined_qenvs())),</pre>
+                      <pre class="language-r">#'         ARMCD == "ARM C" ~ 1,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">588</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">      title = "Show R Code for Boxplot"</pre>
+                      <pre class="language-r">#'         ARMCD == "ARM B" ~ 2,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">589</td>
+                    <td class="num">90</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#'         ARMCD == "ARM A" ~ 3</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">590</td>
+                    <td class="num">91</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
+                      <pre class="language-r">#'       ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">591</td>
+                    <td class="num">92</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'       ARM = as.character(arm_mapping[match(ARM, names(arm_mapping))]),</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/tm_g_gh_correlationplot.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">93</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Scatter Plot Teal Module For Biomarker Analysis</pre>
+                      <pre class="language-r">#'       ARM = factor(ARM) %&gt;% reorder(TRTORD),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">94</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'       ACTARM = as.character(arm_mapping[match(ACTARM, names(arm_mapping))]),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">95</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description Scatter Plot Teal Module For Biomarker Analysis</pre>
+                      <pre class="language-r">#'       ACTARM = factor(ACTARM) %&gt;% reorder(TRTORD)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">96</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams teal.widgets::standard_layout</pre>
+                      <pre class="language-r">#'   attr(ADLB[["ARM"]], "label") &lt;- var_labels[["ARM"]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">98</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param label menu item label of the module in the teal app.</pre>
+                      <pre class="language-r">#'   attr(ADLB[["ACTARM"]], "label") &lt;- var_labels[["ACTARM"]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">99</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param dataname analysis data passed to the data argument of \code{\link[teal]{init}}. E.g. `ADaM` structured</pre>
+                      <pre class="language-r">#' })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">100</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' laboratory data frame \code{ADLB}.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">101</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param param_var name of variable containing biomarker codes e.g. \code{PARAMCD}.</pre>
+                      <pre class="language-r">#' datanames &lt;- c("ADSL", "ADLB")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">102</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param xaxis_param biomarker selected for `x-axis`.</pre>
+                      <pre class="language-r">#' datanames(data) &lt;- datanames</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">103</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param yaxis_param biomarker selected for `y-axis`.</pre>
+                      <pre class="language-r">#' join_keys(data) &lt;- default_cdisc_join_keys[datanames]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">104</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param xaxis_var name of variable containing biomarker results displayed on x-axis e.g. \code{BASE}.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">105</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param yaxis_var name of variable containing biomarker results displayed on y-axis e.g. \code{AVAL}.</pre>
+                      <pre class="language-r">#' app &lt;- teal::init(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">106</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param trt_group \code{\link[teal.transform]{choices_selected}} object with available choices and pre-selected option</pre>
+                      <pre class="language-r">#'   data = data,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">107</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' for variable names representing treatment group e.g. `ARM`.</pre>
+                      <pre class="language-r">#'   modules = teal::modules(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">108</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param color_manual vector of colors applied to treatment values.</pre>
+                      <pre class="language-r">#'     teal.goshawk::tm_g_gh_lineplot(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">109</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param shape_manual vector of symbols applied to `LOQ` values.</pre>
+                      <pre class="language-r">#'       label = "Line Plot",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">110</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param facet_ncol numeric value indicating number of facets per row.</pre>
+                      <pre class="language-r">#'       dataname = "ADLB",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">111</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param trt_facet facet by treatment group \code{trt_group}.</pre>
+                      <pre class="language-r">#'       param_var = "PARAMCD",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">112</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param visit_facet visit facet toggle.</pre>
+                      <pre class="language-r">#'       param = choices_selected(c("ALT", "CRP", "IGA"), "ALT"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">113</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param reg_line include regression line and annotations for slope and coefficient in visualization. Use with facet</pre>
+                      <pre class="language-r">#'       shape_choices = c("SEX", "RACE"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">114</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   TRUE.</pre>
+                      <pre class="language-r">#'       xaxis_var = choices_selected("AVISITCD", "AVISITCD"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">23</td>
+                    <td class="num">115</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param loq_legend `loq` legend toggle.</pre>
+                      <pre class="language-r">#'       yaxis_var = choices_selected(c("AVAL", "BASE", "CHG", "PCHG"), "AVAL"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">116</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param rotate_xlab 45 degree rotation of `x-axis` values.</pre>
+                      <pre class="language-r">#'       trt_group = choices_selected(c("ARM", "ACTARM"), "ARM"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">117</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param hline_arb numeric vector of at most 2 values identifying intercepts for arbitrary horizontal lines.</pre>
+                      <pre class="language-r">#'       hline_arb = c(20.5, 19.5),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">118</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param hline_arb_color a character vector of at most length of \code{hline_arb}.</pre>
+                      <pre class="language-r">#'       hline_arb_color = c("red", "green"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">119</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' naming the color for the arbitrary horizontal lines.</pre>
+                      <pre class="language-r">#'       hline_arb_label = c("A", "B")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">28</td>
+                    <td class="num">120</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param hline_arb_label a character vector of at most length of \code{hline_arb}.</pre>
+                      <pre class="language-r">#'     )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">29</td>
+                    <td class="num">121</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' naming the label for the arbitrary horizontal lines.</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">122</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param hline_vars a character vector to name the columns that will define additional horizontal lines.</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
+                    <td class="num">123</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param hline_vars_colors a character vector naming the colors for the additional horizontal lines.</pre>
+                      <pre class="language-r">#' if (interactive()) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">32</td>
+                    <td class="num">124</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param hline_vars_labels a character vector naming the labels for the additional horizontal lines that will appear</pre>
+                      <pre class="language-r">#'   shinyApp(app$ui, app$server)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">125</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param vline_arb numeric vector of at most 2 values identifying intercepts for arbitrary horizontal lines.</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">34</td>
+                    <td class="num">126</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param vline_arb_color a character vector of at most length of \code{vline_arb}.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</td>
+                    <td class="num">127</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' naming the color for the arbitrary horizontal lines.</pre>
+                      <pre class="language-r">tm_g_gh_lineplot &lt;- function(label,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">36</td>
+                    <td class="num">128</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param vline_arb_label a character vector of at most length of \code{vline_arb}.</pre>
+                      <pre class="language-r">                             dataname,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</td>
+                    <td class="num">129</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' naming the label for the arbitrary horizontal lines.</pre>
+                      <pre class="language-r">                             param_var,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">130</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param vline_vars a character vector to name the columns that will define additional vertical lines.</pre>
+                      <pre class="language-r">                             param,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">131</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param vline_vars_colors a character vector naming the colors for the additional vertical lines.</pre>
+                      <pre class="language-r">                             param_var_label = "PARAM",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">132</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param vline_vars_labels a character vector naming the labels for the additional vertical lines that will appear</pre>
+                      <pre class="language-r">                             xaxis_var,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">133</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param plot_height controls plot height.</pre>
+                      <pre class="language-r">                             yaxis_var,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">134</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param plot_width optional, controls plot width.</pre>
+                      <pre class="language-r">                             xvar_level = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <td class="num">135</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param font_size font size control for title, `x-axis` label, `y-axis` label and legend.</pre>
+                      <pre class="language-r">                             filter_var = yaxis_var,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">44</td>
+                    <td class="num">136</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param dot_size plot dot size.</pre>
+                      <pre class="language-r">                             filter_var_choices = filter_var,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">45</td>
+                    <td class="num">137</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param reg_text_size font size control for regression line annotations.</pre>
+                      <pre class="language-r">                             trt_group,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">46</td>
+                    <td class="num">138</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                             trt_group_level = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">47</td>
+                    <td class="num">139</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">                             shape_choices = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">48</td>
+                    <td class="num">140</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                             stat = "mean",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">49</td>
+                    <td class="num">141</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @author Nick Paszty (npaszty) paszty.nicholas@gene.com</pre>
+                      <pre class="language-r">                             hline_arb = numeric(0),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">50</td>
+                    <td class="num">142</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @author Balazs Toth (tothb2)  toth.balazs@gene.com</pre>
+                      <pre class="language-r">                             hline_arb_color = "red",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">51</td>
+                    <td class="num">143</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                             hline_arb_label = "Horizontal line",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">52</td>
+                    <td class="num">144</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">                             color_manual = c(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">53</td>
+                    <td class="num">145</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                               getOption("ggplot2.discrete.colour"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">54</td>
+                    <td class="num">146</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Example using ADaM structure analysis dataset.</pre>
+                      <pre class="language-r">                               c("#ff0000", "#008000", "#4ca3dd", "#8a2be2")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">55</td>
+                    <td class="num">147</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' data &lt;- teal_data()</pre>
+                      <pre class="language-r">                             )[1:4],</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">56</td>
+                    <td class="num">148</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' data &lt;- within(data, {</pre>
+                      <pre class="language-r">                             xtick = ggplot2::waiver(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">57</td>
+                    <td class="num">149</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   # original ARM value = dose value</pre>
+                      <pre class="language-r">                             xlabel = xtick,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">58</td>
+                    <td class="num">150</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   arm_mapping &lt;- list(</pre>
+                      <pre class="language-r">                             rotate_xlab = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">59</td>
+                    <td class="num">151</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     "A: Drug X" = "150mg QD",</pre>
+                      <pre class="language-r">                             plot_height = c(600, 200, 4000),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">60</td>
+                    <td class="num">152</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     "B: Placebo" = "Placebo",</pre>
+                      <pre class="language-r">                             plot_width = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">61</td>
+                    <td class="num">153</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     "C: Combination" = "Combination"</pre>
+                      <pre class="language-r">                             plot_font_size = c(12, 8, 20),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">62</td>
+                    <td class="num">154</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">                             dodge = c(0.4, 0, 1),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">63</td>
+                    <td class="num">155</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   color_manual &lt;- c("150mg QD" = "#000000", "Placebo" = "#3498DB", "Combination" = "#E74C3C")</pre>
+                      <pre class="language-r">                             pre_output = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">64</td>
+                    <td class="num">156</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   # assign LOQ flag symbols: circles for "N" and triangles for "Y", squares for "NA"</pre>
+                      <pre class="language-r">                             post_output = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">65</td>
+                    <td class="num">157</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   shape_manual &lt;- c("N" = 1, "Y" = 2, "NA" = 0)</pre>
+                      <pre class="language-r">                             count_threshold = 0,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">66</td>
+                    <td class="num">158</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                             table_font_size = c(12, 4, 20),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">67</td>
+                    <td class="num">159</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   set.seed(1)</pre>
+                      <pre class="language-r">                             plot_relative_height_value = 1000) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">68</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">#'   ADSL &lt;- goshawk::rADSL</pre>
+                      <pre class="language-r">  logger::log_info("Initializing tm_g_gh_lineplot")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">69</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">#'   ADLB &lt;- goshawk::rADLB</pre>
+                      <pre class="language-r">  checkmate::assert_class(param, "choices_selected")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">70</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">#'   var_labels &lt;- lapply(ADLB, function(x) attributes(x)$label)</pre>
+                      <pre class="language-r">  checkmate::assert_class(xaxis_var, "choices_selected")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">71</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">#'   ADLB &lt;- ADLB %&gt;%</pre>
+                      <pre class="language-r">  checkmate::assert_class(yaxis_var, "choices_selected")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">72</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">#'     dplyr::mutate(AVISITCD = dplyr::case_when(</pre>
+                      <pre class="language-r">  checkmate::assert_class(trt_group, "choices_selected")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">73</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">#'       AVISIT == "SCREENING" ~ "SCR",</pre>
+                      <pre class="language-r">  checkmate::assert_flag(rotate_xlab)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">74</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">#'       AVISIT == "BASELINE" ~ "BL",</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">75</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">#'       grepl("WEEK", AVISIT) ~</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">76</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">#'         paste(</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">77</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">#'           "W",</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">78</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">#'           trimws(</pre>
+                      <pre class="language-r">    plot_width[1],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">79</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">#'             substr(</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">80</td>
+                    <td class="num">172</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'               AVISIT,</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">173</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'               start = 6,</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(table_font_size, len = 3, any.missing = FALSE, null.ok = TRUE, finite = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">82</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">#'               stop = stringr::str_locate(AVISIT, "DAY") - 1</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">83</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">175</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'             )</pre>
+                      <pre class="language-r">    table_font_size[1],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">84</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 = table_font_size[2], upper = table_font_size[3],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">85</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">    null.ok = TRUE, .var.name = "table_font_size"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">86</td>
+                    <td class="num">178</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       TRUE ~ NA_character_</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">87</td>
+                    <td class="num">179</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">88</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">#'     dplyr::mutate(AVISITCDN = dplyr::case_when(</pre>
+                      <pre class="language-r">  checkmate::assert_number(plot_relative_height_value, lower = 500, upper = 5000)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">89</td>
+                    <td class="num">181</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       AVISITCD == "SCR" ~ -2,</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">182</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       AVISITCD == "BL" ~ 0,</pre>
+                      <pre class="language-r">  checkmate::assert_number(count_threshold)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">91</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">#'       grepl("W", AVISITCD) ~ as.numeric(gsub("[^0-9]*", "", AVISITCD)),</pre>
+                      <pre class="language-r">  validate_line_arb_arg(hline_arb, hline_arb_color, hline_arb_label)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">92</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">#'       TRUE ~ NA_real_</pre>
+                      <pre class="language-r">  args &lt;- as.list(environment())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">93</td>
+                    <td class="num">185</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">94</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">#'     # use ARMCD values to order treatment in visualization legend</pre>
+                      <pre class="language-r">  module(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">95</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">#'     dplyr::mutate(TRTORD = ifelse(grepl("C", ARMCD), 1,</pre>
+                      <pre class="language-r">    label = label,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">96</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">#'       ifelse(grepl("B", ARMCD), 2,</pre>
+                      <pre class="language-r">    server = srv_lineplot,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">97</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">#'         ifelse(grepl("A", ARMCD), 3, NA)</pre>
+                      <pre class="language-r">    server_args = list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">98</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">      dataname = dataname,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">99</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">#'     )) %&gt;%</pre>
+                      <pre class="language-r">      param_var = param_var,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">100</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">#'     dplyr::mutate(ARM = as.character(arm_mapping[match(ARM, names(arm_mapping))])) %&gt;%</pre>
+                      <pre class="language-r">      trt_group = trt_group,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">101</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">#'     dplyr::mutate(ARM = factor(ARM) %&gt;%</pre>
+                      <pre class="language-r">      color_manual = color_manual,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">102</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">#'       reorder(TRTORD)) %&gt;%</pre>
+                      <pre class="language-r">      xvar_level = xvar_level,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">103</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">#'     dplyr::mutate(</pre>
+                      <pre class="language-r">      trt_group_level = trt_group_level,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">104</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">#'       ANRHI = dplyr::case_when(</pre>
+                      <pre class="language-r">      shape_choices = shape_choices,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">105</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">#'         PARAMCD == "ALT" ~ 60,</pre>
+                      <pre class="language-r">      param_var_label = param_var_label,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">106</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">#'         PARAMCD == "CRP" ~ 70,</pre>
+                      <pre class="language-r">      xtick = xtick,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">107</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">#'         PARAMCD == "IGA" ~ 80,</pre>
+                      <pre class="language-r">      xlabel = xlabel,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">108</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">#'         TRUE ~ NA_real_</pre>
+                      <pre class="language-r">      plot_height = plot_height,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">109</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">#'       ),</pre>
+                      <pre class="language-r">      plot_width = plot_width</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">110</td>
+                    <td class="num">202</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       ANRLO = dplyr::case_when(</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">203</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         PARAMCD == "ALT" ~ 20,</pre>
+                      <pre class="language-r">    ui = ui_lineplot,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">112</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">#'         PARAMCD == "CRP" ~ 30,</pre>
+                      <pre class="language-r">    ui_args = args,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">113</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">#'         PARAMCD == "IGA" ~ 40,</pre>
+                      <pre class="language-r">    datanames = dataname</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">114</td>
+                    <td class="num">206</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         TRUE ~ NA_real_</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">115</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="never">
-                    <td class="num">116</td>
+                    <td class="num">208</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">117</td>
+                    <td class="num">209</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     dplyr::rowwise() %&gt;%</pre>
+                      <pre class="language-r">ui_lineplot &lt;- function(id, ...) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">118</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">#'     dplyr::group_by(PARAMCD) %&gt;%</pre>
+                      <pre class="language-r">  ns &lt;- NS(id)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">119</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">#'     dplyr::mutate(LBSTRESC = ifelse(</pre>
+                      <pre class="language-r">  a &lt;- list(...)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">120</td>
+                    <td class="num">212</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       USUBJID %in% sample(USUBJID, 1, replace = TRUE),</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">213</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       paste("&lt;", round(runif(1, min = 25, max = 30))), LBSTRESC</pre>
+                      <pre class="language-r">  shiny::tagList(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">122</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">#'     )) %&gt;%</pre>
+                      <pre class="language-r">    include_css_files("custom"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">123</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">#'     dplyr::mutate(LBSTRESC = ifelse(</pre>
+                      <pre class="language-r">    teal.widgets::standard_layout(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">124</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">#'       USUBJID %in% sample(USUBJID, 1, replace = TRUE),</pre>
+                      <pre class="language-r">      output = teal.widgets::plot_with_settings_ui(id = ns("plot")),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">125</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">#'       paste("&gt;", round(runif(1, min = 70, max = 75))), LBSTRESC</pre>
+                      <pre class="language-r">      encoding = div(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">126</td>
+                    <td class="num">218</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     )) %&gt;%</pre>
+                      <pre class="language-r">        ### Reporter</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">127</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">#'     ungroup()</pre>
+                      <pre class="language-r">        teal.reporter::simple_reporter_ui(ns("simple_reporter")),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">128</td>
+                    <td class="num">220</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   attr(ADLB[["ARM"]], "label") &lt;- var_labels[["ARM"]]</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">221</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   attr(ADLB[["ANRHI"]], "label") &lt;- "Analysis Normal Range Upper Limit"</pre>
+                      <pre class="language-r">        templ_ui_dataname(a$dataname),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">130</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">#'   attr(ADLB[["ANRLO"]], "label") &lt;- "Analysis Normal Range Lower Limit"</pre>
+                      <pre class="language-r">        teal.widgets::optionalSelectInput(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">131</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">          ns("trt_group"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">132</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">#'   # add LLOQ and ULOQ variables</pre>
+                      <pre class="language-r">          label = "Select Treatment Variable",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">133</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">#'   ADLB_LOQS &lt;- goshawk:::h_identify_loq_values(ADLB)</pre>
+                      <pre class="language-r">          choices = a$trt_group$choices,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">134</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">#'   ADLB &lt;- dplyr::left_join(ADLB, ADLB_LOQS, by = "PARAM")</pre>
+                      <pre class="language-r">          selected = a$trt_group$selected,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">135</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">          multiple = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">136</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">137</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">229</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' datanames &lt;- c("ADSL", "ADLB")</pre>
+                      <pre class="language-r">        templ_ui_params_vars(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">138</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">#' datanames(data) &lt;- datanames</pre>
+                      <pre class="language-r">          ns,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">139</td>
+                    <td class="num">231</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          # xparam and yparam are identical, so we only show the user one</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">140</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">#' join_keys(data) &lt;- default_cdisc_join_keys[datanames]</pre>
+                      <pre class="language-r">          xparam_choices = a$param$choices, xparam_selected = a$param$selected, xparam_label = "Select a Biomarker",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">141</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">#'</pre>
+                      <pre class="language-r">          xchoices = a$xaxis_var$choices, xselected = a$xaxis_var$selected,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">142</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">#' app &lt;- teal::init(</pre>
+                      <pre class="language-r">          ychoices = a$yaxis_var$choices, yselected = a$yaxis_var$selected</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">143</td>
+                    <td class="num">235</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">144</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">#'   modules = teal::modules(</pre>
+                      <pre class="language-r">        uiOutput(ns("shape_ui")),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">145</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">#'     teal.goshawk::tm_g_gh_correlationplot(</pre>
+                      <pre class="language-r">        radioButtons(ns("stat"), "Select a Statistic:", c("mean", "median"), a$stat),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">146</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">#'       label = "Correlation Plot",</pre>
+                      <pre class="language-r">        checkboxInput(ns("include_stat"), "Include Statistic Table", value = TRUE),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">147</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">#'       dataname = "ADLB",</pre>
+                      <pre class="language-r">        div(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">148</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">#'       param_var = "PARAMCD",</pre>
+                      <pre class="language-r">          sliderInput(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">149</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">#'       xaxis_param = choices_selected(c("ALT", "CRP", "IGA"), "ALT"),</pre>
+                      <pre class="language-r">            ns("relative_height"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">150</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">#'       yaxis_param = choices_selected(c("ALT", "CRP", "IGA"), "CRP"),</pre>
+                      <pre class="language-r">            div(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">151</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">#'       xaxis_var = choices_selected(c("AVAL", "BASE", "CHG", "PCHG"), "BASE"),</pre>
+                      <pre class="language-r">              "Relative height of plot to table(s)",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">152</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">#'       yaxis_var = choices_selected(c("AVAL", "BASE", "CHG", "PCHG"), "AVAL"),</pre>
+                      <pre class="language-r">              title =</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">153</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">#'       trt_group = choices_selected(c("ARM", "ACTARM"), "ARM"),</pre>
+                      <pre class="language-r">                paste(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">154</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">#'       color_manual = c(</pre>
+                      <pre class="language-r">                  "The larger the value selected the greater the size of the plot relative\nto",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">155</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">#'         "Drug X 100mg" = "#000000",</pre>
+                      <pre class="language-r">                  "the size of the tables. Note the units of this slider are arbitrary.\nTo",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">156</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">#'         "Placebo" = "#3498DB",</pre>
+                      <pre class="language-r">                  "change the total size of the plot and table(s)\nuse",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">157</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">#'         "Combination 100mg" = "#E74C3C"</pre>
+                      <pre class="language-r">                  "the plot resizing controls available at the top right of the plot."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">158</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">159</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">#'       shape_manual = c("N" = 1, "Y" = 2, "NA" = 0),</pre>
+                      <pre class="language-r">              icon("circle-info")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">160</td>
+                    <td class="num">252</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       plot_height = c(500, 200, 2000),</pre>
+                      <pre class="language-r">            ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">161</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">253</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       facet_ncol = 2,</pre>
+                      <pre class="language-r">            min = 500,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">162</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">#'       visit_facet = TRUE,</pre>
+                      <pre class="language-r">            max = 5000,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">163</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">#'       reg_line = FALSE,</pre>
+                      <pre class="language-r">            step = 50,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">164</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">#'       loq_legend = TRUE,</pre>
+                      <pre class="language-r">            value = a$plot_relative_height_value,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">165</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">#'       font_size = c(12, 8, 20),</pre>
+                      <pre class="language-r">            ticks = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">166</td>
+                    <td class="num">258</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       dot_size = c(1, 1, 12),</pre>
+                      <pre class="language-r">          ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">167</td>
+                    <td class="num">259</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       reg_text_size = c(3, 3, 10),</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">260</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       hline_arb = c(40, 50),</pre>
+                      <pre class="language-r">        templ_ui_constraint(ns), # required by constr_anl_q</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">169</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">#'       hline_arb_label = "arb hori label",</pre>
+                      <pre class="language-r">        ui_arbitrary_lines(id = ns("hline_arb"), a$hline_arb, a$hline_arb_label, a$hline_arb_color),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">170</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">#'       hline_arb_color = c("red", "blue"),</pre>
+                      <pre class="language-r">        teal.widgets::panel_group(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">171</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">#'       hline_vars = c("ANRHI", "ANRLO", "ULOQN", "LLOQN"),</pre>
+                      <pre class="language-r">          teal.widgets::panel_item(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">172</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">#'       hline_vars_colors = c("green", "blue", "purple", "cyan"),</pre>
+                      <pre class="language-r">            title = "Plot Aesthetic Settings",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">173</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">#'       hline_vars_label = c("ANRHI Label", "ANRLO Label", "ULOQN Label", "LLOQN Label"),</pre>
+                      <pre class="language-r">            toggle_slider_ui(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">174</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">#'       vline_vars = c("ANRHI", "ANRLO", "ULOQN", "LLOQN"),</pre>
+                      <pre class="language-r">              ns("yrange_scale"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">175</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">#'       vline_vars_colors = c("yellow", "orange", "brown", "gold"),</pre>
+                      <pre class="language-r">              label = "Y-Axis Range Zoom",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">176</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">#'       vline_vars_labels = c("ANRHI Label", "ANRLO Label", "ULOQN Label", "LLOQN Label"),</pre>
+                      <pre class="language-r">              min = -1000000,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">177</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">#'       vline_arb = c(50, 70),</pre>
+                      <pre class="language-r">              max = 1000000,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">178</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">#'       vline_arb_label = "arb vert A",</pre>
+                      <pre class="language-r">              value = c(-1000000, 1000000)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">179</td>
+                    <td class="num">271</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       vline_arb_color = c("green", "orange")</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">272</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     )</pre>
+                      <pre class="language-r">            checkboxInput(ns("rotate_xlab"), "Rotate X-axis Label", a$rotate_xlab),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">181</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">            numericInput(ns("count_threshold"), "Contributing Observations Threshold:", a$count_threshold)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">182</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">183</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">#' if (interactive()) {</pre>
+                      <pre class="language-r">          teal.widgets::panel_item(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">184</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">#'   shinyApp(app$ui, app$server)</pre>
+                      <pre class="language-r">            title = "Plot settings",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">185</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.widgets::optionalSliderInputValMinMax(ns("dodge"), "Error Bar Position Dodge", a$dodge, ticks = FALSE),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">186</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">#'</pre>
+                      <pre class="language-r">            teal.widgets::panel_group(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">187</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">tm_g_gh_correlationplot &lt;- function(label,</pre>
+                      <pre class="language-r">              teal.widgets::panel_item(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">188</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">                                    dataname,</pre>
+                      <pre class="language-r">                title = "Line Settings",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">189</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">                                    param_var = "PARAMCD",</pre>
+                      <pre class="language-r">                uiOutput(ns("lines"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">190</td>
+                    <td class="num">282</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                    xaxis_param = "ALT",</pre>
+                      <pre class="language-r">              ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">191</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">                                    xaxis_var = "BASE",</pre>
+                      <pre class="language-r">              teal.widgets::panel_item(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">192</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">                                    yaxis_param = "CRP",</pre>
+                      <pre class="language-r">                title = "Symbol settings",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">193</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">                                    yaxis_var = "AVAL",</pre>
+                      <pre class="language-r">                uiOutput(ns("symbols"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">194</td>
+                    <td class="num">286</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                    trt_group,</pre>
+                      <pre class="language-r">              )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">195</td>
+                    <td class="num">287</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                    color_manual = NULL,</pre>
+                      <pre class="language-r">            ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">196</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">                                    shape_manual = NULL,</pre>
+                      <pre class="language-r">            teal.widgets::optionalSliderInputValMinMax(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">197</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">                                    facet_ncol = 2,</pre>
+                      <pre class="language-r">              ns("plot_font_size"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">198</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">                                    visit_facet = TRUE,</pre>
+                      <pre class="language-r">              "Font Size",</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">291</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">              a$plot_font_size,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">292</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">              ticks = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">199</td>
+                    <td class="num">293</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                    trt_facet = FALSE,</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">200</td>
+                    <td class="num">294</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                    reg_line = FALSE,</pre>
+                      <pre class="language-r">          ),</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">295</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          teal.widgets::panel_item(</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">296</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            title = "Table settings",</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">297</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            teal.widgets::optionalSliderInputValMinMax(</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">298</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">              ns("table_font_size"),</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">299</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">              "Table Font Size",</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">300</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">              a$table_font_size,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">301</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">              ticks = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">201</td>
+                    <td class="num">302</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                    loq_legend = TRUE,</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">202</td>
+                    <td class="num">303</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                    rotate_xlab = FALSE,</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">203</td>
+                    <td class="num">304</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                    hline_arb = numeric(0),</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">204</td>
+                    <td class="num">305</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                    hline_arb_color = "red",</pre>
+                      <pre class="language-r">      ),</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">306</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">307</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        teal.widgets::verbatim_popup_ui(ns("warning"), "Show Warnings"),</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">308</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">205</td>
+                    <td class="num">309</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                    hline_arb_label = "Horizontal line",</pre>
+                      <pre class="language-r">      ),</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">310</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      pre_output = a$pre_output,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">311</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      post_output = a$post_output</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">206</td>
+                    <td class="num">312</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                    hline_vars = character(0),</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">207</td>
+                    <td class="num">313</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                    hline_vars_colors = "green",</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">208</td>
+                    <td class="num">314</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                    hline_vars_labels = hline_vars,</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">209</td>
+                    <td class="num">315</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                    vline_arb = numeric(0),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">210</td>
+                    <td class="num">316</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                    vline_arb_color = "red",</pre>
+                      <pre class="language-r">srv_lineplot &lt;- function(id,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">211</td>
+                    <td class="num">317</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                    vline_arb_label = "Vertical line",</pre>
+                      <pre class="language-r">                         data,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">212</td>
+                    <td class="num">318</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                    vline_vars = character(0),</pre>
+                      <pre class="language-r">                         reporter,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">213</td>
+                    <td class="num">319</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                    vline_vars_colors = "green",</pre>
+                      <pre class="language-r">                         filter_panel_api,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">214</td>
+                    <td class="num">320</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                    vline_vars_labels = vline_vars,</pre>
+                      <pre class="language-r">                         dataname,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">215</td>
+                    <td class="num">321</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                    plot_height = c(500, 200, 2000),</pre>
+                      <pre class="language-r">                         param_var,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">216</td>
+                    <td class="num">322</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                    plot_width = NULL,</pre>
+                      <pre class="language-r">                         trt_group,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">217</td>
+                    <td class="num">323</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">                         color_manual,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">218</td>
+                    <td class="num">324</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                    dot_size = c(1, 1, 12),</pre>
+                      <pre class="language-r">                         xvar_level,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">219</td>
+                    <td class="num">325</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                    reg_text_size = c(3, 3, 10),</pre>
+                      <pre class="language-r">                         trt_group_level,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">220</td>
+                    <td class="num">326</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                    pre_output = NULL,</pre>
+                      <pre class="language-r">                         shape_choices,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">221</td>
+                    <td class="num">327</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                    post_output = NULL) {</pre>
+                      <pre class="language-r">                         param_var_label,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">222</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">  logger::log_info("Initializing tm_g_gh_correlationplot")</pre>
+                      <pre class="language-r">                         xtick,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">223</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">  checkmate::assert_class(xaxis_param, "choices_selected")</pre>
+                      <pre class="language-r">                         xlabel,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">224</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">  checkmate::assert_class(yaxis_param, "choices_selected")</pre>
+                      <pre class="language-r">                         plot_height,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">225</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">  checkmate::assert_class(xaxis_var, "choices_selected")</pre>
+                      <pre class="language-r">                         plot_width) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">226</td>
+                    <td class="num">332</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(yaxis_var, "choices_selected")</pre>
+                      <pre class="language-r">  with_reporter &lt;- !missing(reporter) &amp;&amp; inherits(reporter, "Reporter")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">227</td>
+                    <td class="num">333</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(trt_group, "choices_selected")</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">228</td>
+                    <td class="num">334</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(trt_facet)</pre>
+                      <pre class="language-r">  checkmate::assert_class(data, "reactive")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">229</td>
+                    <td class="num">335</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  validate_line_arb_arg(hline_arb, hline_arb_color, hline_arb_label)</pre>
+                      <pre class="language-r">  checkmate::assert_class(shiny::isolate(data()), "teal_data")</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">336</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">230</td>
+                    <td class="num">337</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  validate_line_arb_arg(vline_arb, vline_arb_color, vline_arb_label)</pre>
+                      <pre class="language-r">  moduleServer(id, function(input, output, session) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">231</td>
+                    <td class="num">338</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  validate_line_vars_arg(hline_vars, hline_vars_colors, hline_vars_labels)</pre>
+                      <pre class="language-r">    ns &lt;- session$ns</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">232</td>
+                    <td class="num">339</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  validate_line_vars_arg(vline_vars, vline_vars_colors, vline_vars_labels)</pre>
+                      <pre class="language-r">    output$shape_ui &lt;- renderUI({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">233</td>
+                    <td class="num">340</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">      if (!is.null(shape_choices)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">234</td>
+                    <td class="num">341</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">        if (methods::is(shape_choices, "choices_selected")) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">235</td>
+                    <td class="num">342</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">          choices &lt;- shape_choices$choices</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">236</td>
+                    <td class="num">343</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(</pre>
+                      <pre class="language-r">          selected &lt;- shape_choices$selected</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">344</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        } else {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">237</td>
+                    <td class="num">345</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    plot_width[1],</pre>
+                      <pre class="language-r">          choices &lt;- shape_choices</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">238</td>
+                    <td class="num">346</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">          selected &lt;- NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">239</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">240</td>
+                    <td class="num">348</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(font_size, len = 3)</pre>
+                      <pre class="language-r">        teal.widgets::optionalSelectInput(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">241</td>
+                    <td class="num">349</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(dot_size, len = 3)</pre>
+                      <pre class="language-r">          ns("shape"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">242</td>
+                    <td class="num">350</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(reg_text_size, len = 3)</pre>
+                      <pre class="language-r">          "Select Line Splitting Variable",</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">351</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          choices = choices, selected = selected</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">243</td>
+                    <td class="num">352</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">244</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">353</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">245</td>
+                    <td class="num">354</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    })</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <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">246</td>
+                    <td class="num">356</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  module(</pre>
+                      <pre class="language-r">    anl_q_output &lt;- constr_anl_q(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">247</td>
+                    <td class="num">357</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    label = label,</pre>
+                      <pre class="language-r">      session = session,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">248</td>
+                    <td class="num">358</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    datanames = dataname,</pre>
+                      <pre class="language-r">      input = input,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">249</td>
+                    <td class="num">359</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    server = srv_g_correlationplot,</pre>
+                      <pre class="language-r">      data = data,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">250</td>
+                    <td class="num">360</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    server_args = list(</pre>
+                      <pre class="language-r">      dataname = dataname,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">251</td>
+                    <td class="num">361</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dataname = dataname,</pre>
+                      <pre class="language-r">      param_id = "xaxis_param",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">252</td>
+                    <td class="num">362</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">      param_var = param_var,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">253</td>
+                    <td class="num">363</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      trt_group = trt_group,</pre>
+                      <pre class="language-r">      trt_group = input$trt_group,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">254</td>
+                    <td class="num">364</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      trt_facet = trt_facet,</pre>
+                      <pre class="language-r">      min_rows = 2</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">255</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">      color_manual = color_manual,</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">366</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      shape_manual = shape_manual,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">257</td>
+                    <td class="num">367</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      plot_height = plot_height,</pre>
+                      <pre class="language-r">    anl_q &lt;- anl_q_output()$value</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">258</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_width = plot_width,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">259</td>
+                    <td class="num">369</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      hline_vars_colors = hline_vars_colors,</pre>
+                      <pre class="language-r">    keep_data_const_opts_updated(session, input, anl_q, "xaxis_param")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">260</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">      hline_vars_labels = hline_vars_labels,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">261</td>
+                    <td class="num">371</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      vline_vars_colors = vline_vars_colors,</pre>
+                      <pre class="language-r">    yrange_slider &lt;- toggle_slider_server("yrange_scale")</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">262</td>
+                    <td class="num">373</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      vline_vars_labels = vline_vars_labels</pre>
+                      <pre class="language-r">    horizontal_line &lt;- srv_arbitrary_lines("hline_arb")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">263</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">264</td>
+                    <td class="num">375</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ui = ui_g_correlationplot,</pre>
+                      <pre class="language-r">    iv_r &lt;- reactive({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">265</td>
+                    <td class="num">376</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ui_args = args</pre>
+                      <pre class="language-r">      iv &lt;- shinyvalidate::InputValidator$new()</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">266</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">      iv$add_rule("xaxis_param", shinyvalidate::sv_required("Please select a biomarker"))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <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="never">
-                    <td class="num">269</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">ui_g_correlationplot &lt;- function(id, ...) {</pre>
+                      <pre class="language-r">      iv$add_rule("trt_group", shinyvalidate::sv_required("Please select a treatment variable"))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">270</td>
+                    <td class="num">379</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ns &lt;- NS(id)</pre>
+                      <pre class="language-r">      iv$add_rule("xaxis_var", shinyvalidate::sv_required("Please select an X-Axis variable"))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">271</td>
+                    <td class="num">380</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  a &lt;- list(...)</pre>
+                      <pre class="language-r">      iv$add_rule("yaxis_var", shinyvalidate::sv_required("Please select a Y-Axis variable"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">272</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">273</td>
+                    <td class="num">382</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(horizontal_line()$iv_r())</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">274</td>
+                    <td class="num">383</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    output = templ_ui_output_datatable(ns),</pre>
+                      <pre class="language-r">      iv$add_validator(anl_q_output()$iv_r())</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">275</td>
+                    <td class="num">384</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    encoding = div(</pre>
+                      <pre class="language-r">      iv$enable()</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">385</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      iv</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">276</td>
+                    <td class="num">386</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">277</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">      teal.reporter::simple_reporter_ui(ns("simple_reporter")),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">278</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">279</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">      templ_ui_dataname(a$dataname),</pre>
+                      <pre class="language-r">    # update sliders for axes</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">280</td>
+                    <td class="num">390</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.widgets::optionalSelectInput(</pre>
+                      <pre class="language-r">    observe({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">281</td>
+                    <td class="num">391</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ns("trt_group"),</pre>
+                      <pre class="language-r">      varname &lt;- input[["yaxis_var"]]</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">282</td>
+                    <td class="num">392</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        label = "Select Treatment Variable",</pre>
+                      <pre class="language-r">      validate(need(varname, "Please select variable"))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">283</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">        choices = a$trt_group$choices,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">284</td>
+                    <td class="num">394</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        selected = a$trt_group$selected,</pre>
+                      <pre class="language-r">      ANL &lt;- anl_q()$ANL # nolint</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">285</td>
+                    <td class="num">395</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        multiple = FALSE</pre>
+                      <pre class="language-r">      validate_has_variable(ANL, varname, paste("variable", varname, "does not exist"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">286</td>
+                    <td class="num">396</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ),</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">287</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      templ_ui_params_vars(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">288</td>
+                    <td class="num">397</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ns,</pre>
+                      <pre class="language-r">      shape &lt;- if (!(is.null(input$shape) || input$shape == "None")) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">289</td>
+                    <td class="num">398</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        xparam_choices = a$xaxis_param$choices, xparam_selected = a$xaxis_param$selected,</pre>
+                      <pre class="language-r">        input$shape</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">290</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">        xchoices = a$xaxis_var$choices, xselected = a$xaxis_var$selected,</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">291</td>
+                    <td class="num">400</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        yparam_choices = a$yaxis_param$choices, yparam_selected = a$yaxis_param$selected,</pre>
+                      <pre class="language-r">        NULL</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">292</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">401</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ychoices = a$yaxis_var$choices, yselected = a$yaxis_var$selected</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">293</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="missed">
-                    <td class="num">294</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">      templ_ui_constraint(ns, "X-Axis Data Constraint"), # required by constr_anl_q</pre>
+                      <pre class="language-r">      # we don't need to additionally filter for paramvar here as in keep_range_slider_updated because</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">295</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">404</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (length(a$hline_vars) &gt; 0) {</pre>
+                      <pre class="language-r">      # xaxis_var and yaxis_var are always distinct</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">296</td>
+                    <td class="num">405</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        teal.widgets::optionalSelectInput(</pre>
+                      <pre class="language-r">      sum_data &lt;- ANL %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">297</td>
+                    <td class="num">406</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ns("hline_vars"),</pre>
+                      <pre class="language-r">        dplyr::group_by_at(c(input$xaxis_var, input$trt_group, shape)) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">298</td>
+                    <td class="num">407</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          label = "Add Horizontal Range Line(s):",</pre>
+                      <pre class="language-r">        dplyr::summarise(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">299</td>
+                    <td class="num">408</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          choices = a$hline_vars,</pre>
+                      <pre class="language-r">          upper = if (input$stat == "mean") {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">300</td>
+                    <td class="num">409</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          selected = NULL,</pre>
+                      <pre class="language-r">            mean(!!sym(varname), na.rm = TRUE) +</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">301</td>
+                    <td class="num">410</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          multiple = TRUE</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">              1.96 * stats::sd(!!sym(varname), na.rm = TRUE) / sqrt(dplyr::n())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">303</td>
+                    <td class="num">411</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">304</td>
+                    <td class="num">412</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ui_arbitrary_lines(id = ns("hline_arb"), a$hline_arb, a$hline_arb_label, a$hline_arb_color),</pre>
+                      <pre class="language-r">            stats::quantile(!!sym(varname), 0.75, na.rm = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">305</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">413</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (length(a$vline_vars) &gt; 0) {</pre>
+                      <pre class="language-r">          },</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">306</td>
+                    <td class="num">414</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        teal.widgets::optionalSelectInput(</pre>
+                      <pre class="language-r">          lower = if (input$stat == "mean") {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">307</td>
+                    <td class="num">415</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ns("vline_vars"),</pre>
+                      <pre class="language-r">            mean(!!sym(varname), na.rm = TRUE) -</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">308</td>
+                    <td class="num">416</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          label = "Add Vertical Range Line(s):",</pre>
+                      <pre class="language-r">              1.96 * stats::sd(!!sym(varname), na.rm = TRUE) / sqrt(dplyr::n())</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">309</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">          choices = a$vline_vars,</pre>
+                      <pre class="language-r">          } else {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">310</td>
+                    <td class="num">418</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          selected = NULL,</pre>
+                      <pre class="language-r">            stats::quantile(!!sym(varname), 0.25, na.rm = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">311</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">419</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">312</td>
+                    <td class="num">420</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">313</td>
+                    <td class="num">421</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      },</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">314</td>
+                    <td class="num">422</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ui_arbitrary_lines(</pre>
+                      <pre class="language-r">      minmax &lt;- grDevices::extendrange(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">315</td>
+                    <td class="num">423</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        id = ns("vline_arb"),</pre>
+                      <pre class="language-r">        r = c(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">316</td>
+                    <td class="num">424</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        a$vline_arb,</pre>
+                      <pre class="language-r">          floor(min(sum_data$lower, na.rm = TRUE) * 10) / 10,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">317</td>
+                    <td class="num">425</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        a$vline_arb_label,</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">318</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        a$vline_arb_color,</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">319</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        title = "Arbitrary Vertical Lines:"</pre>
+                      <pre class="language-r">          ceiling(max(sum_data$upper, na.rm = TRUE) * 10) / 10</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">320</td>
+                    <td class="num">426</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">      teal.widgets::panel_group(</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">322</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">323</td>
+                    <td class="num">427</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          title = "Plot Aesthetic Settings",</pre>
+                      <pre class="language-r">        f = 0.05</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">324</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">          toggle_slider_ui(</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">429</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ns("xrange_scale"),</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">430</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            label = "X-Axis Range Zoom",</pre>
+                      <pre class="language-r">      # we don't use keep_range_slider_updated because this module computes the min, max</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">327</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">            min = -1000000, max = 1000000, value = c(-1000000, 1000000)</pre>
+                      <pre class="language-r">      # not from the constrained ANL, but rather by first grouping and computing confidence</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">328</td>
+                    <td class="num">432</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ),</pre>
+                      <pre class="language-r">      # intervals</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">329</td>
+                    <td class="num">433</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          toggle_slider_ui(</pre>
+                      <pre class="language-r">      isolate(yrange_slider$update_state(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">330</td>
+                    <td class="num">434</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ns("yrange_scale"),</pre>
+                      <pre class="language-r">        min = minmax[[1]],</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">331</td>
+                    <td class="num">435</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            label = "Y-Axis Range Zoom",</pre>
+                      <pre class="language-r">        max = minmax[[2]],</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">332</td>
+                    <td class="num">436</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            min = -1000000, max = 1000000, value = c(-1000000, 1000000)</pre>
+                      <pre class="language-r">        value = minmax</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">333</td>
+                    <td class="num">437</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ),</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">334</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          numericInput(ns("facet_ncol"), "Number of Plots Per Row:", a$facet_ncol, min = 1),</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">438</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          checkboxInput(ns("trt_facet"), "Treatment Variable Faceting", a$trt_facet),</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">336</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">          checkboxInput(ns("visit_facet"), "Visit Faceting", a$visit_facet),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">337</td>
+                    <td class="num">440</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          checkboxInput(ns("reg_line"), "Regression Line", a$reg_line),</pre>
+                      <pre class="language-r">    line_color_defaults &lt;- reactiveVal(color_manual)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">338</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">          checkboxInput(ns("loq_legend"), "Display LoQ Legend", a$loq_legend),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">339</td>
+                    <td class="num">442</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          checkboxInput(ns("rotate_xlab"), "Rotate X-axis Label", a$rotate_xlab)</pre>
+                      <pre class="language-r">    line_type_defaults &lt;- reactiveVal("solid")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">340</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="missed">
-                    <td class="num">341</td>
+                    <td class="num">444</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        teal.widgets::panel_item(</pre>
+                      <pre class="language-r">    observeEvent(input$trt_group, {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">342</td>
+                    <td class="num">445</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          title = "Plot settings",</pre>
+                      <pre class="language-r">      req(anl_q())</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">343</td>
+                    <td class="num">446</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          teal.widgets::optionalSliderInputValMinMax(ns("font_size"), "Font Size", a$font_size, ticks = FALSE),</pre>
+                      <pre class="language-r">      req(input$trt_group)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">344</td>
+                    <td class="num">447</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          teal.widgets::optionalSliderInputValMinMax(ns("dot_size"), "Dot Size", a$dot_size, ticks = FALSE),</pre>
+                      <pre class="language-r">      anl_arm &lt;- anl_q()$ANL[[input$trt_group]]</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">345</td>
+                    <td class="num">448</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          teal.widgets::optionalSliderInputValMinMax(</pre>
+                      <pre class="language-r">      anl_arm_nlevels &lt;- nlevels(anl_arm)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">346</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">449</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ns("reg_text_size"),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">347</td>
+                    <td class="num">450</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            "Regression Annotations Size",</pre>
+                      <pre class="language-r">      if (is.null(names(line_color_defaults()))) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">348</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">            a$reg_text_size,</pre>
+                      <pre class="language-r">        # if color_manual did not specify arms (i.e. didn't have names) then order</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">452</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        # of the vector does not need to match order of level(anl_arm)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">349</td>
+                    <td class="num">453</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ticks = FALSE</pre>
+                      <pre class="language-r">        line_color_to_set &lt;- line_color_defaults()[seq_len(anl_arm_nlevels)]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">350</td>
+                    <td class="num">454</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">351</td>
+                    <td class="num">455</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">        # if color_manual did specify arms then we need to make sure the order of</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">352</td>
+                    <td class="num">456</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">        # line_color_to_set matches the order of level(anl_arm) and if any arms are invalid</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">353</td>
+                    <td class="num">457</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ),</pre>
+                      <pre class="language-r">        # or missing then we fill with a random colour</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">354</td>
+                    <td class="num">458</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    forms = tagList(</pre>
+                      <pre class="language-r">        line_color_to_set &lt;- stats::setNames(line_color_defaults()[levels(anl_arm)], nm = levels(anl_arm))</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">459</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">355</td>
+                    <td class="num">460</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">      line_color_to_set[is.na(line_color_to_set)] &lt;- grDevices::rainbow(anl_arm_nlevels)[is.na(line_color_to_set)]</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">356</td>
+                    <td class="num">461</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">      line_color_defaults(line_color_to_set)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">357</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">358</td>
+                    <td class="num">463</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    pre_output = a$pre_output,</pre>
+                      <pre class="language-r">      line_type_to_set &lt;- if (length(line_type_defaults()) &lt;= anl_arm_nlevels) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">359</td>
+                    <td class="num">464</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    post_output = a$post_output</pre>
+                      <pre class="language-r">        c(line_type_defaults(), rep(line_type_defaults(), anl_arm_nlevels - length(line_type_defaults())))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">360</td>
+                    <td class="num">465</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">466</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">        line_type_defaults()[seq_len(anl_arm_nlevels)]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">362</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="never">
-                    <td class="num">363</td>
+                    <td class="num">468</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">srv_g_correlationplot &lt;- function(id,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">364</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">                                  data,</pre>
+                      <pre class="language-r">      line_type_defaults(line_type_to_set)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">365</td>
+                    <td class="num">470</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">366</td>
+                    <td class="num">471</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  filter_panel_api,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">367</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">472</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  dataname,</pre>
+                      <pre class="language-r">    line_color_selected &lt;- reactive({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">368</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">                                  param_var,</pre>
+                      <pre class="language-r">      req(anl_q())</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">369</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">474</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  trt_group,</pre>
+                      <pre class="language-r">      if (is.null(input$trt_group)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">370</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">                                  trt_facet,</pre>
+                      <pre class="language-r">        return(NULL)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">371</td>
+                    <td class="num">476</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  color_manual,</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">372</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">477</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  shape_manual,</pre>
+                      <pre class="language-r">      anl_arm &lt;- isolate(anl_q()$ANL[[input$trt_group]])</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">373</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">478</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  plot_height,</pre>
+                      <pre class="language-r">      anl_arm_nlevels &lt;- nlevels(anl_arm)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">374</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">                                  plot_width,</pre>
+                      <pre class="language-r">      anl_arm_levels &lt;- levels(anl_arm)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">375</td>
+                    <td class="num">480</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  hline_vars_colors,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">376</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">481</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  hline_vars_labels,</pre>
+                      <pre class="language-r">      stats::setNames(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">377</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">                                  vline_vars_colors,</pre>
+                      <pre class="language-r">        vapply(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">378</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">                                  vline_vars_labels) {</pre>
+                      <pre class="language-r">          seq_len(anl_arm_nlevels),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">379</td>
+                    <td class="num">484</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">          function(idx) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">380</td>
+                    <td class="num">485</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">            x &lt;- input[[paste0("line_color_", idx)]]</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">381</td>
+                    <td class="num">486</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 (is.null(x)) isolate(line_color_defaults())[[idx]] else x</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="missed">
-                    <td class="num">382</td>
+                    <td class="num">488</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(shiny::isolate(data()), "teal_data")</pre>
+                      <pre class="language-r">          character(1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">383</td>
+                    <td class="num">489</td>
                     <td class="coverage"></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">490</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">        anl_arm_levels</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">385</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">    iv_r &lt;- reactive({</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">386</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">      iv &lt;- shinyvalidate::InputValidator$new()</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">387</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">388</td>
+                    <td class="num">494</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv$add_rule("xaxis_param", shinyvalidate::sv_required("Please select an X-Axis biomarker"))</pre>
+                      <pre class="language-r">    line_type_selected &lt;- reactive({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">389</td>
+                    <td class="num">495</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv$add_rule("yaxis_param", shinyvalidate::sv_required("Please select a Y-Axis biomarker"))</pre>
+                      <pre class="language-r">      req(anl_q())</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">390</td>
+                    <td class="num">496</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv$add_rule("trt_group", shinyvalidate::sv_required("Please select a treatment variable"))</pre>
+                      <pre class="language-r">      if (is.null(input$trt_group)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">391</td>
+                    <td class="num">497</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv$add_rule("xaxis_var", shinyvalidate::sv_required("Please select an X-Axis variable"))</pre>
+                      <pre class="language-r">        return(NULL)</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">392</td>
+                    <td class="num">499</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv$add_rule("yaxis_var", shinyvalidate::sv_required("Please select a Y-Axis variable"))</pre>
+                      <pre class="language-r">      anl_arm &lt;- isolate(anl_q()$ANL[[input$trt_group]])</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">393</td>
+                    <td class="num">500</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv$add_rule("facet_ncol", plots_per_row_validate_rules())</pre>
+                      <pre class="language-r">      anl_arm_nlevels &lt;- nlevels(anl_arm)</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">501</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      anl_arm_levels &lt;- levels(anl_arm)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">394</td>
+                    <td class="num">502</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">395</td>
+                    <td class="num">503</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv$add_validator(anl_constraint_output()$iv_r())</pre>
+                      <pre class="language-r">      stats::setNames(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">396</td>
+                    <td class="num">504</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv$add_validator(horizontal_line()$iv_r())</pre>
+                      <pre class="language-r">        vapply(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">397</td>
+                    <td class="num">505</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv$add_validator(vertical_line()$iv_r())</pre>
+                      <pre class="language-r">          seq_len(anl_arm_nlevels),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">398</td>
+                    <td class="num">506</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv$enable()</pre>
+                      <pre class="language-r">          function(idx) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">399</td>
+                    <td class="num">507</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv</pre>
+                      <pre class="language-r">            x &lt;- input[[paste0("line_type_", idx)]]</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">508</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            if (is.null(x)) isolate(line_type_defaults())[[idx]] else x</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">400</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">510</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          character(1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">401</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">512</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        anl_arm_levels</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">402</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="never">
-                    <td class="num">403</td>
+                    <td class="num">514</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">404</td>
+                    <td class="num">515</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # filter selected biomarkers</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">405</td>
+                    <td class="num">516</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    anl_param &lt;- reactive({</pre>
+                      <pre class="language-r">    output$lines &lt;- renderUI({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">406</td>
+                    <td class="num">517</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dataset_var &lt;- dataname</pre>
+                      <pre class="language-r">      req(anl_q())</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">407</td>
+                    <td class="num">518</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ANL &lt;- data()[[dataname]] # nolint</pre>
+                      <pre class="language-r">      req(input$trt_group)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">408</td>
+                    <td class="num">519</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      validate_has_data(ANL, 1)</pre>
+                      <pre class="language-r">      anl_arm &lt;- isolate(anl_q()$ANL[[input$trt_group]])</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">409</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"></pre>
+                      <pre class="language-r">      anl_arm_nlevels &lt;- nlevels(anl_arm)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">410</td>
+                    <td class="num">521</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (length(input$hline_vars) &gt; 0) {</pre>
+                      <pre class="language-r">      anl_arm_levels &lt;- levels(anl_arm)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">411</td>
+                    <td class="num">522</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        validate(</pre>
+                      <pre class="language-r">      color_def &lt;- line_color_defaults()</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">412</td>
+                    <td class="num">523</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          need(</pre>
+                      <pre class="language-r">      type_def &lt;- line_type_defaults()</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">413</td>
+                    <td class="num">524</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            all(input$hline_vars %in% names(ANL)),</pre>
+                      <pre class="language-r">      tagList(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">414</td>
+                    <td class="num">525</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            "One or more selected horizontal line variable(s) is/are not names to any column in the data"</pre>
+                      <pre class="language-r">        lapply(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">415</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">          seq_len(anl_arm_nlevels),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">416</td>
+                    <td class="num">527</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          need(</pre>
+                      <pre class="language-r">          function(idx) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">417</td>
+                    <td class="num">528</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            all(input$vline_vars %in% names(ANL)),</pre>
+                      <pre class="language-r">            x &lt;- anl_arm_levels[[idx]]</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">418</td>
+                    <td class="num">529</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            "One or more selected vertical line variable(s) is/are not names to any column in the data"</pre>
+                      <pre class="language-r">            x_color &lt;- color_def[[idx]]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">419</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">            color_input &lt;- colourpicker::colourInput(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">420</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">531</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">              ns(paste0("line_color_", idx)),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">421</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">532</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">              "Color:",</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">533</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">              x_color</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">422</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="missed">
-                    <td class="num">423</td>
+                    <td class="num">535</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      validate_has_variable(ANL, param_var)</pre>
+                      <pre class="language-r">            x_type &lt;- type_def[[idx]]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">424</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">536</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">            type_input &lt;- selectInput(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">425</td>
+                    <td class="num">537</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      validate_in(</pre>
+                      <pre class="language-r">              ns(paste0("line_type_", idx)),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">426</td>
+                    <td class="num">538</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        input$xaxis_param, unique(ANL[[param_var]]),</pre>
+                      <pre class="language-r">              "Type:",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">427</td>
+                    <td class="num">539</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        sprintf("X-Axis Biomarker %s is not available in data %s", input$xaxis_param, dataname)</pre>
+                      <pre class="language-r">              choices = c(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">428</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">540</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">                "blank",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">429</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">541</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                "solid",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">430</td>
+                    <td class="num">542</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      validate_in(</pre>
+                      <pre class="language-r">                "dashed",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">431</td>
+                    <td class="num">543</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        input$yaxis_param, unique(ANL[[param_var]]),</pre>
+                      <pre class="language-r">                "dotted",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">432</td>
+                    <td class="num">544</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        sprintf("Y-Axis Biomarker %s is not available in data %s", input$yaxis_param, dataname)</pre>
+                      <pre class="language-r">                "dotdash",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">433</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">                "longdash",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">434</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">                "twodash",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">435</td>
+                    <td class="num">547</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      validate_has_variable(</pre>
+                      <pre class="language-r">                "1F",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">436</td>
+                    <td class="num">548</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ANL,</pre>
+                      <pre class="language-r">                "F1",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">437</td>
+                    <td class="num">549</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "AVISITCD",</pre>
+                      <pre class="language-r">                "4C88C488",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">438</td>
+                    <td class="num">550</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        sprintf("Variable AVISITCD is not available in data %s", dataname)</pre>
+                      <pre class="language-r">                "12345678"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">439</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="missed">
+                    <td class="num">552</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">              selected = x_type</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">440</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">441</td>
+                    <td class="num">554</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      validate_has_variable(</pre>
+                      <pre class="language-r">            div(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">442</td>
+                    <td class="num">555</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ANL,</pre>
+                      <pre class="language-r">              tags$label("Line configuration for:", tags$code(x)),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">443</td>
+                    <td class="num">556</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "BASE",</pre>
+                      <pre class="language-r">              div(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">444</td>
+                    <td class="num">557</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        sprintf("Variable BASE is not available in data %s", dataname)</pre>
+                      <pre class="language-r">                class = "flex",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">445</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">      )</pre>
+                      <pre class="language-r">                div(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">446</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">                  class = "flex-grow-1",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">447</td>
+                    <td class="num">560</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      validate_has_variable(</pre>
+                      <pre class="language-r">                  color_input</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>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">448</td>
+                    <td class="num">562</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ANL,</pre>
+                      <pre class="language-r">                div(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">449</td>
+                    <td class="num">563</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "BASE2",</pre>
+                      <pre class="language-r">                  class = "flex-grow-1",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">450</td>
+                    <td class="num">564</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        sprintf("Variable BASE2 is not available in data %s", dataname)</pre>
+                      <pre class="language-r">                  type_input</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">451</td>
+                    <td class="num">565</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">                )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">452</td>
+                    <td class="num">566</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></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">567</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      validate_has_variable(</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">454</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">        ANL,</pre>
+                      <pre class="language-r">          }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">455</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">569</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "LOQFL",</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">456</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">570</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        sprintf("Variable LOQFL is not available in data %s", dataname)</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">457</td>
+                    <td class="num">571</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">458</td>
+                    <td class="num">572</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <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">573</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      validate_has_variable(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">460</td>
+                    <td class="num">574</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ANL,</pre>
+                      <pre class="language-r">    symbol_type_start &lt;- c(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">461</td>
+                    <td class="num">575</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "PARAM",</pre>
+                      <pre class="language-r">      "circle",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">462</td>
+                    <td class="num">576</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        sprintf("Variable PARAM is not available in data %s", dataname)</pre>
+                      <pre class="language-r">      "square",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">463</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">      "diamond",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">464</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">      "triangle",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">465</td>
+                    <td class="num">579</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      validate_has_variable(</pre>
+                      <pre class="language-r">      "circle open",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">466</td>
+                    <td class="num">580</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ANL,</pre>
+                      <pre class="language-r">      "square open",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">467</td>
+                    <td class="num">581</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "LBSTRESC",</pre>
+                      <pre class="language-r">      "diamond open",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">468</td>
+                    <td class="num">582</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        sprintf("Variable LBSTRESC is not available in data %s", dataname)</pre>
+                      <pre class="language-r">      "triangle open",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">469</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">583</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">      "triangle down open",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">470</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">584</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      "circle cross",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">471</td>
+                    <td class="num">585</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      validate_has_variable(</pre>
+                      <pre class="language-r">      "square cross",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">472</td>
+                    <td class="num">586</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ANL,</pre>
+                      <pre class="language-r">      "circle plus",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">473</td>
+                    <td class="num">587</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        input$trt_group,</pre>
+                      <pre class="language-r">      "square plus",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">474</td>
+                    <td class="num">588</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        sprintf("Variable %s is not available in data %s", input$trt_group, dataname)</pre>
+                      <pre class="language-r">      "diamond plus",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">475</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">589</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">      "square triangle",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">476</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">      "plus",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">477</td>
+                    <td class="num">591</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      validate_has_variable(</pre>
+                      <pre class="language-r">      "cross",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">478</td>
+                    <td class="num">592</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ANL,</pre>
+                      <pre class="language-r">      "asterisk"</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">479</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">593</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "USUBJID",</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">480</td>
+                    <td class="num">594</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        sprintf("Variable USUBJID is not available in data %s", dataname)</pre>
+                      <pre class="language-r">    symbol_type_defaults &lt;- reactiveVal(symbol_type_start)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">481</td>
+                    <td class="num">595</td>
                     <td class="coverage"></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">596</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    # reset shapes when different splitting variable is selected</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">483</td>
+                    <td class="num">597</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      validate_has_variable(</pre>
+                      <pre class="language-r">    observeEvent(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">484</td>
+                    <td class="num">598</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ANL,</pre>
+                      <pre class="language-r">      eventExpr = input$shape,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">485</td>
+                    <td class="num">599</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        input$xaxis_var,</pre>
+                      <pre class="language-r">      handlerExpr = symbol_type_defaults(symbol_type_start),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">486</td>
+                    <td class="num">600</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        sprintf("Variable %s is not available in data %s", input$xaxis_var, dataname)</pre>
+                      <pre class="language-r">      ignoreNULL = TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">487</td>
+                    <td class="num">601</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">488</td>
+                    <td class="num">602</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">489</td>
+                    <td class="num">603</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      validate_has_variable(</pre>
+                      <pre class="language-r">    observe({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">490</td>
+                    <td class="num">604</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ANL,</pre>
+                      <pre class="language-r">      req(input$shape)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">491</td>
+                    <td class="num">605</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        input$yaxis_var,</pre>
+                      <pre class="language-r">      req(anl_q())</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">492</td>
+                    <td class="num">606</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        sprintf("Variable %s is not available in data %s", input$yaxis_var, dataname)</pre>
+                      <pre class="language-r">      anl_shape &lt;- anl_q()$ANL[[input$shape]]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">493</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">607</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">      anl_shape_nlevels &lt;- nlevels(anl_shape)</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">608</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      symbol_type_to_set &lt;- symbol_type_defaults()[pmin(length(symbol_type_defaults()), seq_len(anl_shape_nlevels))]</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">609</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      symbol_type_defaults(symbol_type_to_set)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">494</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">495</td>
+                    <td class="num">611</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # analysis</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">496</td>
+                    <td class="num">612</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      private_qenv &lt;- data() %&gt;%</pre>
+                      <pre class="language-r">    symbol_type_selected &lt;- reactive({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">497</td>
+                    <td class="num">613</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        teal.code::eval_code(</pre>
+                      <pre class="language-r">      req(anl_q())</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">498</td>
+                    <td class="num">614</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          code = bquote({</pre>
+                      <pre class="language-r">      if (is.null(input$shape)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">499</td>
+                    <td class="num">615</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ANL &lt;- .(as.name(dataset_var)) %&gt;% # nolint</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">500</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">              dplyr::filter(.data[[.(param_var)]] %in% union(.(input$xaxis_param), .(input$yaxis_param)))</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">501</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          })</pre>
+                      <pre class="language-r">        return(NULL)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">502</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">503</td>
+                    <td class="num">617</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      validate_has_data(private_qenv[["ANL"]], 1)</pre>
+                      <pre class="language-r">      anl_shape &lt;- isolate(anl_q()$ANL[[input$shape]])</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">504</td>
+                    <td class="num">618</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      return(list(ANL = ANL, qenv = private_qenv))</pre>
+                      <pre class="language-r">      anl_shape_nlevels &lt;- nlevels(anl_shape)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">505</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">      anl_shape_levels &lt;- levels(anl_shape)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">506</td>
+                    <td class="num">620</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">507</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">    # constraints</pre>
+                      <pre class="language-r">      stats::setNames(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">508</td>
+                    <td class="num">622</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    observe({</pre>
+                      <pre class="language-r">        vapply(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">509</td>
+                    <td class="num">623</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      req(input$xaxis_param)</pre>
+                      <pre class="language-r">          seq_len(anl_shape_nlevels),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">510</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">          function(idx) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">511</td>
+                    <td class="num">625</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      constraint_var &lt;- input$constraint_var</pre>
+                      <pre class="language-r">            x &lt;- input[[paste0("symbol_type_", idx)]]</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">512</td>
+                    <td class="num">626</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      req(constraint_var)</pre>
+                      <pre class="language-r">            if (is.null(x)) isolate(symbol_type_defaults())[[idx]] else x</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">513</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="missed">
+                    <td class="num">628</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          character(1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">514</td>
+                    <td class="num">629</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # note that filtered is false thus we cannot use anl_param()$ANL</pre>
+                      <pre class="language-r">        ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">515</td>
+                    <td class="num">630</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ANL &lt;- data()[[dataname]] # nolint</pre>
+                      <pre class="language-r">        anl_shape_levels</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">516</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">      validate_has_data(ANL, 1)</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">517</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">518</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">      validate_has_variable(ANL, param_var)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">519</td>
+                    <td class="num">634</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      validate_has_variable(ANL, "AVISITCD")</pre>
+                      <pre class="language-r">    output$symbols &lt;- renderUI({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">520</td>
+                    <td class="num">635</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      validate_has_variable(ANL, "BASE")</pre>
+                      <pre class="language-r">      req(symbol_type_defaults())</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">521</td>
+                    <td class="num">636</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      validate_has_variable(ANL, "BASE2")</pre>
+                      <pre class="language-r">      validate(need(input$shape, "Please select line splitting variable first."))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">522</td>
+                    <td class="num">637</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">638</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ANL &lt;- ANL %&gt;% dplyr::filter(.data[[param_var]] == input$xaxis_param) # nolint</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>
+                      <pre class="language-r">      anl_shape &lt;- isolate(anl_q()$ANL[[input$shape]])</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">525</td>
+                    <td class="num">639</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      visit_freq &lt;- unique(ANL$AVISITCD)</pre>
+                      <pre class="language-r">      validate(need(is.factor(anl_shape), "Line splitting variable must be a factor."))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">526</td>
+                    <td class="num">640</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">527</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">641</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # get min max values</pre>
+                      <pre class="language-r">      anl_shape_nlevels &lt;- nlevels(anl_shape)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">528</td>
+                    <td class="num">642</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if ((constraint_var == "BASE2" &amp;&amp; any(grepl("SCR", visit_freq))) ||</pre>
+                      <pre class="language-r">      anl_shape_levels &lt;- levels(anl_shape)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">529</td>
+                    <td class="num">643</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        (constraint_var == "BASE" &amp;&amp; any(grepl("BL", visit_freq)))) { # nolint</pre>
+                      <pre class="language-r">      symbol_def &lt;- symbol_type_defaults()</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">530</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">        val &lt;- stats::na.omit(switch(constraint_var,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">531</td>
+                    <td class="num">645</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "BASE" = ANL$BASE[ANL$AVISITCD == "BL"],</pre>
+                      <pre class="language-r">      tagList(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">532</td>
+                    <td class="num">646</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "BASE2" = ANL$BASE2[ANL$AVISITCD == "SCR"],</pre>
+                      <pre class="language-r">        lapply(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">533</td>
+                    <td class="num">647</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          stop(paste(constraint_var, "not allowed"))</pre>
+                      <pre class="language-r">          seq_len(anl_shape_nlevels),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">534</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">648</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ))</pre>
+                      <pre class="language-r">          function(idx) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">535</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">            x &lt;- anl_shape_levels[[idx]]</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">536</td>
+                    <td class="num">650</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (length(val) == 0 || all(is.na(val))) {</pre>
+                      <pre class="language-r">            x_color &lt;- symbol_def[[idx]]</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">537</td>
+                    <td class="num">651</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          shinyjs::show("all_na")</pre>
+                      <pre class="language-r">            selectInput(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">538</td>
+                    <td class="num">652</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          shinyjs::hide("constraint_range")</pre>
+                      <pre class="language-r">              ns(paste0("symbol_type_", idx)),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">539</td>
+                    <td class="num">653</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          args &lt;- list(</pre>
+                      <pre class="language-r">              HTML(paste0("Symbol for: ", tags$code(x))),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">540</td>
+                    <td class="num">654</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            min = list(label = "Min", min = 0, max = 0, value = 0),</pre>
+                      <pre class="language-r">              choices = symbol_type_start,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">541</td>
+                    <td class="num">655</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            max = list(label = "Max", min = 0, max = 0, value = 0)</pre>
+                      <pre class="language-r">              selected = x_color</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">542</td>
+                    <td class="num">656</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">          update_min_max(session, args)</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">544</td>
+                    <td class="num">657</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">545</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">          rng &lt;- range(val, na.rm = TRUE)</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">546</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">547</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">          minmax &lt;- c(floor(rng[1] * 1000) / 1000, ceiling(rng[2] * 1000) / 1000)</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">548</td>
+                    <td class="num">661</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">549</td>
+                    <td class="num">662</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          label_min &lt;- sprintf("Min (%s)", minmax[1])</pre>
+                      <pre class="language-r">    plot_q &lt;- reactive({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">550</td>
+                    <td class="num">663</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          label_max &lt;- sprintf("Max (%s)", minmax[2])</pre>
+                      <pre class="language-r">      teal::validate_inputs(iv_r())</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">551</td>
+                  <tr class="missed">
+                    <td class="num">664</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      req(anl_q(), line_color_selected(), line_type_selected())</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">665</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      # nolint start</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">666</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">552</td>
+                    <td class="num">667</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          args &lt;- list(</pre>
+                      <pre class="language-r">      ylim &lt;- yrange_slider$state()$value</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">553</td>
+                    <td class="num">668</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            min = list(label = label_min, min = minmax[1], max = minmax[2], value = minmax[1]),</pre>
+                      <pre class="language-r">      plot_font_size &lt;- input$plot_font_size</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">554</td>
+                    <td class="num">669</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            max = list(label = label_max, min = minmax[1], max = minmax[2], value = minmax[2])</pre>
+                      <pre class="language-r">      dodge &lt;- input$dodge</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">555</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">      rotate_xlab &lt;- input$rotate_xlab</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">671</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      count_threshold &lt;- `if`(is.na(as.numeric(input$count_threshold)), 0, as.numeric(input$count_threshold))</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">672</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      table_font_size &lt;- input$table_font_size</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">556</td>
+                    <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">557</td>
+                    <td class="num">674</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          update_min_max(session, args)</pre>
+                      <pre class="language-r">      median &lt;- ifelse(input$stat == "median", TRUE, FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">558</td>
+                    <td class="num">675</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          shinyjs::show("constraint_range") # update before show</pre>
+                      <pre class="language-r">      relative_height &lt;- input$relative_height</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">559</td>
+                    <td class="num">676</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          shinyjs::hide("all_na")</pre>
+                      <pre class="language-r">      trt_group &lt;- input$trt_group</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">560</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">        }</pre>
+                      <pre class="language-r">      color_selected &lt;- line_color_selected()</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">561</td>
+                    <td class="num">678</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else if (constraint_var == "NONE") {</pre>
+                      <pre class="language-r">      type_selected &lt;- line_type_selected()</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">562</td>
+                    <td class="num">679</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        shinyjs::hide("constraint_range") # hide before update</pre>
+                      <pre class="language-r">      symbol_selected &lt;- symbol_type_selected()</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">563</td>
+                    <td class="num">680</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        shinyjs::hide("all_na")</pre>
+                      <pre class="language-r">      include_stat &lt;- input$include_stat</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">564</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">565</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        # force update (and thus refresh) on different constraint_var -&gt; pass unique value for each constraint_var name</pre>
-                    </td>
-                  </tr>
                   <tr class="missed">
-                    <td class="num">566</td>
+                    <td class="num">682</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        args &lt;- list(</pre>
+                      <pre class="language-r">      param &lt;- input$xaxis_param</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">567</td>
+                    <td class="num">683</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          min = list(label = "Min", min = 0, max = 0, value = 0),</pre>
+                      <pre class="language-r">      xaxis &lt;- input$xaxis_var</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">568</td>
+                    <td class="num">684</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          max = list(label = "Max", min = 0, max = 0, value = 0)</pre>
+                      <pre class="language-r">      yaxis &lt;- input$yaxis_var</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">569</td>
+                    <td class="num">685</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">570</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">571</td>
+                    <td class="num">687</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        update_min_max(session, args)</pre>
+                      <pre class="language-r">      shape &lt;- if (!(is.null(input$shape) || input$shape == "None")) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">688</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        input$shape</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">572</td>
+                    <td class="num">689</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">573</td>
+                    <td class="num">690</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        stop("invalid contraint_var", constraint_var)</pre>
+                      <pre class="language-r">        NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">574</td>
+                    <td class="num">691</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">575</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="never">
-                    <td class="num">576</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">      validate(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">577</td>
+                    <td class="num">694</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    anl_constraint_output &lt;- create_anl_constraint_reactive(anl_param, input, param_id = "xaxis_param", min_rows = 1)</pre>
+                      <pre class="language-r">        need(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">578</td>
+                    <td class="num">695</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    anl_constraint &lt;- anl_constraint_output()$value</pre>
+                      <pre class="language-r">          nrow(anl_q()$ANL[stats::complete.cases(anl_q()$ANL[, c(yaxis, xaxis)]), ]) &gt;= 2,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">696</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          "Number of complete rows on x and y axis variables is less than 2"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">579</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">580</td>
+                    <td class="num">698</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # update sliders for axes taking constraints into account</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">581</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">699</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    xrange_slider &lt;- toggle_slider_server("xrange_scale")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">582</td>
+                    <td class="num">700</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    yrange_slider &lt;- toggle_slider_server("yrange_scale")</pre>
+                      <pre class="language-r">      private_qenv &lt;- anl_q()$qenv</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">583</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">    keep_range_slider_updated(session, input, xrange_slider$update_state, "xaxis_var", "xaxis_param", anl_constraint)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">584</td>
+                    <td class="num">702</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    keep_range_slider_updated(session, input, yrange_slider$update_state, "yaxis_var", "yaxis_param", anl_constraint)</pre>
+                      <pre class="language-r">      if (!methods::is(xtick, "waiver") &amp;&amp; !is.null(xtick)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">585</td>
+                    <td class="num">703</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    keep_data_const_opts_updated(session, input, anl_constraint, "xaxis_param")</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">586</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        private_qenv &lt;- teal.code::eval_code(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">587</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">    # selector names after transposition</pre>
+                      <pre class="language-r">          object = private_qenv,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">588</td>
+                    <td class="num">705</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    xvar &lt;- reactive(paste0(input$xaxis_var, ".", input$xaxis_param))</pre>
+                      <pre class="language-r">          code = bquote({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">589</td>
+                    <td class="num">706</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    yvar &lt;- reactive(paste0(input$yaxis_var, ".", input$yaxis_param))</pre>
+                      <pre class="language-r">            keep_index &lt;- which(.(xtick) %in% ANL[[.(xaxis)]])</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">590</td>
+                    <td class="num">707</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    xloqfl &lt;- reactive(paste0("LOQFL_", input$xaxis_param))</pre>
+                      <pre class="language-r">            xtick &lt;- (.(xtick))[keep_index] # extra parentheses needed for edge case, e.g. 1:5[keep_index]</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">591</td>
+                    <td class="num">708</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    yloqfl &lt;- reactive(paste0("LOQFL_", input$yaxis_param))</pre>
+                      <pre class="language-r">            xlabel &lt;- (.(xlabel))[keep_index]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">592</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="never">
-                    <td class="num">593</td>
+                    <td class="num">710</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # transpose data to plot</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">594</td>
+                    <td class="num">711</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    plot_data_transpose &lt;- reactive({</pre>
+                      <pre class="language-r">      } else if (methods::is(xtick, "waiver")) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">595</td>
+                    <td class="num">712</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">596</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        private_qenv &lt;- teal.code::eval_code(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">597</td>
+                    <td class="num">713</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      req(anl_constraint())</pre>
+                      <pre class="language-r">          object = private_qenv,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">598</td>
+                    <td class="num">714</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ANL &lt;- anl_constraint()$ANL # nolint</pre>
+                      <pre class="language-r">          code = "</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">599</td>
+                    <td class="num">715</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      trt_group &lt;- input$trt_group</pre>
+                      <pre class="language-r">            xtick &lt;- ggplot2::waiver()</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">600</td>
+                    <td class="num">716</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      line_vars &lt;- unique(c(input$hline_vars, input$vline_vars))</pre>
+                      <pre class="language-r">            xlabel &lt;- ggplot2::waiver()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">601</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="missed">
-                    <td class="num">602</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">      private_q &lt;- anl_constraint()$qenv %&gt;% teal.code::eval_code(</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">603</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">        code = bquote({</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">720</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ANL_TRANSPOSED1 &lt;- ANL %&gt;% # nolint</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">605</td>
+                    <td class="num">721</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            dplyr::select(</pre>
+                      <pre class="language-r">      hline_arb &lt;- horizontal_line()$line_arb</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">606</td>
+                    <td class="num">722</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              .data[["USUBJID"]],</pre>
+                      <pre class="language-r">      hline_arb_label &lt;- horizontal_line()$line_arb_label</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">607</td>
+                    <td class="num">723</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              .data[[.(trt_group)]],</pre>
+                      <pre class="language-r">      hline_arb_color &lt;- horizontal_line()$line_arb_color</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">608</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">              .data[["AVISITCD"]],</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">609</td>
+                    <td class="num">725</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              .data[[.(param_var)]],</pre>
+                      <pre class="language-r">      teal.code::eval_code(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">610</td>
+                    <td class="num">726</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              .data[[.(input$xaxis_var)]],</pre>
+                      <pre class="language-r">        object = private_qenv,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">611</td>
+                    <td class="num">727</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              .data[[.(input$yaxis_var)]],</pre>
+                      <pre class="language-r">        code = bquote({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">612</td>
+                    <td class="num">728</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              .(`if`(length(line_vars) == 0, NULL, line_vars))</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">613</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            ) %&gt;%</pre>
+                      <pre class="language-r">          p &lt;- goshawk::g_lineplot(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">614</td>
+                    <td class="num">729</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            tidyr::pivot_longer(</pre>
+                      <pre class="language-r">            data = ANL[stats::complete.cases(ANL[, c(.(yaxis), .(xaxis))]), ],</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">615</td>
+                    <td class="num">730</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              c(</pre>
+                      <pre class="language-r">            biomarker_var = .(param_var),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">616</td>
+                    <td class="num">731</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                .data[[.(input$xaxis_var)]],</pre>
+                      <pre class="language-r">            biomarker_var_label = .(param_var_label),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">617</td>
+                    <td class="num">732</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                .data[[.(input$yaxis_var)]],</pre>
+                      <pre class="language-r">            biomarker = .(param),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">618</td>
+                    <td class="num">733</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                .(`if`(length(line_vars) == 0, NULL, line_vars))</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">            value_var = .(yaxis),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">620</td>
+                    <td class="num">734</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              names_to = "ANLVARS",</pre>
+                      <pre class="language-r">            ylim = .(ylim),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">621</td>
+                    <td class="num">735</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              values_to = "ANLVALS"</pre>
+                      <pre class="language-r">            trt_group = .(trt_group),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">622</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">            ) %&gt;%</pre>
+                      <pre class="language-r">            trt_group_level = .(trt_group_level),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">623</td>
+                    <td class="num">737</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            tidyr::unite(</pre>
+                      <pre class="language-r">            shape = .(shape),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">624</td>
+                    <td class="num">738</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              "ANL.PARAM",</pre>
+                      <pre class="language-r">            shape_type = .(symbol_selected),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">625</td>
+                    <td class="num">739</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              "ANLVARS",</pre>
+                      <pre class="language-r">            time = .(xaxis),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">626</td>
+                    <td class="num">740</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              .(param_var),</pre>
+                      <pre class="language-r">            time_level = .(xvar_level),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">627</td>
+                    <td class="num">741</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              sep = ".",</pre>
+                      <pre class="language-r">            color_manual = .(color_selected),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">628</td>
+                    <td class="num">742</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              remove = TRUE</pre>
+                      <pre class="language-r">            line_type = .(type_selected),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">629</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">            ) %&gt;%</pre>
+                      <pre class="language-r">            median = .(median),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">630</td>
+                    <td class="num">744</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            tidyr::pivot_wider(names_from = "ANL.PARAM", values_from = "ANLVALS") %&gt;%</pre>
+                      <pre class="language-r">            hline_arb = .(hline_arb),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">631</td>
+                    <td class="num">745</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            dplyr::filter(!is.na(.data[[.(xvar())]]) &amp; !is.na(.data[[.(yvar())]]))</pre>
+                      <pre class="language-r">            hline_arb_label = .(hline_arb_label),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">632</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">            hline_arb_color = .(hline_arb_color),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">633</td>
+                    <td class="num">747</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ANL_TRANSPOSED2 &lt;- ANL %&gt;% # nolint</pre>
+                      <pre class="language-r">            xtick = .(if (!is.null(xtick)) quote(xtick) else xtick),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">634</td>
+                    <td class="num">748</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            dplyr::select(</pre>
+                      <pre class="language-r">            xlabel = .(if (!is.null(xtick)) quote(xlabel) else xlabel),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">635</td>
+                    <td class="num">749</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              .data[["USUBJID"]],</pre>
+                      <pre class="language-r">            rotate_xlab = .(rotate_xlab),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">636</td>
+                    <td class="num">750</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              .data[[.(trt_group)]],</pre>
+                      <pre class="language-r">            plot_height = .(relative_height), # in g_lineplot this is relative height of plot to table</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">637</td>
+                    <td class="num">751</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              .data[["AVISITCD"]],</pre>
+                      <pre class="language-r">            plot_font_size = .(plot_font_size),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">638</td>
+                    <td class="num">752</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              .data[[.(param_var)]],</pre>
+                      <pre class="language-r">            dodge = .(dodge),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">639</td>
+                    <td class="num">753</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              .data[["LOQFL"]],</pre>
+                      <pre class="language-r">            count_threshold = .(count_threshold),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">640</td>
+                    <td class="num">754</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              .data[["PARAM"]],</pre>
+                      <pre class="language-r">            table_font_size = .(table_font_size),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">641</td>
+                    <td class="num">755</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              .data[["LBSTRESC"]]</pre>
+                      <pre class="language-r">            display_center_tbl = .(include_stat)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">642</td>
+                    <td class="num">756</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">643</td>
+                    <td class="num">757</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            tidyr::pivot_longer(</pre>
+                      <pre class="language-r">          print(p)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">644</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">              c(</pre>
+                      <pre class="language-r">        })</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">645</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">759</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                .data[["LOQFL"]],</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">646</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[["PARAM"]],</pre>
+                      <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">647</td>
+                    <td class="num">762</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                .data[["LBSTRESC"]]</pre>
+                      <pre class="language-r">    plot_r &lt;- reactive(plot_q()[["p"]])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">648</td>
+                    <td class="num">763</td>
                     <td class="coverage"></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">764</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              names_to = "ANLVARS",</pre>
+                      <pre class="language-r">    plot_data &lt;- teal.widgets::plot_with_settings_srv(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">650</td>
+                    <td class="num">765</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              values_to = "ANLVALS"</pre>
+                      <pre class="language-r">      id = "plot",</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">766</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      plot_r = plot_r,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">767</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      height = plot_height,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">768</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      width = plot_width,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">651</td>
+                    <td class="num">769</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">770</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">771</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    ### REPORTER</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">652</td>
+                    <td class="num">772</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            tidyr::unite(</pre>
+                      <pre class="language-r">    if (with_reporter) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">653</td>
+                    <td class="num">773</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              "ANL.PARAM",</pre>
+                      <pre class="language-r">      card_fun &lt;- function(comment, label) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">654</td>
+                    <td class="num">774</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              "ANLVARS",</pre>
+                      <pre class="language-r">        constraint_description &lt;- paste(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">655</td>
+                    <td class="num">775</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              .(param_var),</pre>
+                      <pre class="language-r">          "\nSelect Line Splitting Variable:",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">656</td>
+                    <td class="num">776</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              sep = "_",</pre>
+                      <pre class="language-r">          if (!is.null(input$shape)) input$shape else "None",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">657</td>
+                    <td class="num">777</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              remove = TRUE</pre>
+                      <pre class="language-r">          "\nContributing Observations Threshold:",</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">778</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          input$count_threshold</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">658</td>
+                    <td class="num">779</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">659</td>
+                    <td class="num">780</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            tidyr::pivot_wider(names_from = "ANL.PARAM", values_from = "ANLVALS") %&gt;%</pre>
+                      <pre class="language-r">        card &lt;- report_card_template_goshawk(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">660</td>
+                    <td class="num">781</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            dplyr::mutate(LOQFL_COMB = dplyr::case_when(</pre>
+                      <pre class="language-r">          title = "Line Plot",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">661</td>
+                    <td class="num">782</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              .data[[.(xloqfl())]] == "Y" | .data[[.(yloqfl())]] == "Y" ~ "Y",</pre>
+                      <pre class="language-r">          label = label,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">662</td>
+                    <td class="num">783</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              .data[[.(xloqfl())]] == "N" &amp; .data[[.(yloqfl())]] == "N" ~ "N",</pre>
+                      <pre class="language-r">          with_filter = with_filter,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">663</td>
+                    <td class="num">784</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              .data[[.(xloqfl())]] == "N" &amp; .data[[.(yloqfl())]] == "NA" ~ "N",</pre>
+                      <pre class="language-r">          filter_panel_api = filter_panel_api,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">664</td>
+                    <td class="num">785</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              .data[[.(xloqfl())]] == "NA" &amp; .data[[.(yloqfl())]] == "N" ~ "N",</pre>
+                      <pre class="language-r">          constraint_list = list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">665</td>
+                    <td class="num">786</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              .data[[.(xloqfl())]] == "NA" &amp; .data[[.(yloqfl())]] == "NA" ~ "NA",</pre>
+                      <pre class="language-r">            constraint_var = input$constraint_var,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">666</td>
+                    <td class="num">787</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              TRUE ~ as.character(NA)</pre>
+                      <pre class="language-r">            constraint_range_min = input$constraint_range_min,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">667</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">            constraint_range_max = input$constraint_range_max</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">668</td>
+                    <td class="num">789</td>
                     <td class="coverage"></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">790</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ANL_TRANSPOSED &lt;- merge(ANL_TRANSPOSED1, ANL_TRANSPOSED2) # nolint</pre>
+                      <pre class="language-r">          constraint_description = constraint_description,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">670</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">        })</pre>
+                      <pre class="language-r">          style = "verbatim"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">671</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">672</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"></pre>
+                      <pre class="language-r">        card$append_text("Plot", "header3")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">673</td>
+                    <td class="num">794</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      validate(need(nrow(private_q[["ANL_TRANSPOSED"]]) &gt; 0, "Plot Data No Observations Left"))</pre>
+                      <pre class="language-r">        card$append_plot(plot_r(), dim = plot_data$dim())</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">674</td>
+                    <td class="num">795</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      validate_has_variable(data = private_q[["ANL_TRANSPOSED"]], varname = c(xvar(), yvar(), xloqfl(), yloqfl()))</pre>
+                      <pre class="language-r">        if (!comment == "") {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">675</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"></pre>
+                      <pre class="language-r">          card$append_text("Comment", "header3")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">676</td>
+                    <td class="num">797</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      private_q &lt;- teal.code::eval_code(</pre>
+                      <pre class="language-r">          card$append_text(comment)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">677</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">        object = private_q,</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">678</td>
+                    <td class="num">799</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        code =</pre>
+                      <pre class="language-r">        card$append_src(teal.code::get_code(plot_q()))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">679</td>
+                    <td class="num">800</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          bquote(attr(ANL_TRANSPOSED[[.(trt_group)]], "label") &lt;- attr(ANL[[.(trt_group)]], "label")) # nolint</pre>
+                      <pre class="language-r">        card</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">680</td>
+                    <td class="num">801</td>
                     <td class="coverage"></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">802</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      return(list(ANL_TRANSPOSED = private_q[["ANL_TRANSPOSED"]], qenv = private_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">682</td>
+                    <td class="num">803</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">683</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="missed">
-                    <td class="num">684</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">805</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    plot_labels &lt;- reactive({</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">685</td>
+                    <td class="num">806</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      req(anl_constraint())</pre>
+                      <pre class="language-r">    teal.widgets::verbatim_popup_srv(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">686</td>
+                    <td class="num">807</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ANL &lt;- anl_constraint()$qenv[["ANL"]] # nolint</pre>
+                      <pre class="language-r">      id = "warning",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">687</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">      verbatim_content = reactive(teal.code::get_warnings(plot_q())),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">688</td>
+                    <td class="num">809</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      xparam &lt;- ANL$PARAM[ANL[[param_var]] == input$xaxis_param][1]</pre>
+                      <pre class="language-r">      title = "Warning",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">689</td>
+                    <td class="num">810</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      yparam &lt;- ANL$PARAM[ANL[[param_var]] == input$yaxis_param][1]</pre>
+                      <pre class="language-r">      disabled = reactive(is.null(teal.code::get_warnings(plot_q())))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">690</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">691</td>
+                    <td class="num">812</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # setup the x-axis label.  Combine the biomarker and the units (if available)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">692</td>
+                    <td class="num">813</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (is.null(ANL$AVALU) || all(ANL[["AVALU"]] == "")) {</pre>
+                      <pre class="language-r">    teal.widgets::verbatim_popup_srv(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">693</td>
+                    <td class="num">814</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        title_text &lt;- paste(xparam, "and", yparam, "@ Visits")</pre>
+                      <pre class="language-r">      id = "rcode",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">694</td>
+                    <td class="num">815</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        xaxis_lab &lt;- paste(xparam, input$xaxis_var, "Values")</pre>
+                      <pre class="language-r">      verbatim_content = reactive(teal.code::get_code(plot_q())),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">695</td>
+                    <td class="num">816</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        yaxis_lab &lt;- paste(yparam, input$yaxis_var, "Values")</pre>
+                      <pre class="language-r">      title = "Show R Code for Line Plot"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">696</td>
+                    <td class="num">817</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">697</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">818</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        xunit &lt;- ANL$AVALU[ANL[[param_var]] == input$xaxis_param][1]</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">819</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        yunit &lt;- ANL$AVALU[ANL[[param_var]] == input$yaxis_param][1]</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/tm_g_gh_spaghettiplot.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">699</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' Spaghetti Plot</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">700</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">        title_text &lt;- paste0(xparam, " (", xunit, ") and ", yparam, " (", yunit, ") @ Visits")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">701</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">        xaxis_lab &lt;- paste0(xparam, " (", xunit, ") ", input$xaxis_var, " Values")</pre>
+                      <pre class="language-r">#' This teal module renders the UI and calls the function</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">702</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">        yaxis_lab &lt;- paste0(yparam, " (", yunit, ") ", input$yaxis_var, " Values")</pre>
+                      <pre class="language-r">#' that creates a spaghetti plot.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">703</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">704</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 label menu item label of the module in the teal app.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">705</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">      list(title_text = title_text, xaxis_lab = xaxis_lab, yaxis_lab = yaxis_lab)</pre>
+                      <pre class="language-r">#' @param dataname analysis data passed to the data argument of \code{\link[teal]{init}}.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">706</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">#' E.g. `ADaM` structured laboratory data frame `ADLB`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">707</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 param_var name of variable containing biomarker codes e.g. `PARAMCD`.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">708</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">    horizontal_line &lt;- srv_arbitrary_lines("hline_arb")</pre>
+                      <pre class="language-r">#' @param param biomarker selected.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">709</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">    vertical_line &lt;- srv_arbitrary_lines("vline_arb")</pre>
+                      <pre class="language-r">#' @param param_var_label single name of variable in analysis data</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">710</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' that includes parameter labels.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">711</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # plot</pre>
+                      <pre class="language-r">#' @param idvar name of unique subject id variable.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">712</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">    plot_q &lt;- reactive({</pre>
+                      <pre class="language-r">#' @param xaxis_var single name of variable in analysis data</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">713</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">      req(plot_data_transpose())</pre>
+                      <pre class="language-r">#' that is used as x-axis in the plot for the respective goshawk function.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">714</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # nolint start</pre>
+                      <pre class="language-r">#' @param xaxis_var_level vector that can be used to define the factor level of `xaxis_var`.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">715</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">      xaxis_param &lt;- input$xaxis_param</pre>
+                      <pre class="language-r">#' Only use it when `xaxis_var` is character or factor.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">716</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">      xaxis_var &lt;- input$xaxis_var</pre>
+                      <pre class="language-r">#' @param filter_var data constraint variable.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">717</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">      yaxis_param &lt;- input$yaxis_param</pre>
+                      <pre class="language-r">#' @param yaxis_var single name of variable in analysis data that is used as</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">718</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">      yaxis_var &lt;- input$yaxis_var</pre>
+                      <pre class="language-r">#' summary variable in the respective `goshawk` function.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">719</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">      xlim &lt;- xrange_slider$state()$value</pre>
+                      <pre class="language-r">#' @param trt_group \code{\link[teal.transform]{choices_selected}} object with available choices and pre-selected option</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">720</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">      ylim &lt;- yrange_slider$state()$value</pre>
+                      <pre class="language-r">#' for variable names representing treatment group e.g. `ARM`.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">721</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">      font_size &lt;- input$font_size</pre>
+                      <pre class="language-r">#' @param trt_group_level vector that can be used to define factor</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">722</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">      dot_size &lt;- input$dot_size</pre>
+                      <pre class="language-r">#' level of `trt_group`.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">723</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">      reg_text_size &lt;- input$reg_text_size</pre>
+                      <pre class="language-r">#' @param man_color string vector representing customized colors</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">724</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">      hline_arb &lt;- horizontal_line()$line_arb</pre>
+                      <pre class="language-r">#' @param color_comb name or hex value for combined treatment color.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">725</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">      hline_arb_label &lt;- horizontal_line()$line_arb_label</pre>
+                      <pre class="language-r">#' @param xtick numeric vector to define the tick values of `x-axis`</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">726</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">      hline_arb_color &lt;- horizontal_line()$line_arb_color</pre>
+                      <pre class="language-r">#' when x variable is numeric. Default value is `waive()`.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">727</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">      hline_vars &lt;- if (length(input$hline_vars) == 0) {</pre>
+                      <pre class="language-r">#' @param xlabel vector with same length of `xtick` to define the</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">728</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">        NULL</pre>
+                      <pre class="language-r">#' label of `x-axis` tick values. Default value is `waive()`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">729</td>
+                    <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">#' @param rotate_xlab `logical(1)` value indicating whether to rotate `x-axis` labels</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">730</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">        paste0(input$hline_vars, ".", yaxis_param)</pre>
+                      <pre class="language-r">#' @param facet_ncol numeric value indicating number of facets per row.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">731</td>
+                    <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#' @param free_x `logical(1)` should scales be `"fixed"` (`FALSE`) of `"free"` (`TRUE`) for `x-axis` in</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">732</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">      vline_arb &lt;- vertical_line()$line_arb</pre>
+                      <pre class="language-r">#' \code{\link[ggplot2]{facet_wrap}} \code{scales} parameter.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">733</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">      vline_arb_label &lt;- vertical_line()$line_arb_label</pre>
+                      <pre class="language-r">#' @param plot_height controls plot height.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">734</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">      vline_arb_color &lt;- vertical_line()$line_arb_color</pre>
+                      <pre class="language-r">#' @param plot_width optional, controls plot width.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">735</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">      vline_vars &lt;- if (length(input$vline_vars) == 0) {</pre>
+                      <pre class="language-r">#' @param font_size control font size for title, `x-axis`, `y-axis` and legend font.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">736</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">        NULL</pre>
+                      <pre class="language-r">#' @param group_stats control group mean or median overlay.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">737</td>
+                    <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">#' @param hline_arb numeric vector of at most 2 values identifying intercepts for arbitrary horizontal lines.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">738</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">        paste0(input$vline_vars, ".", xaxis_param)</pre>
+                      <pre class="language-r">#' @param hline_arb_color a character vector of at most length of \code{hline_arb}.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">739</td>
+                    <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#' naming the color for the arbitrary horizontal lines.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">740</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">      facet_ncol &lt;- input$facet_ncol</pre>
+                      <pre class="language-r">#' @param hline_arb_label a character vector of at most length of \code{hline_arb}.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">741</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">#' naming the label for the arbitrary horizontal lines.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">742</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">44</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        is.na(facet_ncol) || (as.numeric(facet_ncol) &gt; 0 &amp;&amp; as.numeric(facet_ncol) %% 1 == 0),</pre>
+                      <pre class="language-r">#' @param hline_vars a character vector to name the columns that will define additional horizontal lines.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">743</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">        "Number of plots per row must be a positive integer"</pre>
+                      <pre class="language-r">#' @param hline_vars_colors a character vector naming the colors for the additional horizontal lines.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">744</td>
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ))</pre>
+                      <pre class="language-r">#' @param hline_vars_labels a character vector naming the labels for the additional horizontal lines that will appear</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">745</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">      visit_facet &lt;- input$visit_facet</pre>
+                      <pre class="language-r">#'  in the legend.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">746</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">      facet &lt;- input$trt_facet</pre>
+                      <pre class="language-r">#' @inheritParams teal.widgets::standard_layout</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">747</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">      reg_line &lt;- input$reg_line</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">748</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">      loq_legend &lt;- input$loq_legend</pre>
+                      <pre class="language-r">#' @author Wenyi Liu (luiw2) wenyi.liu@roche.com</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">749</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">      rotate_xlab &lt;- input$rotate_xlab</pre>
+                      <pre class="language-r">#' @author Balazs Toth (tothb2) toth.balazs@gene.com</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">750</td>
+                    <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # nolint end</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">751</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">      title_text &lt;- plot_labels()$title_text</pre>
+                      <pre class="language-r">#' @return \code{shiny} object</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">752</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">      xaxis_lab &lt;- plot_labels()$xaxis_lab</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">55</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      yaxis_lab &lt;- plot_labels()$yaxis_lab</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">754</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">      validate(need(input$trt_group, "Please select a treatment variable"))</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">57</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      trt_group &lt;- input$trt_group</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">756</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">757</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">      teal.code::eval_code(</pre>
+                      <pre class="language-r">#' # Example using ADaM structure analysis dataset.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">758</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">        object = plot_data_transpose()$qenv,</pre>
+                      <pre class="language-r">#' data &lt;- teal_data()</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">759</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">        code = bquote({</pre>
+                      <pre class="language-r">#' data &lt;- within(data, {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">760</td>
+                    <td class="num">62</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          # re-establish treatment variable label</pre>
+                      <pre class="language-r">#'   library(dplyr)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">761</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">          p &lt;- goshawk::g_correlationplot(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">762</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">            data = ANL_TRANSPOSED,</pre>
+                      <pre class="language-r">#'   # original ARM value = dose value</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">763</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">            param_var = .(param_var),</pre>
+                      <pre class="language-r">#'   arm_mapping &lt;- list(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">764</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">            xaxis_param = .(xaxis_param),</pre>
+                      <pre class="language-r">#'     "A: Drug X" = "150mg QD",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">765</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">            xaxis_var = .(xaxis_var),</pre>
+                      <pre class="language-r">#'     "B: Placebo" = "Placebo",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">766</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">            xvar = .(xvar()),</pre>
+                      <pre class="language-r">#'     "C: Combination" = "Combination"</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">767</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">            yaxis_param = .(yaxis_param),</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">768</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            yaxis_var = .(yaxis_var),</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">769</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            yvar = .(yvar()),</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">770</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            trt_group = .(trt_group),</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">771</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            xlim = .(xlim),</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">772</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            ylim = .(ylim),</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">773</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            title_text = .(title_text),</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">774</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            xaxis_lab = .(xaxis_lab),</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">775</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            yaxis_lab = .(yaxis_lab),</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">776</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            color_manual = .(color_manual),</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">777</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            shape_manual = .(shape_manual),</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">778</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            facet_ncol = .(facet_ncol),</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">779</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            visit_facet = .(visit_facet),</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">780</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            facet = .(facet),</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">781</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            facet_var = .(trt_group),</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">782</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            reg_line = .(reg_line),</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">783</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            font_size = .(font_size),</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">784</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            dot_size = .(dot_size),</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">785</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            reg_text_size = .(reg_text_size),</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">786</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            loq_legend = .(loq_legend),</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">787</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            rotate_xlab = .(rotate_xlab),</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">788</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            hline_arb = .(hline_arb),</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">789</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            hline_arb_label = .(hline_arb_label),</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">790</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            hline_arb_color = .(hline_arb_color),</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">791</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            hline_vars = .(hline_vars),</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">792</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            hline_vars_colors = .(hline_vars_colors[seq_along(hline_vars)]),</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">793</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            hline_vars_labels = .(paste(hline_vars_labels[seq_along(hline_vars)], "-", yaxis_param)),</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">794</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            vline_arb = .(vline_arb),</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">795</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            vline_arb_label = .(vline_arb_label),</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">796</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            vline_arb_color = .(vline_arb_color),</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">797</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            vline_vars = .(vline_vars),</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">798</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            vline_vars_colors = .(vline_vars_colors[seq_along(vline_vars)]),</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">799</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            vline_vars_labels = .(paste(vline_vars_labels[seq_along(vline_vars)], "-", xaxis_param))</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">800</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">801</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          print(p)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">802</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        })</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">803</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <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">805</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">806</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    plot_r &lt;- reactive(plot_q()[["p"]])</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">807</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">808</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    plot_data &lt;- teal.widgets::plot_with_settings_srv(</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">809</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      id = "plot",</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">810</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      plot_r = plot_r,</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">811</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      height = plot_height,</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">812</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      width = plot_width,</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">813</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">814</td>
+                    <td class="num">70</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#'   set.seed(1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">815</td>
+                    <td class="num">71</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   ADSL &lt;- goshawk::rADSL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">816</td>
+                    <td class="num">72</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   ADLB &lt;- goshawk::rADLB</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">817</td>
+                    <td class="num">73</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ### REPORTER</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">818</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">819</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">820</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        constraint_description &lt;- paste(</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">821</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          "\nTreatment Variable Faceting:",</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">822</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          input$trt_facet,</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">823</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          "\nRegression Line:",</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">824</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          input$reg_line</pre>
+                      <pre class="language-r">#'   var_labels &lt;- lapply(ADLB, function(x) attributes(x)$label)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">825</td>
+                    <td class="num">74</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">826</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        card &lt;- report_card_template_goshawk(</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">827</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          title = "Correlation Plot",</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">828</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">829</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">830</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="missed">
-                    <td class="num">831</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          constraint_list = list(</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">832</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            constraint_var = input$constraint_var,</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">833</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            constraint_range_min = input$constraint_range_min,</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">834</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            constraint_range_max = input$constraint_range_max</pre>
+                      <pre class="language-r">#'   ADLB &lt;- ADLB %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">835</td>
+                    <td class="num">75</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ),</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">836</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          constraint_description = constraint_description,</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">837</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          style = "verbatim"</pre>
+                      <pre class="language-r">#'     dplyr::mutate(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">838</td>
+                    <td class="num">76</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">839</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">840</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        card$append_plot(plot_r(), dim = plot_data$dim())</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">841</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">842</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">843</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          card$append_text(comment)</pre>
+                      <pre class="language-r">#'       AVISITCD = dplyr::case_when(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">844</td>
+                    <td class="num">77</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">#'         AVISIT == "SCREENING" ~ "SCR",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">845</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">        card$append_src(teal.code::get_code(plot_q()))</pre>
+                      <pre class="language-r">#'         AVISIT == "BASELINE" ~ "BL",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">846</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">        card</pre>
+                      <pre class="language-r">#'         grepl("WEEK", AVISIT) ~ paste("W", stringr::str_extract(AVISIT, "(?&lt;=(WEEK ))[0-9]+")),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">847</td>
+                    <td class="num">80</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#'         TRUE ~ as.character(NA)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">848</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">      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">849</td>
+                    <td class="num">82</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#'       AVISITCDN = dplyr::case_when(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">850</td>
+                    <td class="num">83</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ###</pre>
+                      <pre class="language-r">#'         AVISITCD == "SCR" ~ -2,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">851</td>
+                    <td class="num">84</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'         AVISITCD == "BL" ~ 0,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">852</td>
+                    <td class="num">85</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # highlight plot area</pre>
+                      <pre class="language-r">#'         grepl("W", AVISITCD) ~ as.numeric(gsub("[^0-9]*", "", AVISITCD)),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">853</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">    output$brush_data &lt;- DT::renderDataTable({</pre>
+                      <pre class="language-r">#'         TRUE ~ as.numeric(NA)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">854</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">      req(iv_r()$is_valid())</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">88</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      plot_brush &lt;- plot_data$brush()</pre>
+                      <pre class="language-r">#'       AVISITCD = factor(AVISITCD) %&gt;% reorder(AVISITCDN),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">856</td>
+                    <td class="num">89</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'       TRTORD = dplyr::case_when(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">857</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">      ANL_TRANSPOSED &lt;- isolate(plot_data_transpose()$ANL_TRANSPOSED) # nolint</pre>
+                      <pre class="language-r">#'         ARMCD == "ARM C" ~ 1,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">858</td>
+                    <td class="num">91</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'         ARMCD == "ARM B" ~ 2,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">859</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">      df &lt;- teal.widgets::clean_brushedPoints(</pre>
+                      <pre class="language-r">#'         ARMCD == "ARM A" ~ 3</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">860</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">        dplyr::select(</pre>
+                      <pre class="language-r">#'       ),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">861</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">          ANL_TRANSPOSED, "USUBJID", dplyr::all_of(input$trt_group), "AVISITCD",</pre>
+                      <pre class="language-r">#'       ARM = as.character(arm_mapping[match(ARM, names(arm_mapping))]),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">862</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">          dplyr::all_of(c(xvar(), yvar())), "LOQFL_COMB"</pre>
+                      <pre class="language-r">#'       ARM = factor(ARM) %&gt;% reorder(TRTORD),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">863</td>
+                    <td class="num">96</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ),</pre>
+                      <pre class="language-r">#'       ACTARM = as.character(arm_mapping[match(ACTARM, names(arm_mapping))]),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">864</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">        plot_brush</pre>
+                      <pre class="language-r">#'       ACTARM = factor(ACTARM) %&gt;% reorder(TRTORD),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">865</td>
+                    <td class="num">98</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#'       ANRLO = 30,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">866</td>
+                    <td class="num">99</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'       ANRHI = 75</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">867</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">      numeric_cols &lt;- names(dplyr::select_if(df, is.numeric))</pre>
+                      <pre class="language-r">#'     ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">868</td>
+                    <td class="num">101</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'     dplyr::rowwise() %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">869</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">      DT::datatable(df, rownames = FALSE, options = list(scrollX = TRUE)) %&gt;%</pre>
+                      <pre class="language-r">#'     dplyr::group_by(PARAMCD) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">870</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">        DT::formatRound(numeric_cols, 4)</pre>
+                      <pre class="language-r">#'     dplyr::mutate(LBSTRESC = ifelse(USUBJID %in% sample(USUBJID, 1, replace = TRUE),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">871</td>
+                    <td class="num">104</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">#'       paste("&lt;", round(runif(1, min = 25, max = 30))), LBSTRESC</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">872</td>
+                    <td class="num">105</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">873</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::verbatim_popup_srv(</pre>
+                      <pre class="language-r">#'     dplyr::mutate(LBSTRESC = ifelse(USUBJID %in% sample(USUBJID, 1, replace = TRUE),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">874</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">      id = "warning",</pre>
+                      <pre class="language-r">#'       paste("&gt;", round(runif(1, min = 70, max = 75))), LBSTRESC</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">875</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">      verbatim_content = reactive(teal.code::get_warnings(plot_q())),</pre>
+                      <pre class="language-r">#'     )) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">876</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">      title = "Warning",</pre>
+                      <pre class="language-r">#'     ungroup()</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">877</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">      disabled = reactive(is.null(teal.code::get_warnings(plot_q())))</pre>
+                      <pre class="language-r">#'   attr(ADLB[["ARM"]], "label") &lt;- var_labels[["ARM"]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">878</td>
+                    <td class="num">111</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#'   attr(ADLB[["ACTARM"]], "label") &lt;- var_labels[["ACTARM"]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">879</td>
+                    <td class="num">112</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   attr(ADLB[["ANRLO"]], "label") &lt;- "Analysis Normal Range Lower Limit"</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">880</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">    teal.widgets::verbatim_popup_srv(</pre>
+                      <pre class="language-r">#'   attr(ADLB[["ANRHI"]], "label") &lt;- "Analysis Normal Range Upper Limit"</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">881</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">      id = "rcode",</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">115</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      verbatim_content = reactive(teal.code::get_code(plot_q())),</pre>
+                      <pre class="language-r">#'   # add LLOQ and ULOQ variables</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">883</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">      title = "Show R Code for Correlation Plot"</pre>
+                      <pre class="language-r">#'   ALB_LOQS &lt;- goshawk:::h_identify_loq_values(ADLB)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">884</td>
+                    <td class="num">117</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#'   ADLB &lt;- dplyr::left_join(ADLB, ALB_LOQS, by = "PARAM")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">885</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">886</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>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/tm_g_gh_scatterplot.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">120</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Scatter Plot Teal Module For Biomarker Analysis</pre>
+                      <pre class="language-r">#' datanames &lt;- c("ADSL", "ADLB")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">121</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' datanames(data) &lt;- datanames</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">122</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description</pre>
+                      <pre class="language-r">#' join_keys(data) &lt;- default_cdisc_join_keys[datanames]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">123</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `r lifecycle::badge("deprecated")`</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">124</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' app &lt;- teal::init(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">125</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  `tm_g_gh_scatterplot` is deprecated. Please use [tm_g_gh_correlationplot]</pre>
+                      <pre class="language-r">#'   data = data,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">126</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   instead.</pre>
+                      <pre class="language-r">#'   modules = teal::modules(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">127</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     teal.goshawk::tm_g_gh_spaghettiplot(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">128</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams teal.widgets::standard_layout</pre>
+                      <pre class="language-r">#'       label = "Spaghetti Plot",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">129</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param label menu item label of the module in the teal app.</pre>
+                      <pre class="language-r">#'       dataname = "ADLB",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">130</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param dataname analysis data passed to the data argument of \code{\link[teal]{init}}. E.g. `ADaM` structured</pre>
+                      <pre class="language-r">#'       param_var = "PARAMCD",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">131</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' laboratory data frame \code{ADLB}.</pre>
+                      <pre class="language-r">#'       param = choices_selected(c("ALT", "CRP", "IGA"), "ALT"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">132</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param param_var name of variable containing biomarker codes e.g. \code{PARAMCD}.</pre>
+                      <pre class="language-r">#'       idvar = "USUBJID",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">133</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param param biomarker selected.</pre>
+                      <pre class="language-r">#'       xaxis_var = choices_selected(c("Analysis Visit Code" = "AVISITCD"), "AVISITCD"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">134</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param xaxis_var name of variable containing biomarker results displayed on `x-axis` e.g. \code{BASE}.</pre>
+                      <pre class="language-r">#'       yaxis_var = choices_selected(c("AVAL", "CHG", "PCHG"), "AVAL"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">135</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param yaxis_var name of variable containing biomarker results displayed on `y-axis` e.g. \code{AVAL}.</pre>
+                      <pre class="language-r">#'       filter_var = choices_selected(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">136</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param trt_group \code{\link[teal.transform]{choices_selected}} object with available choices and pre-selected option</pre>
+                      <pre class="language-r">#'         c("None" = "NONE", "Screening" = "BASE2", "Baseline" = "BASE"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">137</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' for variable names representing treatment group e.g. `ARM`.</pre>
+                      <pre class="language-r">#'         "NONE"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">138</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param color_manual vector of colors applied to treatment values.</pre>
+                      <pre class="language-r">#'       ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">139</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param shape_manual vector of symbols applied to `LOQ` values.</pre>
+                      <pre class="language-r">#'       trt_group = choices_selected(c("ARM", "ACTARM"), "ARM"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">140</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param facet_ncol numeric value indicating number of facets per row.</pre>
+                      <pre class="language-r">#'       color_comb = "#39ff14",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">141</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param trt_facet facet by treatment group \code{trt_group}.</pre>
+                      <pre class="language-r">#'       man_color = c(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">23</td>
+                    <td class="num">142</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param reg_line include regression line and annotations for slope and coefficient in visualization. Use with facet</pre>
+                      <pre class="language-r">#'         "Combination" = "#000000",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">143</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   TRUE.</pre>
+                      <pre class="language-r">#'         "Placebo" = "#fce300",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">144</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param rotate_xlab 45 degree rotation of `x-axis` values.</pre>
+                      <pre class="language-r">#'         "150mg QD" = "#5a2f5f"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">145</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param hline y-axis value to position of horizontal line.</pre>
+                      <pre class="language-r">#'       ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">146</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param vline x-axis value to position a vertical line.</pre>
+                      <pre class="language-r">#'       hline_arb = c(60, 50),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">28</td>
+                    <td class="num">147</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param plot_height controls plot height.</pre>
+                      <pre class="language-r">#'       hline_arb_color = c("grey", "red"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">29</td>
+                    <td class="num">148</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param plot_width optional, controls plot width.</pre>
+                      <pre class="language-r">#'       hline_arb_label = c("default A", "default B"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">149</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param font_size font size control for title, `x-axis` label, `y-axis` label and legend.</pre>
+                      <pre class="language-r">#'       hline_vars = c("ANRHI", "ANRLO", "ULOQN", "LLOQN"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
+                    <td class="num">150</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param dot_size plot dot size.</pre>
+                      <pre class="language-r">#'       hline_vars_colors = c("pink", "brown", "purple", "black"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">32</td>
+                    <td class="num">151</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param reg_text_size font size control for regression line annotations.</pre>
+                      <pre class="language-r">#'     )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</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">34</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">35</td>
+                    <td class="num">154</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' if (interactive()) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">36</td>
+                    <td class="num">155</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">37</td>
+                    <td class="num">156</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @author Nick Paszty (npaszty) paszty.nicholas@gene.com</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">157</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @author Balazs Toth (tothb2)  toth.balazs@gene.com</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">158</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">tm_g_gh_spaghettiplot &lt;- function(label,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">159</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">                                  dataname,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">160</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                  param_var,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">161</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Example using ADaM structure analysis dataset.</pre>
+                      <pre class="language-r">                                  param,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <td class="num">162</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' data &lt;- teal_data()</pre>
+                      <pre class="language-r">                                  param_var_label = "PARAM",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">44</td>
+                    <td class="num">163</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' data &lt;- within(data, {</pre>
+                      <pre class="language-r">                                  idvar,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">45</td>
+                    <td class="num">164</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   # original ARM value = dose value</pre>
+                      <pre class="language-r">                                  xaxis_var,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">46</td>
+                    <td class="num">165</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   arm_mapping &lt;- list(</pre>
+                      <pre class="language-r">                                  yaxis_var,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">47</td>
+                    <td class="num">166</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     "A: Drug X" = "150mg QD",</pre>
+                      <pre class="language-r">                                  xaxis_var_level = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">48</td>
+                    <td class="num">167</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     "B: Placebo" = "Placebo",</pre>
+                      <pre class="language-r">                                  filter_var = yaxis_var,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">49</td>
+                    <td class="num">168</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     "C: Combination" = "Combination"</pre>
+                      <pre class="language-r">                                  trt_group,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">50</td>
+                    <td class="num">169</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">                                  trt_group_level = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">51</td>
+                    <td class="num">170</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                  group_stats = "NONE",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">52</td>
+                    <td class="num">171</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ADSL &lt;- goshawk::rADSL</pre>
+                      <pre class="language-r">                                  man_color = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">53</td>
+                    <td class="num">172</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ADLB &lt;- goshawk::rADLB</pre>
+                      <pre class="language-r">                                  color_comb = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">54</td>
+                    <td class="num">173</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   var_labels &lt;- lapply(ADLB, function(x) attributes(x)$label)</pre>
+                      <pre class="language-r">                                  xtick = ggplot2::waiver(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">55</td>
+                    <td class="num">174</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ADLB &lt;- ADLB %&gt;%</pre>
+                      <pre class="language-r">                                  xlabel = xtick,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">56</td>
+                    <td class="num">175</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     dplyr::mutate(</pre>
+                      <pre class="language-r">                                  rotate_xlab = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">57</td>
+                    <td class="num">176</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       AVISITCD = dplyr::case_when(</pre>
+                      <pre class="language-r">                                  facet_ncol = 2,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">58</td>
+                    <td class="num">177</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         AVISIT == "SCREENING" ~ "SCR",</pre>
+                      <pre class="language-r">                                  free_x = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">59</td>
+                    <td class="num">178</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         AVISIT == "BASELINE" ~ "BL",</pre>
+                      <pre class="language-r">                                  plot_height = c(600, 200, 2000),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">60</td>
+                    <td class="num">179</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         grepl("WEEK", AVISIT) ~ paste("W", stringr::str_extract(AVISIT, "(?&lt;=(WEEK ))[0-9]+")),</pre>
+                      <pre class="language-r">                                  plot_width = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">61</td>
+                    <td class="num">180</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         TRUE ~ as.character(NA)</pre>
+                      <pre class="language-r">                                  font_size = c(12, 8, 20),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">62</td>
+                    <td class="num">181</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       ),</pre>
+                      <pre class="language-r">                                  hline_arb = numeric(0),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">63</td>
+                    <td class="num">182</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       AVISITCDN = dplyr::case_when(</pre>
+                      <pre class="language-r">                                  hline_arb_color = "red",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">64</td>
+                    <td class="num">183</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         AVISITCD == "SCR" ~ -2,</pre>
+                      <pre class="language-r">                                  hline_arb_label = "Horizontal line",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">65</td>
+                    <td class="num">184</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         AVISITCD == "BL" ~ 0,</pre>
+                      <pre class="language-r">                                  hline_vars = character(0),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">66</td>
+                    <td class="num">185</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         grepl("W", AVISITCD) ~ as.numeric(gsub("[^0-9]*", "", AVISITCD)),</pre>
+                      <pre class="language-r">                                  hline_vars_colors = "green",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">67</td>
+                    <td class="num">186</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         TRUE ~ as.numeric(NA)</pre>
+                      <pre class="language-r">                                  hline_vars_labels = hline_vars,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">68</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_output = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">69</td>
+                    <td class="num">188</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       AVISITCD = factor(AVISITCD) %&gt;% stats::reorder(AVISITCDN),</pre>
+                      <pre class="language-r">                                  post_output = NULL) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">70</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">#'       TRTORD = dplyr::case_when(</pre>
+                      <pre class="language-r">  logger::log_info("Initializing tm_g_gh_spaghettiplot")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">71</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">#'         ARMCD == "ARM C" ~ 1,</pre>
+                      <pre class="language-r">  checkmate::assert_class(param, "choices_selected")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">72</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">#'         ARMCD == "ARM B" ~ 2,</pre>
+                      <pre class="language-r">  checkmate::assert_class(xaxis_var, "choices_selected")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">73</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">#'         ARMCD == "ARM A" ~ 3</pre>
+                      <pre class="language-r">  checkmate::assert_class(yaxis_var, "choices_selected")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">74</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">  checkmate::assert_class(trt_group, "choices_selected")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">75</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">#'       ARM = as.character(arm_mapping[match(ARM, names(arm_mapping))]),</pre>
+                      <pre class="language-r">  validate_line_arb_arg(hline_arb, hline_arb_color, hline_arb_label)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">76</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">#'       ARM = factor(ARM) %&gt;% stats::reorder(TRTORD),</pre>
+                      <pre class="language-r">  validate_line_vars_arg(hline_vars, hline_vars_colors, hline_vars_labels)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">77</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">#'       ACTARM = as.character(arm_mapping[match(ACTARM, names(arm_mapping))]),</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">78</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">#'       ACTARM = factor(ACTARM) %&gt;% stats::reorder(TRTORD)</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">79</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">  checkmate::assert_numeric(plot_width, len = 3, any.missing = FALSE, null.ok = TRUE, finite = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">80</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">#'   attr(ADLB[["ARM"]], "label") &lt;- var_labels[["ARM"]]</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(plot_width[1],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">81</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">#'   attr(ADLB[["ACTARM"]], "label") &lt;- var_labels[["ACTARM"]]</pre>
+                      <pre class="language-r">    lower = plot_width[2], upper = plot_width[3], null.ok = TRUE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">82</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">#' })</pre>
+                      <pre class="language-r">    .var.name = "plot_width"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">83</td>
+                    <td class="num">202</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">84</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">#' datanames &lt;- c("ADSL", "ADLB")</pre>
+                      <pre class="language-r">  checkmate::assert_flag(free_x)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">85</td>
+                    <td class="num">204</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">86</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">#' join_keys(data) &lt;- default_cdisc_join_keys[datanames]</pre>
+                      <pre class="language-r">  args &lt;- as.list(environment())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">87</td>
+                    <td class="num">206</td>
                     <td class="coverage"></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">207</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  module(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">89</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">#' app &lt;- teal::init(</pre>
+                      <pre class="language-r">    label = label,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">90</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">#'   data = data,</pre>
+                      <pre class="language-r">    server = srv_g_spaghettiplot,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">91</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">#'   modules = teal::modules(</pre>
+                      <pre class="language-r">    server_args = list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">92</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">#'     teal.goshawk::tm_g_gh_scatterplot(</pre>
+                      <pre class="language-r">      dataname = dataname,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">93</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">#'       label = "Scatter Plot",</pre>
+                      <pre class="language-r">      idvar = idvar,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">94</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">#'       dataname = "ADLB",</pre>
+                      <pre class="language-r">      param_var = param_var,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">95</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">#'       param_var = "PARAMCD",</pre>
+                      <pre class="language-r">      trt_group = trt_group,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">96</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">#'       param = choices_selected(c("ALT", "CRP", "IGA"), "ALT"),</pre>
+                      <pre class="language-r">      xaxis_var_level = xaxis_var_level,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">97</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">#'       xaxis_var = choices_selected(c("AVAL", "BASE", "CHG", "PCHG"), "BASE"),</pre>
+                      <pre class="language-r">      trt_group_level = trt_group_level,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">98</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">#'       yaxis_var = choices_selected(c("AVAL", "BASE", "CHG", "PCHG"), "AVAL"),</pre>
+                      <pre class="language-r">      man_color = man_color,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">99</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">#'       trt_group = choices_selected(c("ARM", "ACTARM"), "ARM"),</pre>
+                      <pre class="language-r">      color_comb = color_comb,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">100</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">#'       color_manual = c(</pre>
+                      <pre class="language-r">      param_var_label = param_var_label,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">101</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">#'         "150mg QD" = "#000000",</pre>
+                      <pre class="language-r">      xtick = xtick,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">102</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">#'         "Placebo" = "#3498DB",</pre>
+                      <pre class="language-r">      xlabel = xlabel,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">103</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">#'         "Combination" = "#E74C3C"</pre>
+                      <pre class="language-r">      plot_height = plot_height,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">104</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">      plot_width = plot_width,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">105</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">#'       shape_manual = c("N" = 1, "Y" = 2, "NA" = 0),</pre>
+                      <pre class="language-r">      hline_vars_colors = hline_vars_colors,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">106</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">#'       plot_height = c(500, 200, 2000),</pre>
+                      <pre class="language-r">      hline_vars_labels = hline_vars_labels</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">107</td>
+                    <td class="num">226</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       facet_ncol = 2,</pre>
+                      <pre class="language-r">    ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">108</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">#'       trt_facet = FALSE,</pre>
+                      <pre class="language-r">    ui = g_ui_spaghettiplot,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">109</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">#'       reg_line = FALSE,</pre>
+                      <pre class="language-r">    ui_args = args,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">110</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">#'       font_size = c(12, 8, 20),</pre>
+                      <pre class="language-r">    datanames = dataname</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">111</td>
+                    <td class="num">230</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       dot_size = c(1, 1, 12),</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">112</td>
+                    <td class="num">231</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       reg_text_size = c(3, 3, 10)</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">113</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">114</td>
+                    <td class="num">233</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">g_ui_spaghettiplot &lt;- function(id, ...) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">115</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">116</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 (interactive()) {</pre>
+                      <pre class="language-r">  a &lt;- list(...)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">117</td>
+                    <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"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">118</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">  shiny::tagList(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">119</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">    include_css_files("custom"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">120</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">tm_g_gh_scatterplot &lt;- function(label,</pre>
+                      <pre class="language-r">    teal.widgets::standard_layout(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">121</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">                                dataname,</pre>
+                      <pre class="language-r">      output = templ_ui_output_datatable(ns),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">122</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">                                param_var,</pre>
+                      <pre class="language-r">      encoding = div(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">123</td>
+                    <td class="num">242</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                param,</pre>
+                      <pre class="language-r">        ### Reporter</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">124</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">                                xaxis_var,</pre>
+                      <pre class="language-r">        teal.reporter::simple_reporter_ui(ns("simple_reporter")),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">125</td>
+                    <td class="num">244</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                yaxis_var,</pre>
+                      <pre class="language-r">        ###</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">126</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">                                trt_group,</pre>
+                      <pre class="language-r">        templ_ui_dataname(a$dataname),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">127</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">                                color_manual = NULL,</pre>
+                      <pre class="language-r">        teal.widgets::optionalSelectInput(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">128</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">                                shape_manual = NULL,</pre>
+                      <pre class="language-r">          ns("trt_group"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">129</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">                                facet_ncol = 2,</pre>
+                      <pre class="language-r">          label = "Select Treatment Variable",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">130</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">                                trt_facet = FALSE,</pre>
+                      <pre class="language-r">          choices = a$trt_group$choices,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">131</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">                                reg_line = FALSE,</pre>
+                      <pre class="language-r">          selected = a$trt_group$selected,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">132</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">                                rotate_xlab = FALSE,</pre>
+                      <pre class="language-r">          multiple = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">133</td>
+                    <td class="num">252</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                hline = NULL,</pre>
+                      <pre class="language-r">        ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">134</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">                                vline = NULL,</pre>
+                      <pre class="language-r">        templ_ui_params_vars(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">135</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">                                plot_height = c(500, 200, 2000),</pre>
+                      <pre class="language-r">          ns,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">136</td>
+                    <td class="num">255</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                plot_width = NULL,</pre>
+                      <pre class="language-r">          # xparam and yparam are identical, so we only show the user one</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">137</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">                                font_size = c(12, 8, 20),</pre>
+                      <pre class="language-r">          xparam_choices = a$param$choices, xparam_selected = a$param$selected, xparam_label = "Select a Biomarker",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">138</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">                                dot_size = c(1, 1, 12),</pre>
+                      <pre class="language-r">          xchoices = a$xaxis_var$choices, xselected = a$xaxis_var$selected,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">139</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">                                reg_text_size = c(3, 3, 10),</pre>
+                      <pre class="language-r">          ychoices = a$yaxis_var$choices, yselected = a$yaxis_var$selected</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">140</td>
+                    <td class="num">259</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">141</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">                                post_output = NULL) {</pre>
+                      <pre class="language-r">        radioButtons(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">142</td>
+                    <td class="num">261</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lifecycle::deprecate_soft(</pre>
+                      <pre class="language-r">          ns("group_stats"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">143</td>
+                    <td class="num">262</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    when = "0.1.15",</pre>
+                      <pre class="language-r">          "Group Statistics",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">144</td>
+                    <td class="num">263</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    what = "tm_g_gh_scatterplot()",</pre>
+                      <pre class="language-r">          c("None" = "NONE", "Mean" = "MEAN", "Median" = "MEDIAN"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">145</td>
+                    <td class="num">264</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    details = "You should use teal.goshawk::tm_g_gh_correlationplot instead of teal.goshawk::tm_g_gh_scatterplot"</pre>
+                      <pre class="language-r">          inline = TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">146</td>
+                    <td class="num">265</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">        ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">147</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">266</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        templ_ui_constraint(ns), # required by constr_anl_q</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">148</td>
+                    <td class="num">267</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  logger::log_info("Initializing tm_g_gh_scatterplot")</pre>
+                      <pre class="language-r">        if (length(a$hline_vars) &gt; 0) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">149</td>
+                    <td class="num">268</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(param, "choices_selected")</pre>
+                      <pre class="language-r">          teal.widgets::optionalSelectInput(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">150</td>
+                    <td class="num">269</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(xaxis_var, "choices_selected")</pre>
+                      <pre class="language-r">            ns("hline_vars"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">151</td>
+                    <td class="num">270</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(yaxis_var, "choices_selected")</pre>
+                      <pre class="language-r">            label = "Add Horizontal Range Line(s):",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">152</td>
+                    <td class="num">271</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(trt_group, "choices_selected")</pre>
+                      <pre class="language-r">            choices = a$hline_vars,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">153</td>
+                    <td class="num">272</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(trt_facet)</pre>
+                      <pre class="language-r">            selected = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">154</td>
+                    <td class="num">273</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(reg_line)</pre>
+                      <pre class="language-r">            multiple = TRUE</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">        },</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">155</td>
+                    <td class="num">276</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(rotate_xlab)</pre>
+                      <pre class="language-r">        ui_arbitrary_lines(id = ns("hline_arb"), a$hline_arb, a$hline_arb_label, a$hline_arb_color),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">156</td>
+                    <td class="num">277</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">        teal.widgets::panel_group(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">157</td>
+                    <td class="num">278</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">          teal.widgets::panel_item(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">158</td>
+                    <td class="num">279</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">            title = "Plot Aesthetic Settings",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">159</td>
+                    <td class="num">280</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(</pre>
+                      <pre class="language-r">            div(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">160</td>
+                    <td class="num">281</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    plot_width[1],</pre>
+                      <pre class="language-r">              toggle_slider_ui(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">161</td>
+                    <td class="num">282</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">                ns("yrange_scale"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">162</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">                label = "Y-Axis Range Zoom",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">163</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">284</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                min = -1000000,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">164</td>
+                    <td class="num">285</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  args &lt;- as.list(environment())</pre>
+                      <pre class="language-r">                max = 1000000,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">286</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                value = c(-1000000, 1000000)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">165</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">166</td>
+                    <td class="num">288</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  module(</pre>
+                      <pre class="language-r">              tags$div(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">167</td>
+                    <td class="num">289</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    label = label,</pre>
+                      <pre class="language-r">                class = "flex flex-wrap items-center",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">168</td>
+                    <td class="num">290</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    datanames = dataname,</pre>
+                      <pre class="language-r">                tags$div(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">169</td>
+                    <td class="num">291</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    server = srv_g_scatterplot,</pre>
+                      <pre class="language-r">                  class = "mr-1",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">170</td>
+                    <td class="num">292</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    server_args = list(</pre>
+                      <pre class="language-r">                  tags$span(tags$strong("Number of Plots Per Row:"))</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">293</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">171</td>
+                    <td class="num">294</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dataname = dataname,</pre>
+                      <pre class="language-r">                tags$div(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">172</td>
+                    <td class="num">295</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      param_var = param_var,</pre>
+                      <pre class="language-r">                  class = "w-65px",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">173</td>
+                    <td class="num">296</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      trt_group = trt_group,</pre>
+                      <pre class="language-r">                  numericInput(ns("facet_ncol"), "", a$facet_ncol, min = 1)</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="never">
+                    <td class="num">298</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">              )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">299</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">174</td>
+                    <td class="num">300</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      trt_facet = trt_facet,</pre>
+                      <pre class="language-r">            checkboxInput(ns("free_x"), "Free X-Axis Scales", a$free_x),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">175</td>
+                    <td class="num">301</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      color_manual = color_manual,</pre>
+                      <pre class="language-r">            checkboxInput(ns("rotate_xlab"), "Rotate X-Axis Label", a$rotate_xlab),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">176</td>
+                    <td class="num">302</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      shape_manual = shape_manual,</pre>
+                      <pre class="language-r">            teal.widgets::optionalSliderInputValMinMax(ns("font_size"), "Font Size", a$font_size, ticks = FALSE),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">177</td>
+                    <td class="num">303</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      plot_height = plot_height,</pre>
+                      <pre class="language-r">            teal.widgets::optionalSliderInputValMinMax(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">178</td>
+                    <td class="num">304</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      plot_width = plot_width</pre>
+                      <pre class="language-r">              ns("alpha"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">179</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">              "Line Alpha",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">180</td>
+                    <td class="num">306</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ui = ui_g_scatterplot,</pre>
+                      <pre class="language-r">              a$alpha,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">181</td>
+                    <td class="num">307</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ui_args = args</pre>
+                      <pre class="language-r">              value_min_max = c(0.8, 0.0, 1.0), step = 0.1, ticks = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">182</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">183</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">184</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">185</td>
+                    <td class="num">311</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">312</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">186</td>
+                    <td class="num">313</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::verbatim_popup_ui(ns("warning"), "Show Warnings"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">187</td>
+                    <td class="num">314</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  a &lt;- list(...)</pre>
+                      <pre class="language-r">        teal.widgets::verbatim_popup_ui(ns("rcode"), "Show R code")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">188</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="missed">
-                    <td class="num">189</td>
+                    <td class="num">316</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  teal.widgets::standard_layout(</pre>
+                      <pre class="language-r">      pre_output = a$pre_output,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">190</td>
+                    <td class="num">317</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    output = templ_ui_output_datatable(ns),</pre>
+                      <pre class="language-r">      post_output = a$post_output</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">191</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">    encoding = div(</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">192</td>
+                    <td class="num">319</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">193</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">      teal.reporter::simple_reporter_ui(ns("simple_reporter")),</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">194</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="missed">
-                    <td class="num">195</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">322</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      templ_ui_dataname(a$dataname),</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">323</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">197</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">        ns("trt_group"),</pre>
+                      <pre class="language-r">srv_g_spaghettiplot &lt;- function(id,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">198</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">        label = "Select Treatment Variable",</pre>
+                      <pre class="language-r">                                data,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">199</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">        choices = a$trt_group$choices,</pre>
+                      <pre class="language-r">                                reporter,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">200</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">        selected = a$trt_group$selected,</pre>
+                      <pre class="language-r">                                filter_panel_api,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">201</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">        multiple = FALSE</pre>
+                      <pre class="language-r">                                dataname,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">202</td>
+                    <td class="num">329</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ),</pre>
+                      <pre class="language-r">                                idvar,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">203</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">      templ_ui_params_vars(</pre>
+                      <pre class="language-r">                                param_var,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">204</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">        ns,</pre>
+                      <pre class="language-r">                                trt_group,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">205</td>
+                    <td class="num">332</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # xparam and yparam are identical, so we only show the user one</pre>
+                      <pre class="language-r">                                man_color,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">206</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">333</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        xparam_choices = a$param$choices, xparam_selected = a$param$selected, xparam_label = "Select a Biomarker",</pre>
+                      <pre class="language-r">                                color_comb,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">207</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">        xchoices = a$xaxis_var$choices, xselected = a$xaxis_var$selected,</pre>
+                      <pre class="language-r">                                xaxis_var_level,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">208</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">        ychoices = a$yaxis_var$choices, yselected = a$yaxis_var$selected</pre>
+                      <pre class="language-r">                                trt_group_level,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">209</td>
+                    <td class="num">336</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ),</pre>
+                      <pre class="language-r">                                param_var_label,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">210</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">337</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      templ_ui_constraint(ns), # required by constr_anl_q</pre>
+                      <pre class="language-r">                                xtick,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">211</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">      teal.widgets::panel_group(</pre>
+                      <pre class="language-r">                                xlabel,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">212</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">339</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        teal.widgets::panel_item(</pre>
+                      <pre class="language-r">                                plot_height,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">213</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">340</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          title = "Plot Aesthetic Settings",</pre>
+                      <pre class="language-r">                                plot_width,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">214</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">          toggle_slider_ui(ns("xrange_scale"),</pre>
+                      <pre class="language-r">                                hline_vars_colors,</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">342</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                                hline_vars_labels) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">215</td>
+                    <td class="num">343</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            label = "X-Axis Range Zoom",</pre>
+                      <pre class="language-r">  with_reporter &lt;- !missing(reporter) &amp;&amp; inherits(reporter, "Reporter")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">216</td>
+                    <td class="num">344</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            min = -1000000,</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">217</td>
+                    <td class="num">345</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            max = 1000000,</pre>
+                      <pre class="language-r">  checkmate::assert_class(data, "reactive")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">218</td>
+                    <td class="num">346</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            value = c(-1000000, 1000000)</pre>
+                      <pre class="language-r">  checkmate::assert_class(shiny::isolate(data()), "teal_data")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">219</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">220</td>
+                    <td class="num">348</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          toggle_slider_ui(ns("yrange_scale"),</pre>
+                      <pre class="language-r">  moduleServer(id, function(input, output, session) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">221</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">349</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            label = "Y-Axis Range Zoom",</pre>
+                      <pre class="language-r">    # reused in all modules</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">222</td>
+                    <td class="num">350</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            min = -1000000,</pre>
+                      <pre class="language-r">    anl_q_output &lt;- constr_anl_q(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">223</td>
+                    <td class="num">351</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            max = 1000000,</pre>
+                      <pre class="language-r">      session, input, data, dataname,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">224</td>
+                    <td class="num">352</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            value = c(-1000000, 1000000)</pre>
+                      <pre class="language-r">      param_id = "xaxis_param", param_var = param_var, trt_group = input$trt_group, min_rows = 1</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">225</td>
+                    <td class="num">353</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">354</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">226</td>
+                    <td class="num">355</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          numericInput(ns("facet_ncol"), "Number of Plots Per Row:", a$facet_ncol, min = 1),</pre>
+                      <pre class="language-r">    anl_q &lt;- anl_q_output()$value</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">          checkboxInput(ns("trt_facet"), "Treatment Variable Faceting", a$trt_facet),</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">357</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          checkboxInput(ns("reg_line"), "Regression Line", a$reg_line),</pre>
+                      <pre class="language-r">    # update sliders for axes taking constraints into account</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">229</td>
+                    <td class="num">358</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          checkboxInput(ns("rotate_xlab"), "Rotate X-axis Label", a$rotate_xlab),</pre>
+                      <pre class="language-r">    yrange_slider &lt;- toggle_slider_server("yrange_scale")</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">          numericInput(ns("hline"), "Add a horizontal line:", a$hline),</pre>
+                      <pre class="language-r">    keep_range_slider_updated(session, input, yrange_slider$update_state, "yaxis_var", "xaxis_param", anl_q)</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">          numericInput(ns("vline"), "Add a vertical line:", a$vline)</pre>
+                      <pre class="language-r">    keep_data_const_opts_updated(session, input, anl_q, "xaxis_param")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">232</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="missed">
-                    <td class="num">233</td>
+                    <td class="num">362</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        teal.widgets::panel_item(</pre>
+                      <pre class="language-r">    horizontal_line &lt;- srv_arbitrary_lines("hline_arb")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">234</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">          title = "Plot settings",</pre>
+                      <pre class="language-r"></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">          teal.widgets::optionalSliderInputValMinMax(ns("font_size"), "Font Size", a$font_size, ticks = FALSE),</pre>
+                      <pre class="language-r">    iv_r &lt;- reactive({</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">          teal.widgets::optionalSliderInputValMinMax(ns("dot_size"), "Dot Size", a$dot_size, ticks = FALSE),</pre>
+                      <pre class="language-r">      iv &lt;- shinyvalidate::InputValidator$new()</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">237</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">          teal.widgets::optionalSliderInputValMinMax(</pre>
+                      <pre class="language-r"></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">            ns("reg_text_size"),</pre>
+                      <pre class="language-r">      iv$add_rule("xaxis_param", shinyvalidate::sv_required("Please select a biomarker"))</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">            "Regression Annotations Size",</pre>
+                      <pre class="language-r">      iv$add_rule("trt_group", shinyvalidate::sv_required("Please select a treatment variable"))</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">            a$reg_text_size,</pre>
+                      <pre class="language-r">      iv$add_rule("xaxis_var", shinyvalidate::sv_required("Please select an X-Axis variable"))</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">            ticks = FALSE</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">242</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">243</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">      iv$add_rule("yaxis_var", shinyvalidate::sv_required("Please select a Y-Axis variable"))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">244</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">      iv$add_rule("facet_ncol", plots_per_row_validate_rules())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">245</td>
+                    <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">246</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">247</td>
+                    <td class="num">373</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">      iv$add_validator(horizontal_line()$iv_r())</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">248</td>
+                    <td class="num">374</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">249</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    ),</pre>
+                      <pre class="language-r">      iv$add_validator(anl_q_output()$iv_r())</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">250</td>
+                    <td class="num">375</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    pre_output = a$pre_output,</pre>
+                      <pre class="language-r">      iv$enable()</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">251</td>
+                    <td class="num">376</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    post_output = a$post_output</pre>
+                      <pre class="language-r">      iv</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">252</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">253</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">254</td>
+                    <td class="num">379</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>
+                  <tr class="missed">
+                    <td class="num">380</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">    plot_q &lt;- reactive({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">256</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">                              data,</pre>
+                      <pre class="language-r">      teal::validate_inputs(iv_r())</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">257</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">                              reporter,</pre>
+                      <pre class="language-r">      req(anl_q())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">258</td>
+                    <td class="num">383</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              filter_panel_api,</pre>
+                      <pre class="language-r">      # nolint start</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">259</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">                              dataname,</pre>
+                      <pre class="language-r">      ylim &lt;- yrange_slider$state()$value</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">260</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_var,</pre>
+                      <pre class="language-r">      facet_ncol &lt;- input$facet_ncol</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">261</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">                              trt_group,</pre>
+                      <pre class="language-r">      facet_scales &lt;- ifelse(input$free_x, "free_x", "fixed")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">262</td>
+                    <td class="num">387</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              trt_facet,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">263</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">                              color_manual,</pre>
+                      <pre class="language-r">      rotate_xlab &lt;- input$rotate_xlab</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">264</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">                              shape_manual,</pre>
+                      <pre class="language-r">      hline_arb &lt;- horizontal_line()$line_arb</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">265</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">                              plot_height,</pre>
+                      <pre class="language-r">      hline_arb_label &lt;- horizontal_line()$line_arb_label</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">266</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">                              plot_width) {</pre>
+                      <pre class="language-r">      hline_arb_color &lt;- horizontal_line()$line_arb_color</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">267</td>
+                    <td class="num">392</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">      group_stats &lt;- input$group_stats</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">268</td>
+                    <td class="num">393</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">      font_size &lt;- input$font_size</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">269</td>
+                    <td class="num">394</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(data, "reactive")</pre>
+                      <pre class="language-r">      alpha &lt;- input$alpha</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">270</td>
+                    <td class="num">395</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      validate(need(input$trt_group, "Please select a treatment variable"))</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">396</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(shiny::isolate(data()), "teal_data")</pre>
+                      <pre class="language-r">      trt_group &lt;- input$trt_group</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">271</td>
+                    <td class="num">397</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="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">398</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">      # Below inputs should trigger plot via updates of other reactive objects (i.e. anl_q()) and some inputs</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">273</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">    # reused in all modules</pre>
+                      <pre class="language-r">      param &lt;- input$xaxis_param</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">274</td>
+                    <td class="num">400</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    anl_q_output &lt;- constr_anl_q(</pre>
+                      <pre class="language-r">      xaxis_var &lt;- input$xaxis_var</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">275</td>
+                    <td class="num">401</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      session, input, data, dataname,</pre>
+                      <pre class="language-r">      yaxis_var &lt;- input$yaxis_var</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">276</td>
+                    <td class="num">402</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      param_id = "xaxis_param", param_var = param_var, trt_group = input$trt_group, min_rows = 1</pre>
+                      <pre class="language-r">      hline_vars &lt;- input$hline_vars</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">277</td>
+                    <td class="num">403</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">278</td>
+                    <td class="num">404</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">279</td>
+                    <td class="num">405</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    anl_q &lt;- anl_q_output()$value</pre>
+                      <pre class="language-r">      private_qenv &lt;- anl_q()$qenv</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">280</td>
+                    <td class="num">406</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">407</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # update sliders for axes taking constraints into account</pre>
+                      <pre class="language-r">      # this code is needed to make sure the waiver attribute</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">282</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">408</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    xrange_slider &lt;- toggle_slider_server("xrange_scale")</pre>
+                      <pre class="language-r">      # of ggplot2::waiver is correctly passed to goshawk's spaghettiplot</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">283</td>
+                    <td class="num">409</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    yrange_slider &lt;- toggle_slider_server("yrange_scale")</pre>
+                      <pre class="language-r">      if (!methods::is(xtick, "waiver")) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">284</td>
+                    <td class="num">410</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    keep_range_slider_updated(session, input, xrange_slider$update_state, "xaxis_var", "xaxis_param", anl_q)</pre>
+                      <pre class="language-r">        private_qenv &lt;- teal.code::eval_code(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">285</td>
+                    <td class="num">411</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    keep_range_slider_updated(session, input, yrange_slider$update_state, "yaxis_var", "xaxis_param", anl_q)</pre>
+                      <pre class="language-r">          object = private_qenv,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">286</td>
+                    <td class="num">412</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    keep_data_const_opts_updated(session, input, anl_q, "xaxis_param")</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">287</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          code = bquote(xtick &lt;- .(xtick))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">288</td>
+                    <td class="num">413</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # plot</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">289</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    plot_q &lt;- reactive({</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">290</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      req(anl_q())</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">291</td>
+                    <td class="num">414</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # nolint start</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">292</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      xlim &lt;- xrange_slider$state()$value</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">293</td>
+                    <td class="num">415</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ylim &lt;- yrange_slider$state()$value</pre>
+                      <pre class="language-r">        private_qenv &lt;- teal.code::eval_code(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">294</td>
+                    <td class="num">416</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      facet_ncol &lt;- input$facet_ncol</pre>
+                      <pre class="language-r">          object = private_qenv,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">295</td>
+                    <td class="num">417</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      validate(need(</pre>
+                      <pre class="language-r">          code = quote(xtick &lt;- ggplot2::waiver())</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">296</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">        is.na(facet_ncol) || (as.numeric(facet_ncol) &gt; 0 &amp;&amp; as.numeric(facet_ncol) %% 1 == 0),</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">297</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">419</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "Number of plots per row must be a positive integer"</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">298</td>
+                    <td class="num">420</td>
                     <td class="coverage"></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="num">421</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      reg_line &lt;- input$reg_line</pre>
+                      <pre class="language-r">      if (!methods::is(xlabel, "waiver")) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">300</td>
+                    <td class="num">422</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">        private_qenv &lt;- teal.code::eval_code(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">301</td>
+                    <td class="num">423</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dot_size &lt;- input$dot_size</pre>
+                      <pre class="language-r">          object = private_qenv,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">302</td>
+                    <td class="num">424</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      reg_text_size &lt;- input$reg_text_size</pre>
+                      <pre class="language-r">          code = bquote(xlabel &lt;- .(xlabel))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">303</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">425</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      rotate_xlab &lt;- input$rotate_xlab</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">304</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">      hline &lt;- input$hline</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">305</td>
+                    <td class="num">427</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      vline &lt;- input$vline</pre>
+                      <pre class="language-r">        private_qenv &lt;- teal.code::eval_code(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">306</td>
+                    <td class="num">428</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      trt_group &lt;- input$trt_group</pre>
+                      <pre class="language-r">          object = private_qenv,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">307</td>
+                    <td class="num">429</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      facet &lt;- input$trt_facet</pre>
+                      <pre class="language-r">          code = quote(xlabel &lt;- ggplot2::waiver())</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">308</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">      validate(need(trt_group, "Please select a treatment variable"))</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">309</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">310</td>
+                    <td class="num">432</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # Below inputs should trigger plot via updates of other reactive objects (i.e. anl_q()) and some inputs</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">311</td>
+                    <td class="num">433</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      validate(need(input$xaxis_var, "Please select an X-Axis Variable"))</pre>
+                      <pre class="language-r">      teal.code::eval_code(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">312</td>
+                    <td class="num">434</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      validate(need(input$yaxis_var, "Please select a Y-Axis Variable"))</pre>
+                      <pre class="language-r">        object = private_qenv,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">313</td>
+                    <td class="num">435</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      param &lt;- input$xaxis_param</pre>
+                      <pre class="language-r">        code = bquote({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">314</td>
+                    <td class="num">436</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      xaxis &lt;- input$xaxis_var</pre>
+                      <pre class="language-r">          p &lt;- goshawk::g_spaghettiplot(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">315</td>
+                    <td class="num">437</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      yaxis &lt;- input$yaxis_var</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">316</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">            data = ANL,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">317</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">      # nolint end</pre>
+                      <pre class="language-r">            subj_id = .(idvar),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">318</td>
+                    <td class="num">439</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.code::eval_code(</pre>
+                      <pre class="language-r">            biomarker_var = .(param_var),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">319</td>
+                    <td class="num">440</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        object = anl_q()$qenv,</pre>
+                      <pre class="language-r">            biomarker_var_label = .(param_var_label),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">320</td>
+                    <td class="num">441</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        code = bquote({</pre>
+                      <pre class="language-r">            biomarker = .(param),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">321</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">          # re-establish treatment variable label</pre>
+                      <pre class="language-r">            value_var = .(yaxis_var),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">322</td>
+                    <td class="num">443</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          p &lt;- goshawk::g_scatterplot(</pre>
+                      <pre class="language-r">            trt_group = .(trt_group),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">323</td>
+                    <td class="num">444</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            data = ANL,</pre>
+                      <pre class="language-r">            trt_group_level = .(trt_group_level),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">324</td>
+                    <td class="num">445</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            param_var = .(param_var),</pre>
+                      <pre class="language-r">            time = .(xaxis_var),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">325</td>
+                    <td class="num">446</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            param = .(param),</pre>
+                      <pre class="language-r">            time_level = .(xaxis_var_level),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">326</td>
+                    <td class="num">447</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            xaxis_var = .(xaxis),</pre>
+                      <pre class="language-r">            color_manual = .(man_color),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">327</td>
+                    <td class="num">448</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            yaxis_var = .(yaxis),</pre>
+                      <pre class="language-r">            color_comb = .(color_comb),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">328</td>
+                    <td class="num">449</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            trt_group = .(trt_group),</pre>
+                      <pre class="language-r">            ylim = .(ylim),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">329</td>
+                    <td class="num">450</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            xlim = .(xlim),</pre>
+                      <pre class="language-r">            facet_ncol = .(facet_ncol),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">330</td>
+                    <td class="num">451</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ylim = .(ylim),</pre>
+                      <pre class="language-r">            facet_scales = .(facet_scales),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">331</td>
+                    <td class="num">452</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            color_manual = .(color_manual),</pre>
+                      <pre class="language-r">            hline_arb = .(hline_arb),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">332</td>
+                    <td class="num">453</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            shape_manual = .(shape_manual),</pre>
+                      <pre class="language-r">            hline_arb_label = .(hline_arb_label),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">333</td>
+                    <td class="num">454</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            facet_ncol = .(facet_ncol),</pre>
+                      <pre class="language-r">            hline_arb_color = .(hline_arb_color),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">334</td>
+                    <td class="num">455</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            facet = .(facet),</pre>
+                      <pre class="language-r">            xtick = xtick,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">335</td>
+                    <td class="num">456</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            facet_var = .(trt_group),</pre>
+                      <pre class="language-r">            xlabel = xlabel,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">336</td>
+                    <td class="num">457</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            reg_line = .(reg_line),</pre>
+                      <pre class="language-r">            rotate_xlab = .(rotate_xlab),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">337</td>
+                    <td class="num">458</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">            font_size = .(font_size),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">338</td>
+                    <td class="num">459</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            dot_size = .(dot_size),</pre>
+                      <pre class="language-r">            alpha = .(alpha),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">339</td>
+                    <td class="num">460</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            reg_text_size = .(reg_text_size),</pre>
+                      <pre class="language-r">            group_stats = .(group_stats),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">340</td>
+                    <td class="num">461</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            rotate_xlab = .(rotate_xlab),</pre>
+                      <pre class="language-r">            hline_vars = .(hline_vars),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">341</td>
+                    <td class="num">462</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            hline = .(`if`(is.na(hline), NULL, as.numeric(hline))),</pre>
+                      <pre class="language-r">            hline_vars_colors = .(hline_vars_colors[seq_along(hline_vars)]),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">342</td>
+                    <td class="num">463</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            vline = .(`if`(is.na(vline), NULL, as.numeric(vline)))</pre>
+                      <pre class="language-r">            hline_vars_labels = .(hline_vars_labels[seq_along(hline_vars)])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">343</td>
+                    <td class="num">464</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">344</td>
+                    <td class="num">465</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">          print(p)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">345</td>
+                    <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">346</td>
+                    <td class="num">467</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">468</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">348</td>
+                    <td class="num">469</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">349</td>
+                    <td class="num">470</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    plot_r &lt;- reactive(plot_q()[["p"]])</pre>
+                      <pre class="language-r">    plot_r &lt;- reactive({</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">471</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      plot_q()[["p"]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">350</td>
+                    <td class="num">472</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    })</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">473</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">351</td>
+                    <td class="num">474</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">    plot_data &lt;- teal.widgets::plot_with_settings_srv(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">352</td>
+                    <td class="num">475</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">      id = "plot",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">353</td>
+                    <td class="num">476</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">      plot_r = plot_r,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">354</td>
+                    <td class="num">477</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">      height = plot_height,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">355</td>
+                    <td class="num">478</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">      width = plot_width,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">356</td>
+                    <td class="num">479</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">      brushing = TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">357</td>
+                    <td class="num">480</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">358</td>
+                    <td class="num">481</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">359</td>
+                    <td class="num">482</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    ### REPORTER</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">360</td>
+                    <td class="num">483</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">361</td>
+                    <td class="num">484</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">362</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        constraint_description &lt;- paste(</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">363</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          "\nTreatment Variable Faceting:",</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">364</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          input$trt_facet,</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">365</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          "\nRegression Line:",</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">366</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          input$reg_line</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">367</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="num">485</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">        card &lt;- report_card_template_goshawk(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">369</td>
+                    <td class="num">486</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          title = "Scatter Plot",</pre>
+                      <pre class="language-r">          title = "Spaghetti Plot",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">370</td>
+                    <td class="num">487</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">371</td>
+                    <td class="num">488</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">372</td>
+                    <td class="num">489</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="missed">
-                    <td class="num">373</td>
+                    <td class="num">490</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">          constraint_list = list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">374</td>
+                    <td class="num">491</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">            constraint_var = input$constraint_var,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">375</td>
+                    <td class="num">492</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">            constraint_range_min = input$constraint_range_min,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">376</td>
+                    <td class="num">493</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">            constraint_range_max = input$constraint_range_max</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">377</td>
+                    <td class="num">494</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ),</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">378</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          constraint_description = constraint_description,</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">379</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          style = "verbatim"</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">380</td>
+                    <td class="num">495</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">496</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        card$append_text("Scatter Plot", "header3")</pre>
+                      <pre class="language-r">        card$append_text("Spaghetti Plot", "header3")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">382</td>
+                    <td class="num">497</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">        card$append_plot(plot_r(), dim = plot_data$dim())</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">383</td>
+                    <td class="num">498</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">384</td>
+                    <td class="num">499</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">385</td>
+                    <td class="num">500</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">386</td>
+                    <td class="num">501</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">387</td>
+                    <td class="num">502</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">        card$append_src(teal.code::get_code(plot_q()))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">388</td>
+                    <td class="num">503</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">        card</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">389</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">390</td>
+                    <td class="num">505</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">391</td>
+                    <td class="num">506</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">392</td>
+                    <td class="num">507</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    ###</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">393</td>
+                    <td class="num">508</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">394</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    # highlight plot area</pre>
-                    </td>
-                  </tr>
                   <tr class="missed">
-                    <td class="num">395</td>
+                    <td class="num">509</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">    output$brush_data &lt;- DT::renderDataTable({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">396</td>
+                    <td class="num">510</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">      plot_brush &lt;- plot_data$brush()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">397</td>
+                    <td class="num">511</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">398</td>
+                    <td class="num">512</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">      ANL &lt;- isolate(anl_q()$ANL) # nolint</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">399</td>
+                    <td class="num">513</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">      validate_has_data(ANL, 1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">400</td>
+                    <td class="num">514</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">515</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">      xvar &lt;- isolate(input$xaxis_var)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">402</td>
+                    <td class="num">516</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">      yvar &lt;- isolate(input$yaxis_var)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">403</td>
+                    <td class="num">517</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">      trt_group &lt;- isolate(input$trt_group)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">404</td>
+                    <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">405</td>
+                    <td class="num">519</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">      req(all(c(xvar, yvar) %in% names(ANL)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">406</td>
+                    <td class="num">520</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">407</td>
+                    <td class="num">521</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">      df &lt;- teal.widgets::clean_brushedPoints(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">408</td>
+                    <td class="num">522</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">        dplyr::select(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">409</td>
+                    <td class="num">523</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ANL, "USUBJID", dplyr::all_of(trt_group), "AVISITCD", "PARAMCD",</pre>
+                      <pre class="language-r">          ANL, "USUBJID", dplyr::all_of(trt_group), "PARAMCD",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">410</td>
+                    <td class="num">524</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">          dplyr::all_of(c(xvar, yvar)), "LOQFL"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">411</td>
+                    <td class="num">525</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">        ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">412</td>
+                    <td class="num">526</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">        plot_brush</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">413</td>
+                    <td class="num">527</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">414</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">528</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      df &lt;- df[order(df$PARAMCD, df[[trt_group]], df$USUBJID, df[[xvar]]), ]</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">415</td>
+                    <td class="num">529</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">      numeric_cols &lt;- names(dplyr::select_if(df, is.numeric))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">416</td>
+                    <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">417</td>
+                    <td class="num">531</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">      DT::datatable(df, rownames = FALSE, options = list(scrollX = TRUE)) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">418</td>
+                    <td class="num">532</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">        DT::formatRound(numeric_cols, 4)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">419</td>
+                    <td class="num">533</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">420</td>
+                    <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">421</td>
+                    <td class="num">535</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">    teal.widgets::verbatim_popup_srv(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">422</td>
+                    <td class="num">536</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">      id = "warning",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">423</td>
+                    <td class="num">537</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">      verbatim_content = reactive(teal.code::get_warnings(plot_q())),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">424</td>
+                    <td class="num">538</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">      title = "Warning",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">425</td>
+                    <td class="num">539</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">      disabled = reactive(is.null(teal.code::get_warnings(plot_q())))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">426</td>
+                    <td class="num">540</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">427</td>
+                    <td class="num">541</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">428</td>
+                    <td class="num">542</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">    teal.widgets::verbatim_popup_srv(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">429</td>
+                    <td class="num">543</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">      id = "rcode",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">430</td>
+                    <td class="num">544</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">      verbatim_content = reactive(teal.code::get_code(plot_q())),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">431</td>
+                    <td class="num">545</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      title = "Show R Code for Scatterplot"</pre>
+                      <pre class="language-r">      title = "Show R Code for Spaghetti Plot"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">432</td>
+                    <td class="num">546</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">433</td>
+                    <td class="num">547</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">434</td>
+                    <td class="num">548</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
@@ -19245,12773 +18866,13082 @@ <h2>teal.goshawk coverage - 0.00%</h2>
                 </tbody>
               </table>
             </div>
-            <div id="R/utils-data_constraints.r" class="hidden">
+            <div id="R/tm_g_gh_correlationplot.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">templ_ui_constraint &lt;- function(ns, label = "Data Constraint") {</pre>
+                      <pre class="language-r">#' Scatter Plot Teal Module For Biomarker Analysis</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">2</td>
-                    <td class="coverage">!</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">
+                  <tr class="never">
                     <td class="num">3</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    id = ns("constraint_var_whole"), # give an id to hide it</pre>
+                      <pre class="language-r">#' @description Scatter Plot Teal Module For Biomarker Analysis</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">4</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    radioButtons(ns("constraint_var"), label, choices = "NONE"),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">5</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    shinyjs::hidden(div(</pre>
+                      <pre class="language-r">#' @inheritParams teal.widgets::standard_layout</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">6</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      id = ns("constraint_range"),</pre>
+                      <pre class="language-r">#' @param label menu item label of the module in the teal app.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">7</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      div(</pre>
+                      <pre class="language-r">#' @param dataname analysis data passed to the data argument of \code{\link[teal]{init}}. E.g. `ADaM` structured</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">8</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        class = "inline-block;",</pre>
+                      <pre class="language-r">#' laboratory data frame \code{ADLB}.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">9</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        numericInput(ns("constraint_range_min"), label = "Min", value = 0, min = 0, max = 0)</pre>
+                      <pre class="language-r">#' @param param_var name of variable containing biomarker codes e.g. \code{PARAMCD}.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ),</pre>
+                      <pre class="language-r">#' @param xaxis_param biomarker selected for `x-axis`.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">11</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      div(</pre>
+                      <pre class="language-r">#' @param yaxis_param biomarker selected for `y-axis`.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">12</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        class = "inline-block;",</pre>
+                      <pre class="language-r">#' @param xaxis_var name of variable containing biomarker results displayed on x-axis e.g. \code{BASE}.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">13</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        numericInput(ns("constraint_range_max"), label = "Min", value = 0, min = 0, max = 0)</pre>
+                      <pre class="language-r">#' @param yaxis_var name of variable containing biomarker results displayed on y-axis e.g. \code{AVAL}.</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">#' @param trt_group \code{\link[teal.transform]{choices_selected}} object with available choices and pre-selected option</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )),</pre>
+                      <pre class="language-r">#' for variable names representing treatment group e.g. `ARM`.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">16</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    shinyjs::hidden(div(</pre>
+                      <pre class="language-r">#' @param color_manual vector of colors applied to treatment values.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">17</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      id = ns("all_na"),</pre>
+                      <pre class="language-r">#' @param shape_manual vector of symbols applied to `LOQ` values.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">18</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      helpText("All values are missing (NA)")</pre>
+                      <pre class="language-r">#' @param facet_ncol numeric value indicating number of facets per row.</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">#' @param trt_facet facet by treatment group \code{trt_group}.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' @param visit_facet visit facet toggle.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' @param reg_line include regression line and annotations for slope and coefficient in visualization. Use with facet</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   TRUE.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">keep_data_const_opts_updated &lt;- function(session, input, data, id_param_var) {</pre>
+                      <pre class="language-r">#' @param loq_legend `loq` legend toggle.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # use reactiveVal so that it only updates when options actually changed and not just data</pre>
+                      <pre class="language-r">#' @param rotate_xlab 45 degree rotation of `x-axis` values.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">25</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  choices &lt;- reactiveVal()</pre>
+                      <pre class="language-r">#' @param hline_arb numeric vector of at most 2 values identifying intercepts for arbitrary horizontal lines.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">26</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  observeEvent(data(), {</pre>
+                      <pre class="language-r">#' @param hline_arb_color a character vector of at most length of \code{hline_arb}.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">27</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    paramname &lt;- input[[id_param_var]]</pre>
+                      <pre class="language-r">#' naming the color for the arbitrary horizontal lines.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">28</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    req(length(paramname) == 1)</pre>
+                      <pre class="language-r">#' @param hline_arb_label a character vector of at most length of \code{hline_arb}.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' naming the label for the arbitrary horizontal lines.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">30</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    data_filtered &lt;- data()$ANL %&gt;% dplyr::filter(.data$PARAMCD == paramname)</pre>
+                      <pre class="language-r">#' @param hline_vars a character vector to name the columns that will define additional horizontal lines.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">31</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    choices(c("None" = "NONE", "Screening" = "BASE2", "Baseline" = "BASE")[</pre>
+                      <pre class="language-r">#' @param hline_vars_colors a character vector naming the colors for the additional horizontal lines.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">32</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      c(TRUE, !all(is.na(data_filtered[["BASE2"]])), !all(is.na(data_filtered[["BASE"]])))</pre>
+                      <pre class="language-r">#' @param hline_vars_labels a character vector naming the labels for the additional horizontal lines that will appear</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">#' @param vline_arb numeric vector of at most 2 values identifying intercepts for arbitrary horizontal lines.</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">#' @param vline_arb_color a character vector of at most length of \code{vline_arb}.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">35</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  observeEvent(choices(), {</pre>
+                      <pre class="language-r">#' naming the color for the arbitrary horizontal lines.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">36</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    updateRadioButtons(session, "constraint_var", choices = choices())</pre>
+                      <pre class="language-r">#' @param vline_arb_label a character vector of at most length of \code{vline_arb}.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # hide when only one option "NONE"</pre>
+                      <pre class="language-r">#' naming the label for the arbitrary horizontal lines.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">38</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (length(choices()) == 1) {</pre>
+                      <pre class="language-r">#' @param vline_vars a character vector to name the columns that will define additional vertical lines.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">39</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      shinyjs::hide("constraint_var_whole")</pre>
+                      <pre class="language-r">#' @param vline_vars_colors a character vector naming the colors for the additional vertical lines.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else {</pre>
+                      <pre class="language-r">#' @param vline_vars_labels a character vector naming the labels for the additional vertical lines that will appear</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">41</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      shinyjs::show("constraint_var_whole")</pre>
+                      <pre class="language-r">#' @param plot_height controls plot height.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#' @param plot_width optional, controls plot width.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
+                      <pre class="language-r">#' @param font_size font size control for title, `x-axis` label, `y-axis` label and legend.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' @param dot_size plot dot size.</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">#' @param reg_text_size font size control for regression line annotations.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># param_id: input id that contains values of PARAMCD to filter for</pre>
+                      <pre class="language-r">#' @author Nick Paszty (npaszty) paszty.nicholas@gene.com</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># param_var: currently only "PARAMCD" is supported</pre>
+                      <pre class="language-r">#' @author Balazs Toth (tothb2)  toth.balazs@gene.com</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">constr_anl_q &lt;- function(session, input, data, dataname, param_id, param_var, trt_group, min_rows) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">52</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(data, "reactive")</pre>
+                      <pre class="language-r">#' @examples</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::assert_class(shiny::isolate(data()), "teal_data")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">54</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  dataset_var &lt;- dataname</pre>
+                      <pre class="language-r">#' # Example using ADaM structure analysis dataset.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">55</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!identical(param_var, "PARAMCD")) {</pre>
+                      <pre class="language-r">#' data &lt;- teal_data()</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # why is there a variable param_id which is provided to this function and always equal to "param"?</pre>
+                      <pre class="language-r">#' data &lt;- within(data, {</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">    stop("param_var must be 'PARAMCD'. Otherwise, we cannot currently guarantee the correctness of the code.")</pre>
+                      <pre class="language-r">#'   # original ARM value = dose value</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">58</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'   arm_mapping &lt;- list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">59</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'     "A: Drug X" = "150mg QD",</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">  anl_param &lt;- reactive({</pre>
+                      <pre class="language-r">#'     "B: Placebo" = "Placebo",</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">    param_var_value &lt;- input[[param_id]] # value to filter PARAMCD for</pre>
+                      <pre class="language-r">#'     "C: Combination" = "Combination"</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">62</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    validate(need(param_var_value, "Please select a biomarker"))</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">    checkmate::assert_string(param_var_value)</pre>
+                      <pre class="language-r">#'   color_manual &lt;- c("150mg QD" = "#000000", "Placebo" = "#3498DB", "Combination" = "#E74C3C")</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">#'   # assign LOQ flag symbols: circles for "N" and triangles for "Y", squares for "NA"</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">    ANL &lt;- data()[[dataname]] # nolint</pre>
+                      <pre class="language-r">#'   shape_manual &lt;- c("N" = 1, "Y" = 2, "NA" = 0)</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">    validate_has_data(ANL, min_rows)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">67</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   set.seed(1)</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">    validate_has_variable(ANL, param_var)</pre>
+                      <pre class="language-r">#'   ADSL &lt;- goshawk::rADSL</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">    validate_has_variable(ANL, "AVISITCD")</pre>
+                      <pre class="language-r">#'   ADLB &lt;- goshawk::rADLB</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">70</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    validate_has_variable(ANL, "BASE")</pre>
+                      <pre class="language-r">#'   var_labels &lt;- lapply(ADLB, function(x) attributes(x)$label)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">71</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    validate_has_variable(ANL, "BASE2")</pre>
+                      <pre class="language-r">#'   ADLB &lt;- ADLB %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">72</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    validate_has_variable(ANL, trt_group)</pre>
+                      <pre class="language-r">#'     dplyr::mutate(AVISITCD = dplyr::case_when(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">73</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'       AVISIT == "SCREENING" ~ "SCR",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">74</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # analysis</pre>
+                      <pre class="language-r">#'       AVISIT == "BASELINE" ~ "BL",</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">    private_qenv &lt;- data() %&gt;%</pre>
+                      <pre class="language-r">#'       grepl("WEEK", AVISIT) ~</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">      teal.code::eval_code(</pre>
+                      <pre class="language-r">#'         paste(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">77</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        substitute(ANL &lt;- dataname, list(dataname = as.name(dataname))) # nolint</pre>
+                      <pre class="language-r">#'           "W",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">78</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ) %&gt;%</pre>
+                      <pre class="language-r">#'           trimws(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">79</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.code::eval_code(</pre>
+                      <pre class="language-r">#'             substr(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">80</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        code = bquote({</pre>
+                      <pre class="language-r">#'               AVISIT,</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">          ANL &lt;- .(as.name(dataset_var)) %&gt;% # nolint</pre>
+                      <pre class="language-r">#'               start = 6,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">82</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            dplyr::filter(.(as.name(param_var)) == .(param_var_value))</pre>
+                      <pre class="language-r">#'               stop = stringr::str_locate(AVISIT, "DAY") - 1</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">83</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        })</pre>
+                      <pre class="language-r">#'             )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <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">
+                  <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">    validate_has_data(private_qenv[["ANL"]], min_rows)</pre>
+                      <pre class="language-r">#'         ),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">86</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    list(ANL = ANL, qenv = private_qenv)</pre>
+                      <pre class="language-r">#'       TRUE ~ NA_character_</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">87</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
+                      <pre class="language-r">#'     )) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">88</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'     dplyr::mutate(AVISITCDN = dplyr::case_when(</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">  observe({</pre>
+                      <pre class="language-r">#'       AVISITCD == "SCR" ~ -2,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">90</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    param_var_value &lt;- input[[param_id]]</pre>
+                      <pre class="language-r">#'       AVISITCD == "BL" ~ 0,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">91</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    validate(need(param_var_value, "Please select a biomarker"))</pre>
+                      <pre class="language-r">#'       grepl("W", AVISITCD) ~ as.numeric(gsub("[^0-9]*", "", AVISITCD)),</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">#'       TRUE ~ NA_real_</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">93</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    constraint_var &lt;- input[["constraint_var"]]</pre>
+                      <pre class="language-r">#'     )) %&gt;%</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">    validate(need(constraint_var, "select a constraint variable"))</pre>
+                      <pre class="language-r">#'     # use ARMCD values to order treatment in visualization legend</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">95</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'     dplyr::mutate(TRTORD = ifelse(grepl("C", ARMCD), 1,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">96</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ANL &lt;- data()[[dataname]] # nolint</pre>
+                      <pre class="language-r">#'       ifelse(grepl("B", ARMCD), 2,</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">    validate_has_data(ANL, min_rows)</pre>
+                      <pre class="language-r">#'         ifelse(grepl("A", ARMCD), 3, NA)</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>
+                      <pre class="language-r">#'       )</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">    validate_has_variable(ANL, param_var)</pre>
+                      <pre class="language-r">#'     )) %&gt;%</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">    validate_has_variable(ANL, "AVISITCD")</pre>
+                      <pre class="language-r">#'     dplyr::mutate(ARM = as.character(arm_mapping[match(ARM, names(arm_mapping))])) %&gt;%</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">    validate_has_variable(ANL, "BASE")</pre>
+                      <pre class="language-r">#'     dplyr::mutate(ARM = factor(ARM) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">102</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    validate_has_variable(ANL, "BASE2")</pre>
+                      <pre class="language-r">#'       reorder(TRTORD)) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">103</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'     dplyr::mutate(</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">    ANL &lt;- ANL %&gt;% dplyr::filter(!!sym(param_var) == param_var_value) # nolint</pre>
+                      <pre class="language-r">#'       ANRHI = dplyr::case_when(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">105</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'         PARAMCD == "ALT" ~ 60,</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">    visit_freq &lt;- unique(ANL$AVISITCD)</pre>
+                      <pre class="language-r">#'         PARAMCD == "CRP" ~ 70,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">107</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'         PARAMCD == "IGA" ~ 80,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">108</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # get min max values</pre>
+                      <pre class="language-r">#'         TRUE ~ NA_real_</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">    if ((constraint_var == "BASE2" &amp;&amp; any(grepl("SCR", visit_freq))) ||</pre>
+                      <pre class="language-r">#'       ),</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">      (constraint_var == "BASE" &amp;&amp; any(grepl("BL", visit_freq)))) { # nolint</pre>
+                      <pre class="language-r">#'       ANRLO = dplyr::case_when(</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">      val &lt;- stats::na.omit(switch(constraint_var,</pre>
+                      <pre class="language-r">#'         PARAMCD == "ALT" ~ 20,</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">        "BASE" = ANL$BASE[ANL$AVISITCD == "BL"],</pre>
+                      <pre class="language-r">#'         PARAMCD == "CRP" ~ 30,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">113</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "BASE2" = ANL$BASE2[ANL$AVISITCD == "SCR"],</pre>
+                      <pre class="language-r">#'         PARAMCD == "IGA" ~ 40,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">114</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        stop(paste(constraint_var, "not allowed"))</pre>
+                      <pre class="language-r">#'         TRUE ~ NA_real_</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">#'     ) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">117</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (length(val) == 0 || all(is.na(val))) {</pre>
+                      <pre class="language-r">#'     dplyr::rowwise() %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">118</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        shinyjs::show("all_na")</pre>
+                      <pre class="language-r">#'     dplyr::group_by(PARAMCD) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">119</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        shinyjs::hide("constraint_range")</pre>
+                      <pre class="language-r">#'     dplyr::mutate(LBSTRESC = ifelse(</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">        args &lt;- list(</pre>
+                      <pre class="language-r">#'       USUBJID %in% sample(USUBJID, 1, replace = TRUE),</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">          min = list(label = "Min", min = 0, max = 0, value = 0),</pre>
+                      <pre class="language-r">#'       paste("&lt;", round(runif(1, min = 25, max = 30))), LBSTRESC</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">          max = list(label = "Max", min = 0, max = 0, value = 0)</pre>
+                      <pre class="language-r">#'     )) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">123</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#'     dplyr::mutate(LBSTRESC = ifelse(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">124</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        update_min_max(session, args)</pre>
+                      <pre class="language-r">#'       USUBJID %in% sample(USUBJID, 1, replace = TRUE),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">125</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">#'       paste("&gt;", round(runif(1, min = 70, max = 75))), LBSTRESC</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">126</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        rng &lt;- range(val, na.rm = TRUE)</pre>
+                      <pre class="language-r">#'     )) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">127</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'     ungroup()</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">        minmax &lt;- c(floor(rng[1] * 1000) / 1000, ceiling(rng[2] * 1000) / 1000)</pre>
+                      <pre class="language-r">#'   attr(ADLB[["ARM"]], "label") &lt;- var_labels[["ARM"]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">129</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   attr(ADLB[["ANRHI"]], "label") &lt;- "Analysis Normal Range Upper Limit"</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">        label_min &lt;- sprintf("Min (%s)", minmax[1])</pre>
+                      <pre class="language-r">#'   attr(ADLB[["ANRLO"]], "label") &lt;- "Analysis Normal Range Lower Limit"</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">        label_max &lt;- sprintf("Max (%s)", minmax[2])</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">132</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   # add LLOQ and ULOQ variables</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">133</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">#'   ADLB_LOQS &lt;- goshawk:::h_identify_loq_values(ADLB)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">134</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          min = list(label = label_min, min = minmax[1], max = minmax[2], value = minmax[1]),</pre>
+                      <pre class="language-r">#'   ADLB &lt;- dplyr::left_join(ADLB, ADLB_LOQS, by = "PARAM")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">135</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          max = list(label = label_max, min = minmax[1], max = minmax[2], value = minmax[2])</pre>
+                      <pre class="language-r">#' })</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">136</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">137</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' datanames &lt;- c("ADSL", "ADLB")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">138</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        update_min_max(session, args)</pre>
+                      <pre class="language-r">#' datanames(data) &lt;- datanames</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">139</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        shinyjs::show("constraint_range") # update before show</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">140</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        shinyjs::hide("all_na")</pre>
+                      <pre class="language-r">#' join_keys(data) &lt;- default_cdisc_join_keys[datanames]</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">141</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">142</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else if (constraint_var == "NONE") {</pre>
+                      <pre class="language-r">#' app &lt;- teal::init(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">143</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      shinyjs::hide("constraint_range") # hide before update</pre>
+                      <pre class="language-r">#'   data = data,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">144</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      shinyjs::hide("all_na")</pre>
+                      <pre class="language-r">#'   modules = teal::modules(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">145</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'     teal.goshawk::tm_g_gh_correlationplot(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">146</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # force update (and thus refresh) on different constraint_var -&gt; pass unique value for each constraint_var name</pre>
+                      <pre class="language-r">#'       label = "Correlation Plot",</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">      args &lt;- list(</pre>
+                      <pre class="language-r">#'       dataname = "ADLB",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">148</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        min = list(label = "Min", min = 0, max = 0, value = 0),</pre>
+                      <pre class="language-r">#'       param_var = "PARAMCD",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">149</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        max = list(label = "Max", min = 0, max = 0, value = 0)</pre>
+                      <pre class="language-r">#'       xaxis_param = choices_selected(c("ALT", "CRP", "IGA"), "ALT"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">150</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#'       yaxis_param = choices_selected(c("ALT", "CRP", "IGA"), "CRP"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">151</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'       xaxis_var = choices_selected(c("AVAL", "BASE", "CHG", "PCHG"), "BASE"),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">152</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      update_min_max(session, args)</pre>
+                      <pre class="language-r">#'       yaxis_var = choices_selected(c("AVAL", "BASE", "CHG", "PCHG"), "AVAL"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">153</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else {</pre>
+                      <pre class="language-r">#'       trt_group = choices_selected(c("ARM", "ACTARM"), "ARM"),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">154</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      validate(need(FALSE, "This is an invalid data contraint for the filtered data"))</pre>
+                      <pre class="language-r">#'       color_manual = c(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">155</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#'         "Drug X 100mg" = "#000000",</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">#'         "Placebo" = "#3498DB",</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">#'         "Combination 100mg" = "#E74C3C"</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">  anl_constraint &lt;- create_anl_constraint_reactive(anl_param, input, param_id = param_id, min_rows = min_rows)</pre>
+                      <pre class="language-r">#'       ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">159</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'       shape_manual = c("N" = 1, "Y" = 2, "NA" = 0),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">160</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  return(anl_constraint)</pre>
+                      <pre class="language-r">#'       plot_height = c(500, 200, 2000),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">161</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'       facet_ncol = 2,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">162</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'       visit_facet = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">163</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># returns a reactive that applies the `x-axis data constraint`</pre>
+                      <pre class="language-r">#'       reg_line = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">164</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># More precisely, all patients are filtered out that do not have the range of</pre>
+                      <pre class="language-r">#'       loq_legend = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">165</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># `param_id.constraint_var` in the specified range</pre>
+                      <pre class="language-r">#'       font_size = c(12, 8, 20),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">166</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># constraint var means that `param_id.constraint_var` is constrained to the filtered range (or NA),</pre>
+                      <pre class="language-r">#'       dot_size = c(1, 1, 12),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">167</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># e.g. `ALT.BASE2` (i.e. `PARAMCD = ALT &amp; range_filter_on(BASE2)`)</pre>
+                      <pre class="language-r">#'       reg_text_size = c(3, 3, 10),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">168</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">create_anl_constraint_reactive &lt;- function(anl_param, input, param_id, min_rows) {</pre>
+                      <pre class="language-r">#'       hline_arb = c(40, 50),</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">  iv_r &lt;- reactive({</pre>
+                      <pre class="language-r">#'       hline_arb_label = "arb hori label",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">170</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    iv &lt;- shinyvalidate::InputValidator$new()</pre>
+                      <pre class="language-r">#'       hline_arb_color = c("red", "blue"),</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">    iv$condition(~ isTRUE(input$constraint_var != "NONE"))</pre>
+                      <pre class="language-r">#'       hline_vars = c("ANRHI", "ANRLO", "ULOQN", "LLOQN"),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">172</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    iv$add_rule("constraint_range_min", shinyvalidate::sv_required("A contraint minimum value is required"))</pre>
+                      <pre class="language-r">#'       hline_vars_colors = c("green", "blue", "purple", "cyan"),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">173</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    iv$add_rule("constraint_range_max", shinyvalidate::sv_required("A contraint maximum value is required"))</pre>
+                      <pre class="language-r">#'       hline_vars_label = c("ANRHI Label", "ANRLO Label", "ULOQN Label", "LLOQN Label"),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">174</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    iv$add_rule(</pre>
+                      <pre class="language-r">#'       vline_vars = c("ANRHI", "ANRLO", "ULOQN", "LLOQN"),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">175</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "constraint_range_min",</pre>
+                      <pre class="language-r">#'       vline_vars_colors = c("yellow", "orange", "brown", "gold"),</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">      ~ if (!is.na(input$constraint_range_max) &amp;&amp; (.) &gt; input$constraint_range_max) {</pre>
+                      <pre class="language-r">#'       vline_vars_labels = c("ANRHI Label", "ANRLO Label", "ULOQN Label", "LLOQN Label"),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">177</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "constraint min needs to be less than max"</pre>
+                      <pre class="language-r">#'       vline_arb = c(50, 70),</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>
+                      <pre class="language-r">#'       vline_arb_label = "arb vert A",</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">#'       vline_arb_color = c("green", "orange")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">180</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    iv$add_rule(</pre>
+                      <pre class="language-r">#'     )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">181</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "constraint_range_max",</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">182</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ~ if (!is.na(input$constraint_range_min) &amp;&amp; (.) &lt; input$constraint_range_min) {</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">183</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "constraint min needs to be less than max"</pre>
+                      <pre class="language-r">#' if (interactive()) {</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>
+                      <pre class="language-r">#'   shinyApp(app$ui, app$server)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">185</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">186</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    iv</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">187</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
+                      <pre class="language-r">tm_g_gh_correlationplot &lt;- function(label,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">188</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                                    dataname,</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">                                    param_var = "PARAMCD",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">190</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  return_val &lt;- reactive({</pre>
+                      <pre class="language-r">                                    xaxis_param = "ALT",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">191</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    private_qenv &lt;- anl_param()$qenv</pre>
+                      <pre class="language-r">                                    xaxis_var = "BASE",</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">                                    yaxis_param = "CRP",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">193</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # it is assumed that constraint_var is triggering constraint_range which then trigger this clause</pre>
+                      <pre class="language-r">                                    yaxis_var = "AVAL",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">194</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    constraint_var &lt;- isolate(input[["constraint_var"]])</pre>
+                      <pre class="language-r">                                    trt_group,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">195</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    constraint_range_min &lt;- input[["constraint_range_min"]]</pre>
+                      <pre class="language-r">                                    color_manual = NULL,</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">    constraint_range_max &lt;- input[["constraint_range_max"]]</pre>
+                      <pre class="language-r">                                    shape_manual = NULL,</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">    param &lt;- input[[param_id]]</pre>
+                      <pre class="language-r">                                    facet_ncol = 2,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">198</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    req(param)</pre>
+                      <pre class="language-r">                                    visit_facet = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">199</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                                    trt_facet = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">200</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # filter constraint</pre>
+                      <pre class="language-r">                                    reg_line = FALSE,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">201</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (constraint_var != "NONE") {</pre>
+                      <pre class="language-r">                                    loq_legend = TRUE,</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">      private_qenv &lt;- teal.code::eval_code(</pre>
+                      <pre class="language-r">                                    rotate_xlab = FALSE,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">203</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        object = private_qenv,</pre>
+                      <pre class="language-r">                                    hline_arb = numeric(0),</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">        code = bquote({</pre>
+                      <pre class="language-r">                                    hline_arb_color = "red",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">205</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          # the below includes patients who have at least one non-NA BASE value</pre>
+                      <pre class="language-r">                                    hline_arb_label = "Horizontal line",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">206</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          # ideally, a patient should either have all NA values or none at all</pre>
+                      <pre class="language-r">                                    hline_vars = character(0),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">207</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          # this could be achieved through preprocessing; otherwise, this is easily overseen</pre>
+                      <pre class="language-r">                                    hline_vars_colors = "green",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">208</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          filtered_usubjids &lt;- ANL %&gt;% # nolint</pre>
+                      <pre class="language-r">                                    hline_vars_labels = hline_vars,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">209</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            dplyr::filter(</pre>
+                      <pre class="language-r">                                    vline_arb = numeric(0),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">210</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              PARAMCD == .(param),</pre>
+                      <pre class="language-r">                                    vline_arb_color = "red",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">211</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              (.(constraint_range_min) &lt;= .data[[.(constraint_var)]]) &amp;</pre>
+                      <pre class="language-r">                                    vline_arb_label = "Vertical line",</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">                (.data[[.(constraint_var)]] &lt;= .(constraint_range_max))</pre>
+                      <pre class="language-r">                                    vline_vars = character(0),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">213</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ) %&gt;%</pre>
+                      <pre class="language-r">                                    vline_vars_colors = "green",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">214</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            dplyr::pull(USUBJID)</pre>
+                      <pre class="language-r">                                    vline_vars_labels = vline_vars,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">215</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          # include patients with all NA values for constraint_var</pre>
+                      <pre class="language-r">                                    plot_height = c(500, 200, 2000),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">216</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          filtered_usubjids &lt;- c(</pre>
+                      <pre class="language-r">                                    plot_width = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">217</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            filtered_usubjids,</pre>
+                      <pre class="language-r">                                    font_size = c(12, 8, 20),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">218</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ANL %&gt;%</pre>
+                      <pre class="language-r">                                    dot_size = c(1, 1, 12),</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">              dplyr::filter(PARAMCD == .(param)) %&gt;%</pre>
+                      <pre class="language-r">                                    reg_text_size = c(3, 3, 10),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">220</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              dplyr::group_by(USUBJID) %&gt;%</pre>
+                      <pre class="language-r">                                    pre_output = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">221</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              dplyr::summarize(all_na = all(is.na(.data[[.(constraint_var)]]))) %&gt;%</pre>
+                      <pre class="language-r">                                    post_output = NULL) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">222</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              dplyr::filter(all_na) %&gt;%</pre>
+                      <pre class="language-r">  logger::log_info("Initializing tm_g_gh_correlationplot")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">223</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              dplyr::pull(USUBJID)</pre>
+                      <pre class="language-r">  checkmate::assert_class(xaxis_param, "choices_selected")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">224</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_class(yaxis_param, "choices_selected")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">225</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ANL &lt;- ANL %&gt;% dplyr::filter(USUBJID %in% filtered_usubjids) # nolint</pre>
+                      <pre class="language-r">  checkmate::assert_class(xaxis_var, "choices_selected")</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">        })</pre>
+                      <pre class="language-r">  checkmate::assert_class(yaxis_var, "choices_selected")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">227</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_class(trt_group, "choices_selected")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">228</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      validate_has_data(private_qenv[["ANL"]], min_rows)</pre>
+                      <pre class="language-r">  checkmate::assert_flag(trt_facet)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">229</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">  validate_line_arb_arg(hline_arb, hline_arb_color, hline_arb_label)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">230</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    list(ANL = private_qenv[["ANL"]], qenv = private_qenv)</pre>
+                      <pre class="language-r">  validate_line_arb_arg(vline_arb, vline_arb_color, vline_arb_label)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">231</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
+                      <pre class="language-r">  validate_line_vars_arg(hline_vars, hline_vars_colors, hline_vars_labels)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">232</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  validate_line_vars_arg(vline_vars, vline_vars_colors, vline_vars_labels)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">233</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  reactive(</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">234</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    list(</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">235</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      value = return_val,</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">236</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv_r = iv_r</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">237</td>
-                    <td class="coverage"></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">
+                  <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">    lower = plot_width[2], upper = plot_width[3], null.ok = TRUE, .var.name = "plot_width"</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">239</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">240</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_numeric(font_size, len = 3)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">241</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># for outputting the constraint in the report</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(dot_size, len = 3)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">242</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">formatted_data_constraint &lt;- function(constraint_var, constraint_range_min, constraint_range_max) {</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(reg_text_size, len = 3)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">243</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  constraint_var_label &lt;- switch(constraint_var,</pre>
+                      <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">    "BASE2" = "Screening",</pre>
+                      <pre class="language-r">  args &lt;- as.list(environment())</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">245</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "BASE" = "Baseline",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">246</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "None"</pre>
+                      <pre class="language-r">  module(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">247</td>
-                    <td class="coverage"></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">248</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  msg &lt;- paste("Data Constraint:", constraint_var_label)</pre>
+                      <pre class="language-r">    datanames = dataname,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">249</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (constraint_var_label != "None") {</pre>
+                      <pre class="language-r">    server = srv_g_correlationplot,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">250</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    msg &lt;- paste(msg, "from", constraint_range_min, "to", constraint_range_max)</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="missed">
-                    <td class="num">252</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  msg</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">253</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">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">update_min_max &lt;- function(session, args) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">256</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  do.call("updateNumericInput", c(list(session = session, inputId = "constraint_range_min"), args$min))</pre>
+                      <pre class="language-r">    server_args = list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">257</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  do.call("updateNumericInput", c(list(session = session, inputId = "constraint_range_max"), args$max))</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">258</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
-                    </td>
-                  </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/tm_g_gh_density_distribution_plot.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">#' Density Distribution Plot</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">2</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">3</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' This teal module renders the UI and calls the functions that create a density distribution plot</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">4</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' and an accompanying summary table.</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">5</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">6</td>
-                    <td class="coverage"></td>
+                    <td class="num">251</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param label menu item label of the module in the teal app.</pre>
+                      <pre class="language-r">      dataname = dataname,</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">#' @param trt_group \code{\link[teal.transform]{choices_selected}} object with available choices and pre-selected option</pre>
+                      <pre class="language-r">      param_var = param_var,</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">#' for variable names representing treatment group e.g. `ARM`.</pre>
+                      <pre class="language-r">      trt_group = trt_group,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">9</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">#' @param color_manual vector of colors applied to treatment values.</pre>
+                      <pre class="language-r">      trt_facet = trt_facet,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">10</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">#' @param color_comb name or hex value for combined treatment color.</pre>
+                      <pre class="language-r">      color_manual = color_manual,</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">#' @param plot_height controls plot height.</pre>
+                      <pre class="language-r">      shape_manual = shape_manual,</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">#' @param plot_width optional, controls plot width.</pre>
+                      <pre class="language-r">      plot_height = plot_height,</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">#' @param font_size font size control for title, `x-axis` label, `y-axis` label and legend.</pre>
+                      <pre class="language-r">      plot_width = plot_width,</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 line_size plot line thickness.</pre>
+                      <pre class="language-r">      hline_vars_colors = hline_vars_colors,</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">#' @param hline_arb numeric vector of at most 2 values identifying intercepts for arbitrary horizontal lines.</pre>
+                      <pre class="language-r">      hline_vars_labels = hline_vars_labels,</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 hline_arb_color a character vector of at most length of \code{hline_arb}.</pre>
+                      <pre class="language-r">      vline_vars_colors = vline_vars_colors,</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">#' naming the color for the arbitrary horizontal lines.</pre>
+                      <pre class="language-r">      vline_vars_labels = vline_vars_labels</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">263</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param hline_arb_label a character vector of at most length of \code{hline_arb}.</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">264</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' naming the label for the arbitrary horizontal lines.</pre>
+                      <pre class="language-r">    ui = ui_g_correlationplot,</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">#' @param facet_ncol numeric value indicating number of facets per row.</pre>
+                      <pre class="language-r">    ui_args = args</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 comb_line display combined treatment line toggle.</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">#' @param rotate_xlab 45 degree rotation of `x-axis` values.</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">23</td>
+                    <td class="num">268</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">269</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams teal.widgets::standard_layout</pre>
+                      <pre class="language-r">ui_g_correlationplot &lt;- function(id, ...) {</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">#' @inheritParams tm_g_gh_scatterplot</pre>
+                      <pre class="language-r">  ns &lt;- NS(id)</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">  a &lt;- list(...)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</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">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">#' @author Nick Paszty (npaszty) paszty.nicholas@gene.com</pre>
+                      <pre class="language-r">  teal.widgets::standard_layout(</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">#' @author Balazs Toth (tothb2)  toth.balazs@gene.com</pre>
+                      <pre class="language-r">    output = templ_ui_output_datatable(ns),</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">    encoding = div(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
+                    <td class="num">276</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @details None</pre>
+                      <pre class="language-r">      ### Reporter</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">#'</pre>
+                      <pre class="language-r">      teal.reporter::simple_reporter_ui(ns("simple_reporter")),</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">#' @export</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">279</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      templ_ui_dataname(a$dataname),</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">#' @examples</pre>
+                      <pre class="language-r">      teal.widgets::optionalSelectInput(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">36</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">        ns("trt_group"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">37</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">#' # Example using ADaM structure analysis dataset.</pre>
+                      <pre class="language-r">        label = "Select Treatment Variable",</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">#' data &lt;- teal_data()</pre>
+                      <pre class="language-r">        choices = a$trt_group$choices,</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">#' data &lt;- within(data, {</pre>
+                      <pre class="language-r">        selected = a$trt_group$selected,</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">#'   library(dplyr)</pre>
+                      <pre class="language-r">        multiple = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">286</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   # original ARM value = dose value</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">287</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   arm_mapping &lt;- list(</pre>
+                      <pre class="language-r">      templ_ui_params_vars(</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">#'     "A: Drug X" = "150mg QD",</pre>
+                      <pre class="language-r">        ns,</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">#'     "B: Placebo" = "Placebo",</pre>
+                      <pre class="language-r">        xparam_choices = a$xaxis_param$choices, xparam_selected = a$xaxis_param$selected,</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">#'     "C: Combination" = "Combination"</pre>
+                      <pre class="language-r">        xchoices = a$xaxis_var$choices, xselected = a$xaxis_var$selected,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">46</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">#'   )</pre>
+                      <pre class="language-r">        yparam_choices = a$yaxis_param$choices, yparam_selected = a$yaxis_param$selected,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">47</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">#'   ADSL &lt;- goshawk::rADSL</pre>
+                      <pre class="language-r">        ychoices = a$yaxis_var$choices, yselected = a$yaxis_var$selected</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">#'   ADLB &lt;- goshawk::rADLB</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">#'   var_labels &lt;- lapply(ADLB, function(x) attributes(x)$label)</pre>
+                      <pre class="language-r">      templ_ui_constraint(ns, "X-Axis Data Constraint"), # required by constr_anl_q</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">#'   ADLB &lt;- ADLB %&gt;%</pre>
+                      <pre class="language-r">      if (length(a$hline_vars) &gt; 0) {</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">#'     dplyr::mutate(</pre>
+                      <pre class="language-r">        teal.widgets::optionalSelectInput(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">52</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">#'       AVISITCD = dplyr::case_when(</pre>
+                      <pre class="language-r">          ns("hline_vars"),</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">#'         AVISIT == "SCREENING" ~ "SCR",</pre>
+                      <pre class="language-r">          label = "Add Horizontal Range Line(s):",</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">#'         AVISIT == "BASELINE" ~ "BL",</pre>
+                      <pre class="language-r">          choices = a$hline_vars,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">55</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">#'         grepl("WEEK", AVISIT) ~ paste("W", stringr::str_extract(AVISIT, "(?&lt;=(WEEK ))[0-9]+")),</pre>
+                      <pre class="language-r">          selected = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">56</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">#'         TRUE ~ as.character(NA)</pre>
+                      <pre class="language-r">          multiple = TRUE</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">#'       ),</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">#'       AVISITCDN = dplyr::case_when(</pre>
+                      <pre class="language-r">      },</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">59</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">#'         AVISITCD == "SCR" ~ -2,</pre>
+                      <pre class="language-r">      ui_arbitrary_lines(id = ns("hline_arb"), a$hline_arb, a$hline_arb_label, a$hline_arb_color),</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">#'         AVISITCD == "BL" ~ 0,</pre>
+                      <pre class="language-r">      if (length(a$vline_vars) &gt; 0) {</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">#'         grepl("W", AVISITCD) ~ as.numeric(gsub("[^0-9]*", "", AVISITCD)),</pre>
+                      <pre class="language-r">        teal.widgets::optionalSelectInput(</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">#'         TRUE ~ as.numeric(NA)</pre>
+                      <pre class="language-r">          ns("vline_vars"),</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">#'       ),</pre>
+                      <pre class="language-r">          label = "Add Vertical Range Line(s):",</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">#'       AVISITCD = factor(AVISITCD) %&gt;% reorder(AVISITCDN),</pre>
+                      <pre class="language-r">          choices = a$vline_vars,</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">#'       TRTORD = dplyr::case_when(</pre>
+                      <pre class="language-r">          selected = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">66</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">#'         ARMCD == "ARM C" ~ 1,</pre>
+                      <pre class="language-r">          multiple = TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">67</td>
+                    <td class="num">312</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         ARMCD == "ARM B" ~ 2,</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">68</td>
+                    <td class="num">313</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         ARMCD == "ARM A" ~ 3</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">314</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       ),</pre>
+                      <pre class="language-r">      ui_arbitrary_lines(</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">#'       ARM = as.character(arm_mapping[match(ARM, names(arm_mapping))]),</pre>
+                      <pre class="language-r">        id = ns("vline_arb"),</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">#'       ARM = factor(ARM) %&gt;% reorder(TRTORD),</pre>
+                      <pre class="language-r">        a$vline_arb,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">72</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">#'       ACTARM = as.character(arm_mapping[match(ACTARM, names(arm_mapping))]),</pre>
+                      <pre class="language-r">        a$vline_arb_label,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">73</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">#'       ACTARM = factor(ACTARM) %&gt;% reorder(TRTORD)</pre>
+                      <pre class="language-r">        a$vline_arb_color,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">74</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">        title = "Arbitrary Vertical Lines:"</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">#'   attr(ADLB[["ARM"]], "label") &lt;- var_labels[["ARM"]]</pre>
+                      <pre class="language-r">      teal.widgets::panel_group(</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">#'   attr(ADLB[["ACTARM"]], "label") &lt;- var_labels[["ACTARM"]]</pre>
+                      <pre class="language-r">        teal.widgets::panel_item(</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">          title = "Plot Aesthetic Settings",</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">#'</pre>
+                      <pre class="language-r">          toggle_slider_ui(</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">#' datanames &lt;- c("ADSL", "ADLB")</pre>
+                      <pre class="language-r">            ns("xrange_scale"),</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">#' datanames(data) &lt;- datanames</pre>
+                      <pre class="language-r">            label = "X-Axis Range Zoom",</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">#' join_keys(data) &lt;- default_cdisc_join_keys[datanames]</pre>
+                      <pre class="language-r">            min = -1000000, max = 1000000, value = c(-1000000, 1000000)</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">#' app &lt;- teal::init(</pre>
+                      <pre class="language-r">          toggle_slider_ui(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">85</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">#'   data = data,</pre>
+                      <pre class="language-r">            ns("yrange_scale"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">86</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">#'   modules = teal::modules(</pre>
+                      <pre class="language-r">            label = "Y-Axis Range Zoom",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">87</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">#'     teal.goshawk::tm_g_gh_density_distribution_plot(</pre>
+                      <pre class="language-r">            min = -1000000, max = 1000000, value = c(-1000000, 1000000)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">88</td>
+                    <td class="num">333</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       label = "Density Distribution Plot",</pre>
+                      <pre class="language-r">          ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">89</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">334</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       dataname = "ADLB",</pre>
+                      <pre class="language-r">          numericInput(ns("facet_ncol"), "Number of Plots Per Row:", a$facet_ncol, min = 1),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">90</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">#'       param_var = "PARAMCD",</pre>
+                      <pre class="language-r">          checkboxInput(ns("trt_facet"), "Treatment Variable Faceting", a$trt_facet),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">91</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">#'       param = choices_selected(c("ALT", "CRP", "IGA"), "ALT"),</pre>
+                      <pre class="language-r">          checkboxInput(ns("visit_facet"), "Visit Faceting", a$visit_facet),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">92</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">#'       xaxis_var = choices_selected(c("AVAL", "BASE", "CHG", "PCHG"), "AVAL"),</pre>
+                      <pre class="language-r">          checkboxInput(ns("reg_line"), "Regression Line", a$reg_line),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">93</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">#'       trt_group = choices_selected(c("ARM", "ACTARM"), "ARM"),</pre>
+                      <pre class="language-r">          checkboxInput(ns("loq_legend"), "Display LoQ Legend", a$loq_legend),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">94</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">#'       color_manual = c(</pre>
+                      <pre class="language-r">          checkboxInput(ns("rotate_xlab"), "Rotate X-axis Label", a$rotate_xlab)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">95</td>
+                    <td class="num">340</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         "150mg QD" = "#000000",</pre>
+                      <pre class="language-r">        ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">96</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">#'         "Placebo" = "#3498DB",</pre>
+                      <pre class="language-r">        teal.widgets::panel_item(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">97</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">#'         "Combination" = "#E74C3C"</pre>
+                      <pre class="language-r">          title = "Plot settings",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">98</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">          teal.widgets::optionalSliderInputValMinMax(ns("font_size"), "Font Size", a$font_size, ticks = FALSE),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">99</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">#'       color_comb = "#39ff14",</pre>
+                      <pre class="language-r">          teal.widgets::optionalSliderInputValMinMax(ns("dot_size"), "Dot Size", a$dot_size, ticks = FALSE),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">100</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">#'       comb_line = TRUE,</pre>
+                      <pre class="language-r">          teal.widgets::optionalSliderInputValMinMax(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">101</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">#'       plot_height = c(500, 200, 2000),</pre>
+                      <pre class="language-r">            ns("reg_text_size"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">102</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">#'       font_size = c(12, 8, 20),</pre>
+                      <pre class="language-r">            "Regression Annotations Size",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">103</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">#'       line_size = c(1, .25, 3),</pre>
+                      <pre class="language-r">            a$reg_text_size,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">104</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">#'       hline_arb = c(.02, .05),</pre>
+                      <pre class="language-r">            ticks = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">105</td>
+                    <td class="num">350</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       hline_arb_color = c("red", "black"),</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">106</td>
+                    <td class="num">351</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       hline_arb_label = c("Horizontal Line A", "Horizontal Line B")</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">107</td>
+                    <td class="num">352</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     )</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">108</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">109</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">    forms = tagList(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">110</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">#' if (interactive()) {</pre>
+                      <pre class="language-r">      teal.widgets::verbatim_popup_ui(ns("warning"), "Show Warnings"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">111</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">#'   shinyApp(app$ui, app$server)</pre>
+                      <pre class="language-r">      teal.widgets::verbatim_popup_ui(ns("rcode"), "Show R code")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">112</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">113</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">    pre_output = a$pre_output,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">114</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">tm_g_gh_density_distribution_plot &lt;- function(label, # nolint</pre>
+                      <pre class="language-r">    post_output = a$post_output</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">115</td>
+                    <td class="num">360</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                              dataname,</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">116</td>
+                    <td class="num">361</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                              param_var,</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">117</td>
+                    <td class="num">362</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                              param,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">118</td>
+                    <td class="num">363</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                              xaxis_var,</pre>
+                      <pre class="language-r">srv_g_correlationplot &lt;- function(id,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">119</td>
+                    <td class="num">364</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                              trt_group,</pre>
+                      <pre class="language-r">                                  data,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">120</td>
+                    <td class="num">365</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                              color_manual = NULL,</pre>
+                      <pre class="language-r">                                  reporter,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">121</td>
+                    <td class="num">366</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                              color_comb = NULL,</pre>
+                      <pre class="language-r">                                  filter_panel_api,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">122</td>
+                    <td class="num">367</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                              plot_height = c(500, 200, 2000),</pre>
+                      <pre class="language-r">                                  dataname,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">123</td>
+                    <td class="num">368</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                              plot_width = NULL,</pre>
+                      <pre class="language-r">                                  param_var,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">124</td>
+                    <td class="num">369</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">                                  trt_group,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">125</td>
+                    <td class="num">370</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                              line_size = c(1, .25, 3),</pre>
+                      <pre class="language-r">                                  trt_facet,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">126</td>
+                    <td class="num">371</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                              hline_arb = numeric(0),</pre>
+                      <pre class="language-r">                                  color_manual,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">127</td>
+                    <td class="num">372</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                              hline_arb_color = "red",</pre>
+                      <pre class="language-r">                                  shape_manual,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">128</td>
+                    <td class="num">373</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                              hline_arb_label = "Horizontal line",</pre>
+                      <pre class="language-r">                                  plot_height,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">129</td>
+                    <td class="num">374</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                              facet_ncol = 2L,</pre>
+                      <pre class="language-r">                                  plot_width,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">130</td>
+                    <td class="num">375</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                              comb_line = TRUE,</pre>
+                      <pre class="language-r">                                  hline_vars_colors,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">131</td>
+                    <td class="num">376</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                              rotate_xlab = FALSE,</pre>
+                      <pre class="language-r">                                  hline_vars_labels,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">132</td>
+                    <td class="num">377</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                              pre_output = NULL,</pre>
+                      <pre class="language-r">                                  vline_vars_colors,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">133</td>
+                    <td class="num">378</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                              post_output = NULL) {</pre>
+                      <pre class="language-r">                                  vline_vars_labels) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">134</td>
+                    <td class="num">379</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  logger::log_info("Initializing tm_g_gh_density_distribution_plot")</pre>
+                      <pre class="language-r">  with_reporter &lt;- !missing(reporter) &amp;&amp; inherits(reporter, "Reporter")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">135</td>
+                    <td class="num">380</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(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">136</td>
+                    <td class="num">381</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(dataname)</pre>
+                      <pre class="language-r">  checkmate::assert_class(data, "reactive")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">137</td>
+                    <td class="num">382</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(param_var)</pre>
+                      <pre class="language-r">  checkmate::assert_class(shiny::isolate(data()), "teal_data")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">138</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">  checkmate::assert_class(param, "choices_selected")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">139</td>
+                    <td class="num">384</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(xaxis_var, "choices_selected")</pre>
+                      <pre class="language-r">  moduleServer(id, function(input, output, session) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">140</td>
+                    <td class="num">385</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(trt_group, "choices_selected")</pre>
+                      <pre class="language-r">    iv_r &lt;- reactive({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">141</td>
+                    <td class="num">386</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(font_size, len = 3)</pre>
+                      <pre class="language-r">      iv &lt;- shinyvalidate::InputValidator$new()</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <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">142</td>
+                    <td class="num">388</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(line_size, len = 3)</pre>
+                      <pre class="language-r">      iv$add_rule("xaxis_param", shinyvalidate::sv_required("Please select an X-Axis biomarker"))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">143</td>
+                    <td class="num">389</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_int(facet_ncol)</pre>
+                      <pre class="language-r">      iv$add_rule("yaxis_param", shinyvalidate::sv_required("Please select a Y-Axis biomarker"))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">144</td>
+                    <td class="num">390</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(comb_line)</pre>
+                      <pre class="language-r">      iv$add_rule("trt_group", shinyvalidate::sv_required("Please select a treatment variable"))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">145</td>
+                    <td class="num">391</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(rotate_xlab)</pre>
+                      <pre class="language-r">      iv$add_rule("xaxis_var", shinyvalidate::sv_required("Please select an X-Axis variable"))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">146</td>
+                    <td class="num">392</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  validate_line_arb_arg(hline_arb, hline_arb_color, hline_arb_label)</pre>
+                      <pre class="language-r">      iv$add_rule("yaxis_var", shinyvalidate::sv_required("Please select a Y-Axis variable"))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">147</td>
+                    <td class="num">393</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">      iv$add_rule("facet_ncol", plots_per_row_validate_rules())</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">394</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">148</td>
+                    <td class="num">395</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">      iv$add_validator(anl_constraint_output()$iv_r())</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">149</td>
+                    <td class="num">396</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">      iv$add_validator(horizontal_line()$iv_r())</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">150</td>
+                    <td class="num">397</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(</pre>
+                      <pre class="language-r">      iv$add_validator(vertical_line()$iv_r())</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">151</td>
+                    <td class="num">398</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    plot_width[1],</pre>
+                      <pre class="language-r">      iv$enable()</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">152</td>
+                    <td class="num">399</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">      iv</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">153</td>
+                    <td class="num">400</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">154</td>
+                    <td class="num">401</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">155</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">  args &lt;- as.list(environment())</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">156</td>
+                    <td class="num">403</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">157</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">404</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  module(</pre>
+                      <pre class="language-r">    # filter selected biomarkers</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">158</td>
+                    <td class="num">405</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    label = label,</pre>
+                      <pre class="language-r">    anl_param &lt;- reactive({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">159</td>
+                    <td class="num">406</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    datanames = dataname,</pre>
+                      <pre class="language-r">      dataset_var &lt;- dataname</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">160</td>
+                    <td class="num">407</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    server = srv_g_density_distribution_plot,</pre>
+                      <pre class="language-r">      ANL &lt;- data()[[dataname]] # nolint</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">161</td>
+                    <td class="num">408</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    server_args = list(</pre>
+                      <pre class="language-r">      validate_has_data(ANL, 1)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">409</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">410</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dataname = dataname,</pre>
+                      <pre class="language-r">      if (length(input$hline_vars) &gt; 0) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">163</td>
+                    <td class="num">411</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      param_var = param_var,</pre>
+                      <pre class="language-r">        validate(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">164</td>
+                    <td class="num">412</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      param = param,</pre>
+                      <pre class="language-r">          need(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">165</td>
+                    <td class="num">413</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      trt_group = trt_group,</pre>
+                      <pre class="language-r">            all(input$hline_vars %in% names(ANL)),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">166</td>
+                    <td class="num">414</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      color_manual = color_manual,</pre>
+                      <pre class="language-r">            "One or more selected horizontal line variable(s) is/are not names to any column in the data"</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">415</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">167</td>
+                    <td class="num">416</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      color_comb = color_comb,</pre>
+                      <pre class="language-r">          need(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">168</td>
+                    <td class="num">417</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      plot_height = plot_height,</pre>
+                      <pre class="language-r">            all(input$vline_vars %in% names(ANL)),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">169</td>
+                    <td class="num">418</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      plot_width = plot_width</pre>
+                      <pre class="language-r">            "One or more selected vertical line variable(s) is/are not names to any column in the data"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">170</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="missed">
-                    <td class="num">171</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">    ui = ui_g_density_distribution_plot,</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">172</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">    ui_args = args</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">173</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">174</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">      validate_has_variable(ANL, param_var)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">175</td>
+                    <td class="num">424</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">176</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">ui_g_density_distribution_plot &lt;- function(id, ...) {</pre>
+                      <pre class="language-r">      validate_in(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">177</td>
+                    <td class="num">426</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ns &lt;- NS(id)</pre>
+                      <pre class="language-r">        input$xaxis_param, unique(ANL[[param_var]]),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">178</td>
+                    <td class="num">427</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  a &lt;- list(...)</pre>
+                      <pre class="language-r">        sprintf("X-Axis Biomarker %s is not available in data %s", input$xaxis_param, dataname)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">179</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">180</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">  teal.widgets::standard_layout(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">181</td>
+                    <td class="num">430</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    output = div(</pre>
+                      <pre class="language-r">      validate_in(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">182</td>
+                    <td class="num">431</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      fluidRow(</pre>
+                      <pre class="language-r">        input$yaxis_param, unique(ANL[[param_var]]),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">183</td>
+                    <td class="num">432</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        teal.widgets::plot_with_settings_ui(id = ns("plot"))</pre>
+                      <pre class="language-r">        sprintf("Y-Axis Biomarker %s is not available in data %s", input$yaxis_param, dataname)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">184</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">185</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">      fluidRow(column(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">186</td>
+                    <td class="num">435</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        width = 12,</pre>
+                      <pre class="language-r">      validate_has_variable(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">187</td>
+                    <td class="num">436</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        br(), hr(),</pre>
+                      <pre class="language-r">        ANL,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">188</td>
+                    <td class="num">437</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        h4("Descriptive Statistics"),</pre>
+                      <pre class="language-r">        "AVISITCD",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">189</td>
+                    <td class="num">438</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        DT::dataTableOutput(ns("table_ui"))</pre>
+                      <pre class="language-r">        sprintf("Variable AVISITCD is not available in data %s", dataname)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">190</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">191</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">192</td>
+                    <td class="num">441</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    encoding = div(</pre>
+                      <pre class="language-r">      validate_has_variable(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">193</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">      ### Reporter</pre>
+                      <pre class="language-r">        ANL,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">194</td>
+                    <td class="num">443</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">        "BASE",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">195</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">        sprintf("Variable BASE is not available in data %s", dataname)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">196</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">      templ_ui_dataname(a$dataname),</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">197</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">      teal.widgets::optionalSelectInput(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">198</td>
+                    <td class="num">447</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ns("trt_group"),</pre>
+                      <pre class="language-r">      validate_has_variable(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">199</td>
+                    <td class="num">448</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        label = "Select Treatment Variable",</pre>
+                      <pre class="language-r">        ANL,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">200</td>
+                    <td class="num">449</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        choices = a$trt_group$choices,</pre>
+                      <pre class="language-r">        "BASE2",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">201</td>
+                    <td class="num">450</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        selected = a$trt_group$selected,</pre>
+                      <pre class="language-r">        sprintf("Variable BASE2 is not available in data %s", dataname)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">202</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">        multiple = FALSE</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">203</td>
+                    <td class="num">452</td>
                     <td class="coverage"></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="num">453</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      templ_ui_params_vars(</pre>
+                      <pre class="language-r">      validate_has_variable(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">205</td>
+                    <td class="num">454</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ns,</pre>
+                      <pre class="language-r">        ANL,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">206</td>
+                    <td class="num">455</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        xparam_choices = a$param$choices, xparam_selected = a$param$selected, xparam_label = "Select a Biomarker",</pre>
+                      <pre class="language-r">        "LOQFL",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">207</td>
+                    <td class="num">456</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        xchoices = a$xaxis_var$choices, xselected = a$xaxis_var$selected</pre>
+                      <pre class="language-r">        sprintf("Variable LOQFL is not available in data %s", dataname)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">208</td>
+                    <td class="num">457</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ),</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">209</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">458</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      templ_ui_constraint(ns, label = "Data Constraint"),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">210</td>
+                    <td class="num">459</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ui_arbitrary_lines(id = ns("hline_arb"), a$hline_arb, a$hline_arb_label, a$hline_arb_color),</pre>
+                      <pre class="language-r">      validate_has_variable(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">211</td>
+                    <td class="num">460</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.widgets::panel_group(</pre>
+                      <pre class="language-r">        ANL,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">212</td>
+                    <td class="num">461</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        teal.widgets::panel_item(</pre>
+                      <pre class="language-r">        "PARAM",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">213</td>
+                    <td class="num">462</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          title = "Plot Aesthetic Settings",</pre>
+                      <pre class="language-r">        sprintf("Variable PARAM is not available in data %s", dataname)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">214</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">          toggle_slider_ui(</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">464</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ns("xrange_scale"),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">216</td>
+                    <td class="num">465</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            label = "X-Axis Range Zoom",</pre>
+                      <pre class="language-r">      validate_has_variable(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">217</td>
+                    <td class="num">466</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            min = -1000000,</pre>
+                      <pre class="language-r">        ANL,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">218</td>
+                    <td class="num">467</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            max = 1000000,</pre>
+                      <pre class="language-r">        "LBSTRESC",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">219</td>
+                    <td class="num">468</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            value = c(-1000000, 1000000)</pre>
+                      <pre class="language-r">        sprintf("Variable LBSTRESC is not available in data %s", dataname)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">220</td>
+                    <td class="num">469</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ),</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">221</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">          toggle_slider_ui(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">222</td>
+                    <td class="num">471</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ns("yrange_scale"),</pre>
+                      <pre class="language-r">      validate_has_variable(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">223</td>
+                    <td class="num">472</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            label = "Y-Axis Range Zoom",</pre>
+                      <pre class="language-r">        ANL,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">224</td>
+                    <td class="num">473</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            min = -1000000,</pre>
+                      <pre class="language-r">        input$trt_group,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">225</td>
+                    <td class="num">474</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            max = 1000000,</pre>
+                      <pre class="language-r">        sprintf("Variable %s is not available in data %s", input$trt_group, dataname)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">226</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">            value = c(-1000000, 1000000)</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">227</td>
+                    <td class="num">476</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">228</td>
+                    <td class="num">477</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          numericInput(ns("facet_ncol"), "Number of Plots Per Row:", a$facet_ncol, min = 1),</pre>
+                      <pre class="language-r">      validate_has_variable(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">229</td>
+                    <td class="num">478</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          checkboxInput(ns("comb_line"), "Display Combined line", a$comb_line),</pre>
+                      <pre class="language-r">        ANL,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">230</td>
+                    <td class="num">479</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">        "USUBJID",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">231</td>
+                    <td class="num">480</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          checkboxInput(ns("rotate_xlab"), "Rotate X-axis Label", a$rotate_xlab)</pre>
+                      <pre class="language-r">        sprintf("Variable USUBJID is not available in data %s", dataname)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">232</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">233</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">        teal.widgets::panel_item(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">234</td>
+                    <td class="num">483</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          title = "Plot settings",</pre>
+                      <pre class="language-r">      validate_has_variable(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">235</td>
+                    <td class="num">484</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          teal.widgets::optionalSliderInputValMinMax(ns("font_size"), "Font Size", a$font_size, ticks = FALSE),</pre>
+                      <pre class="language-r">        ANL,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">236</td>
+                    <td class="num">485</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          teal.widgets::optionalSliderInputValMinMax(</pre>
+                      <pre class="language-r">        input$xaxis_var,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">237</td>
+                    <td class="num">486</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ns("line_size"),</pre>
+                      <pre class="language-r">        sprintf("Variable %s is not available in data %s", input$xaxis_var, dataname)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">238</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">487</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            "Line Size",</pre>
+                      <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>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">239</td>
+                    <td class="num">489</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            value_min_max = a$line_size,</pre>
+                      <pre class="language-r">      validate_has_variable(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">240</td>
+                    <td class="num">490</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            step = .25,</pre>
+                      <pre class="language-r">        ANL,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">241</td>
+                    <td class="num">491</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ticks = FALSE</pre>
+                      <pre class="language-r">        input$yaxis_var,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">242</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">        sprintf("Variable %s is not available in data %s", input$yaxis_var, dataname)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">243</td>
+                    <td class="num">493</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">244</td>
+                    <td class="num">494</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">245</td>
+                    <td class="num">495</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ),</pre>
+                      <pre class="language-r">      # analysis</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">246</td>
+                    <td class="num">496</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    forms = tagList(</pre>
+                      <pre class="language-r">      private_qenv &lt;- data() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">247</td>
+                    <td class="num">497</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">        teal.code::eval_code(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">248</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("rcode"), "Show R code")</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">          code = bquote({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">250</td>
+                    <td class="num">499</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    pre_output = a$pre_output,</pre>
+                      <pre class="language-r">            ANL &lt;- .(as.name(dataset_var)) %&gt;% # nolint</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">251</td>
+                    <td class="num">500</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    post_output = a$post_output</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="never">
-                    <td class="num">253</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">254</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">              dplyr::filter(.data[[.(param_var)]] %in% union(.(input$xaxis_param), .(input$yaxis_param)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">255</td>
+                    <td class="num">501</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">srv_g_density_distribution_plot &lt;- function(id, # nolint</pre>
+                      <pre class="language-r">          })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">256</td>
+                    <td class="num">502</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">257</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">                                            reporter,</pre>
+                      <pre class="language-r">      validate_has_data(private_qenv[["ANL"]], 1)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">258</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">                                            filter_panel_api,</pre>
+                      <pre class="language-r">      return(list(ANL = ANL, qenv = private_qenv))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">259</td>
+                    <td class="num">505</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                            dataname,</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">260</td>
+                    <td class="num">506</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                            param_var,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">261</td>
+                    <td class="num">507</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                            param,</pre>
+                      <pre class="language-r">    # constraints</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">262</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">508</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                            trt_group,</pre>
+                      <pre class="language-r">    observe({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">263</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">509</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                            color_manual,</pre>
+                      <pre class="language-r">      req(input$xaxis_param)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">264</td>
+                    <td class="num">510</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                            color_comb,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">265</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">                                            plot_height,</pre>
+                      <pre class="language-r">      constraint_var &lt;- input$constraint_var</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">266</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">512</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                            plot_width) {</pre>
+                      <pre class="language-r">      req(constraint_var)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">267</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">  with_reporter &lt;- !missing(reporter) &amp;&amp; inherits(reporter, "Reporter")</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">514</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">      # note that filtered is false thus we cannot use anl_param()$ANL</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">269</td>
+                    <td class="num">515</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 &lt;- data()[[dataname]] # nolint</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">270</td>
+                    <td class="num">516</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(shiny::isolate(data()), "teal_data")</pre>
+                      <pre class="language-r">      validate_has_data(ANL, 1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">271</td>
+                    <td class="num">517</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">518</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">      validate_has_variable(ANL, param_var)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">273</td>
+                    <td class="num">519</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    anl_q_output &lt;- constr_anl_q(</pre>
+                      <pre class="language-r">      validate_has_variable(ANL, "AVISITCD")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">274</td>
+                    <td class="num">520</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      session, input, data, dataname,</pre>
+                      <pre class="language-r">      validate_has_variable(ANL, "BASE")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">275</td>
+                    <td class="num">521</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      param_id = "xaxis_param", param_var = param_var, trt_group = input$trt_group, min_rows = 2</pre>
+                      <pre class="language-r">      validate_has_variable(ANL, "BASE2")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">276</td>
+                    <td class="num">522</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">523</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      ANL &lt;- ANL %&gt;% dplyr::filter(.data[[param_var]] == input$xaxis_param) # nolint</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">277</td>
+                    <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">278</td>
+                    <td class="num">525</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    anl_q &lt;- anl_q_output()$value</pre>
+                      <pre class="language-r">      visit_freq &lt;- unique(ANL$AVISITCD)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">279</td>
+                    <td class="num">526</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">527</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # update sliders for axes taking constraints into account</pre>
+                      <pre class="language-r">      # get min max values</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">281</td>
+                    <td class="num">528</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    xrange_slider &lt;- toggle_slider_server("xrange_scale")</pre>
+                      <pre class="language-r">      if ((constraint_var == "BASE2" &amp;&amp; any(grepl("SCR", visit_freq))) ||</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">282</td>
+                    <td class="num">529</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    yrange_slider &lt;- toggle_slider_server("yrange_scale")</pre>
+                      <pre class="language-r">        (constraint_var == "BASE" &amp;&amp; any(grepl("BL", visit_freq)))) { # nolint</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">283</td>
+                    <td class="num">530</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    keep_range_slider_updated(session, input, xrange_slider$update_state, "xaxis_var", "xaxis_param", anl_q)</pre>
+                      <pre class="language-r">        val &lt;- stats::na.omit(switch(constraint_var,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">284</td>
+                    <td class="num">531</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    keep_range_slider_updated(</pre>
+                      <pre class="language-r">          "BASE" = ANL$BASE[ANL$AVISITCD == "BL"],</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">285</td>
+                    <td class="num">532</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      session,</pre>
+                      <pre class="language-r">          "BASE2" = ANL$BASE2[ANL$AVISITCD == "SCR"],</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">286</td>
+                    <td class="num">533</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      input,</pre>
+                      <pre class="language-r">          stop(paste(constraint_var, "not allowed"))</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="never">
+                    <td class="num">535</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></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">      yrange_slider$update_state,</pre>
+                      <pre class="language-r">        if (length(val) == 0 || all(is.na(val))) {</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">      "xaxis_var",</pre>
+                      <pre class="language-r">          shinyjs::show("all_na")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">289</td>
+                    <td class="num">538</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "xaxis_param",</pre>
+                      <pre class="language-r">          shinyjs::hide("constraint_range")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">290</td>
+                    <td class="num">539</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      anl_q,</pre>
+                      <pre class="language-r">          args &lt;- list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">291</td>
+                    <td class="num">540</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      is_density = TRUE</pre>
+                      <pre class="language-r">            min = list(label = "Min", min = 0, max = 0, value = 0),</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">541</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            max = list(label = "Max", min = 0, max = 0, value = 0)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">292</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="missed">
-                    <td class="num">293</td>
+                    <td class="num">543</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    keep_data_const_opts_updated(session, input, anl_q, "xaxis_param")</pre>
+                      <pre class="language-r">          update_min_max(session, args)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">294</td>
+                    <td class="num">544</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        } else {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">545</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          rng &lt;- range(val, na.rm = TRUE)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <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">295</td>
+                    <td class="num">547</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    horizontal_line &lt;- srv_arbitrary_lines("hline_arb")</pre>
+                      <pre class="language-r">          minmax &lt;- c(floor(rng[1] * 1000) / 1000, ceiling(rng[2] * 1000) / 1000)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">296</td>
+                    <td class="num">548</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="num">549</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    iv_r &lt;- reactive({</pre>
+                      <pre class="language-r">          label_min &lt;- sprintf("Min (%s)", minmax[1])</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">298</td>
+                    <td class="num">550</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_max &lt;- sprintf("Max (%s)", minmax[2])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">299</td>
+                    <td class="num">551</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">300</td>
+                    <td class="num">552</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv$add_rule("xaxis_param", shinyvalidate::sv_required("Please select a biomarker"))</pre>
+                      <pre class="language-r">          args &lt;- list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">301</td>
+                    <td class="num">553</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv$add_rule("trt_group", shinyvalidate::sv_required("Please select a treatment variable"))</pre>
+                      <pre class="language-r">            min = list(label = label_min, min = minmax[1], max = minmax[2], value = minmax[1]),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">302</td>
+                    <td class="num">554</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv$add_rule("xaxis_var", shinyvalidate::sv_required("Please select an X-Axis variable"))</pre>
+                      <pre class="language-r">            max = list(label = label_max, min = minmax[1], max = minmax[2], value = minmax[2])</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">303</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">      iv$add_rule("facet_ncol", plots_per_row_validate_rules())</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">304</td>
+                    <td class="num">556</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">305</td>
+                    <td class="num">557</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv$add_validator(horizontal_line()$iv_r())</pre>
+                      <pre class="language-r">          update_min_max(session, args)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">306</td>
+                    <td class="num">558</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv$add_validator(anl_q_output()$iv_r())</pre>
+                      <pre class="language-r">          shinyjs::show("constraint_range") # update before show</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">307</td>
+                    <td class="num">559</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv$enable()</pre>
+                      <pre class="language-r">          shinyjs::hide("all_na")</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <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">308</td>
+                    <td class="num">561</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv</pre>
+                      <pre class="language-r">      } else if (constraint_var == "NONE") {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">309</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">        shinyjs::hide("constraint_range") # hide before update</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">563</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        shinyjs::hide("all_na")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">310</td>
+                    <td class="num">564</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">311</td>
+                    <td class="num">565</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        # force update (and thus refresh) on different constraint_var -&gt; pass unique value for each constraint_var name</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">312</td>
+                    <td class="num">566</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    create_plot &lt;- reactive({</pre>
+                      <pre class="language-r">        args &lt;- list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">313</td>
+                    <td class="num">567</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal::validate_inputs(iv_r())</pre>
+                      <pre class="language-r">          min = list(label = "Min", min = 0, max = 0, value = 0),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">314</td>
+                    <td class="num">568</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      req(anl_q())</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>
+                      <pre class="language-r">          max = list(label = "Max", min = 0, max = 0, value = 0)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">316</td>
+                    <td class="num">569</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="missed">
-                    <td class="num">317</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">570</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      param &lt;- input$xaxis_param</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">318</td>
+                    <td class="num">571</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      xaxis_var &lt;- input$xaxis_var</pre>
+                      <pre class="language-r">        update_min_max(session, args)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">319</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">572</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      xlim &lt;- xrange_slider$state()$value</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">320</td>
+                    <td class="num">573</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ylim &lt;- yrange_slider$state()$value</pre>
+                      <pre class="language-r">        stop("invalid contraint_var", constraint_var)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">321</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">      font_size &lt;- input$font_size</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">322</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">575</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      line_size &lt;- input$line_size</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">323</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">576</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      hline_arb &lt;- horizontal_line()$line_arb</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">324</td>
+                    <td class="num">577</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      hline_arb_label &lt;- horizontal_line()$line_arb_label</pre>
+                      <pre class="language-r">    anl_constraint_output &lt;- create_anl_constraint_reactive(anl_param, input, param_id = "xaxis_param", min_rows = 1)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">325</td>
+                    <td class="num">578</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      hline_arb_color &lt;- horizontal_line()$line_arb_color</pre>
+                      <pre class="language-r">    anl_constraint &lt;- anl_constraint_output()$value</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">326</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">      facet_ncol &lt;- input$facet_ncol</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">327</td>
+                    <td class="num">580</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    # update sliders for axes taking constraints into account</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">328</td>
+                    <td class="num">581</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      comb_line &lt;- input$comb_line</pre>
+                      <pre class="language-r">    xrange_slider &lt;- toggle_slider_server("xrange_scale")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">329</td>
+                    <td class="num">582</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">    yrange_slider &lt;- toggle_slider_server("yrange_scale")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">330</td>
+                    <td class="num">583</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      rotate_xlab &lt;- input$rotate_xlab</pre>
+                      <pre class="language-r">    keep_range_slider_updated(session, input, xrange_slider$update_state, "xaxis_var", "xaxis_param", anl_constraint)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">331</td>
+                    <td class="num">584</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      trt_group &lt;- input$trt_group</pre>
+                      <pre class="language-r">    keep_range_slider_updated(session, input, yrange_slider$update_state, "yaxis_var", "yaxis_param", anl_constraint)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">332</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">585</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # nolint end</pre>
+                      <pre class="language-r">    keep_data_const_opts_updated(session, input, anl_constraint, "xaxis_param")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">333</td>
+                    <td class="num">586</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">334</td>
+                    <td class="num">587</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    # selector names after transposition</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">335</td>
+                    <td class="num">588</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.code::eval_code(</pre>
+                      <pre class="language-r">    xvar &lt;- reactive(paste0(input$xaxis_var, ".", input$xaxis_param))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">336</td>
+                    <td class="num">589</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        object = anl_q()$qenv,</pre>
+                      <pre class="language-r">    yvar &lt;- reactive(paste0(input$yaxis_var, ".", input$yaxis_param))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">337</td>
+                    <td class="num">590</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        code = bquote({</pre>
+                      <pre class="language-r">    xloqfl &lt;- reactive(paste0("LOQFL_", input$xaxis_param))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">338</td>
+                    <td class="num">591</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          p &lt;- goshawk::g_density_distribution_plot(</pre>
+                      <pre class="language-r">    yloqfl &lt;- reactive(paste0("LOQFL_", input$yaxis_param))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">339</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">            data = ANL,</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">593</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            param_var = .(param_var),</pre>
+                      <pre class="language-r">    # transpose data to plot</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">341</td>
+                    <td class="num">594</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            param = .(param),</pre>
+                      <pre class="language-r">    plot_data_transpose &lt;- reactive({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">342</td>
+                    <td class="num">595</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            xaxis_var = .(xaxis_var),</pre>
+                      <pre class="language-r">      teal::validate_inputs(iv_r())</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">343</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">            trt_group = .(trt_group),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">344</td>
+                    <td class="num">597</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            xlim = .(xlim),</pre>
+                      <pre class="language-r">      req(anl_constraint())</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">345</td>
+                    <td class="num">598</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ylim = .(ylim),</pre>
+                      <pre class="language-r">      ANL &lt;- anl_constraint()$ANL # nolint</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">346</td>
+                    <td class="num">599</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            color_manual = .(color_manual),</pre>
+                      <pre class="language-r">      trt_group &lt;- input$trt_group</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">347</td>
+                    <td class="num">600</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            color_comb = .(color_comb),</pre>
+                      <pre class="language-r">      line_vars &lt;- unique(c(input$hline_vars, input$vline_vars))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">348</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">601</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            font_size = .(font_size),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">349</td>
+                    <td class="num">602</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            line_size = .(line_size),</pre>
+                      <pre class="language-r">      private_q &lt;- anl_constraint()$qenv %&gt;% teal.code::eval_code(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">350</td>
+                    <td class="num">603</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            facet_ncol = .(facet_ncol),</pre>
+                      <pre class="language-r">        code = bquote({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">351</td>
+                    <td class="num">604</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            comb_line = .(comb_line),</pre>
+                      <pre class="language-r">          ANL_TRANSPOSED1 &lt;- ANL %&gt;% # nolint</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">352</td>
+                    <td class="num">605</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            hline_arb = .(hline_arb),</pre>
+                      <pre class="language-r">            dplyr::select(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">353</td>
+                    <td class="num">606</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            hline_arb_label = .(hline_arb_label),</pre>
+                      <pre class="language-r">              .data[["USUBJID"]],</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">354</td>
+                    <td class="num">607</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            hline_arb_color = .(hline_arb_color),</pre>
+                      <pre class="language-r">              .data[[.(trt_group)]],</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">355</td>
+                    <td class="num">608</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            rug_plot = .(rug_plot)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">356</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">357</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        })</pre>
+                      <pre class="language-r">              .data[["AVISITCD"]],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">358</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">              .data[[.(param_var)]],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">359</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">              .data[[.(input$xaxis_var)]],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">360</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">              .data[[.(input$yaxis_var)]],</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">361</td>
+                    <td class="num">612</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    create_table &lt;- reactive({</pre>
+                      <pre class="language-r">              .(`if`(length(line_vars) == 0, NULL, line_vars))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">362</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">      req(iv_r()$is_valid())</pre>
+                      <pre class="language-r">            ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">363</td>
+                    <td class="num">614</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      req(anl_q())</pre>
+                      <pre class="language-r">            tidyr::pivot_longer(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">364</td>
+                    <td class="num">615</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      param &lt;- input$xaxis_param</pre>
+                      <pre class="language-r">              c(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">365</td>
+                    <td class="num">616</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      xaxis_var &lt;- input$xaxis_var</pre>
+                      <pre class="language-r">                .data[[.(input$xaxis_var)]],</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">366</td>
+                    <td class="num">617</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">                .data[[.(input$yaxis_var)]],</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">367</td>
+                    <td class="num">618</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      trt_group &lt;- input$trt_group</pre>
+                      <pre class="language-r">                .(`if`(length(line_vars) == 0, NULL, line_vars))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">368</td>
+                    <td class="num">619</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">369</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">370</td>
+                    <td class="num">620</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        object = anl_q()$qenv,</pre>
+                      <pre class="language-r">              names_to = "ANLVARS",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">371</td>
+                    <td class="num">621</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        code = bquote(</pre>
+                      <pre class="language-r">              values_to = "ANLVALS"</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">372</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">          tbl &lt;- goshawk::t_summarytable(</pre>
+                      <pre class="language-r">            ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">373</td>
+                    <td class="num">623</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            data = ANL,</pre>
+                      <pre class="language-r">            tidyr::unite(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">374</td>
+                    <td class="num">624</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            trt_group = .(trt_group),</pre>
+                      <pre class="language-r">              "ANL.PARAM",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">375</td>
+                    <td class="num">625</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            param_var = .(param_var),</pre>
+                      <pre class="language-r">              "ANLVARS",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">376</td>
+                    <td class="num">626</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            param = .(param),</pre>
+                      <pre class="language-r">              .(param_var),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">377</td>
+                    <td class="num">627</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            xaxis_var = .(xaxis_var),</pre>
+                      <pre class="language-r">              sep = ".",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">378</td>
+                    <td class="num">628</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            font_size = .(font_size)</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">              remove = TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">380</td>
+                    <td class="num">629</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">381</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">            tidyr::pivot_wider(names_from = "ANL.PARAM", values_from = "ANLVALS") %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">382</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">            dplyr::filter(!is.na(.data[[.(xvar())]]) &amp; !is.na(.data[[.(yvar())]]))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">383</td>
+                    <td class="num">632</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">384</td>
+                    <td class="num">633</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    plot_r &lt;- reactive({</pre>
+                      <pre class="language-r">          ANL_TRANSPOSED2 &lt;- ANL %&gt;% # nolint</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">385</td>
+                    <td class="num">634</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      create_plot()[["p"]]</pre>
+                      <pre class="language-r">            dplyr::select(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">386</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">635</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">              .data[["USUBJID"]],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">387</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">636</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">              .data[[.(trt_group)]],</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">388</td>
+                    <td class="num">637</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    plot_data &lt;- teal.widgets::plot_with_settings_srv(</pre>
+                      <pre class="language-r">              .data[["AVISITCD"]],</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">389</td>
+                    <td class="num">638</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      id = "plot",</pre>
+                      <pre class="language-r">              .data[[.(param_var)]],</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">390</td>
+                    <td class="num">639</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      plot_r = plot_r,</pre>
+                      <pre class="language-r">              .data[["LOQFL"]],</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">391</td>
+                    <td class="num">640</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      height = plot_height,</pre>
+                      <pre class="language-r">              .data[["PARAM"]],</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">392</td>
+                    <td class="num">641</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      width = plot_width,</pre>
+                      <pre class="language-r">              .data[["LBSTRESC"]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">393</td>
+                    <td class="num">642</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">394</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">            tidyr::pivot_longer(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">395</td>
+                    <td class="num">644</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">              c(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">396</td>
+                    <td class="num">645</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      req(create_table())</pre>
+                      <pre class="language-r">                .data[["LOQFL"]],</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">397</td>
+                    <td class="num">646</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      tbl &lt;- create_table()[["tbl"]]</pre>
+                      <pre class="language-r">                .data[["PARAM"]],</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">398</td>
+                    <td class="num">647</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      numeric_cols &lt;- names(dplyr::select_if(tbl, is.numeric))</pre>
+                      <pre class="language-r">                .data[["LBSTRESC"]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">399</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="missed">
-                    <td class="num">400</td>
+                    <td class="num">649</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      DT::datatable(tbl, rownames = FALSE, options = list(scrollX = TRUE)) %&gt;%</pre>
+                      <pre class="language-r">              names_to = "ANLVARS",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">401</td>
+                    <td class="num">650</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        DT::formatRound(numeric_cols, 2)</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">              values_to = "ANLVALS"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">403</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="missed">
-                    <td class="num">404</td>
+                    <td class="num">652</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    joined_qenvs &lt;- reactive({</pre>
+                      <pre class="language-r">            tidyr::unite(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">405</td>
+                    <td class="num">653</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      req(create_plot(), create_table())</pre>
+                      <pre class="language-r">              "ANL.PARAM",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">406</td>
+                    <td class="num">654</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.code::join(create_plot(), create_table())</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>
+                      <pre class="language-r">              "ANLVARS",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">408</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">              .(param_var),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">409</td>
+                    <td class="num">656</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    teal.widgets::verbatim_popup_srv(</pre>
+                      <pre class="language-r">              sep = "_",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">410</td>
+                    <td class="num">657</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      id = "warning",</pre>
+                      <pre class="language-r">              remove = TRUE</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">411</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">      verbatim_content = reactive(teal.code::get_warnings(joined_qenvs())),</pre>
+                      <pre class="language-r">            ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">412</td>
+                    <td class="num">659</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      title = "Warning",</pre>
+                      <pre class="language-r">            tidyr::pivot_wider(names_from = "ANL.PARAM", values_from = "ANLVALS") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">413</td>
+                    <td class="num">660</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      disabled = reactive(is.null(teal.code::get_warnings(joined_qenvs())))</pre>
+                      <pre class="language-r">            dplyr::mutate(LOQFL_COMB = dplyr::case_when(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">414</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">661</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">              .data[[.(xloqfl())]] == "Y" | .data[[.(yloqfl())]] == "Y" ~ "Y",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">415</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">              .data[[.(xloqfl())]] == "N" &amp; .data[[.(yloqfl())]] == "N" ~ "N",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">416</td>
+                    <td class="num">663</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    teal.widgets::verbatim_popup_srv(</pre>
+                      <pre class="language-r">              .data[[.(xloqfl())]] == "N" &amp; .data[[.(yloqfl())]] == "NA" ~ "N",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">417</td>
+                    <td class="num">664</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      id = "rcode",</pre>
+                      <pre class="language-r">              .data[[.(xloqfl())]] == "NA" &amp; .data[[.(yloqfl())]] == "N" ~ "N",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">418</td>
+                    <td class="num">665</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      verbatim_content = reactive(</pre>
+                      <pre class="language-r">              .data[[.(xloqfl())]] == "NA" &amp; .data[[.(yloqfl())]] == "NA" ~ "NA",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">419</td>
+                    <td class="num">666</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        teal.code::get_code(joined_qenvs())</pre>
+                      <pre class="language-r">              TRUE ~ as.character(NA)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">420</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="never">
+                    <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">421</td>
+                    <td class="num">669</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      title = "Show R Code for Density Distribution Plot"</pre>
+                      <pre class="language-r">          ANL_TRANSPOSED &lt;- merge(ANL_TRANSPOSED1, ANL_TRANSPOSED2) # nolint</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">422</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">423</td>
+                    <td class="num">671</td>
                     <td class="coverage"></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">672</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">425</td>
+                    <td class="num">673</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (with_reporter) {</pre>
+                      <pre class="language-r">      validate(need(nrow(private_q[["ANL_TRANSPOSED"]]) &gt; 0, "Plot Data No Observations Left"))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">426</td>
+                    <td class="num">674</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">      validate_has_variable(data = private_q[["ANL_TRANSPOSED"]], varname = c(xvar(), yvar(), xloqfl(), yloqfl()))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">427</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">        card &lt;- report_card_template_goshawk(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">428</td>
+                    <td class="num">676</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          title = "Density Distribution Plot",</pre>
+                      <pre class="language-r">      private_q &lt;- teal.code::eval_code(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">429</td>
+                    <td class="num">677</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          label = label,</pre>
+                      <pre class="language-r">        object = private_q,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">430</td>
+                    <td class="num">678</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          with_filter = with_filter,</pre>
+                      <pre class="language-r">        code =</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">431</td>
+                    <td class="num">679</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">          bquote(attr(ANL_TRANSPOSED[[.(trt_group)]], "label") &lt;- attr(ANL[[.(trt_group)]], "label")) # nolint</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">680</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">432</td>
+                    <td class="num">681</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          constraint_list = list(</pre>
+                      <pre class="language-r">      return(list(ANL_TRANSPOSED = private_q[["ANL_TRANSPOSED"]], qenv = private_q))</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="never">
+                    <td class="num">683</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">433</td>
+                    <td class="num">684</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            constraint_var = input$constraint_var,</pre>
+                      <pre class="language-r">    plot_labels &lt;- reactive({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">434</td>
+                    <td class="num">685</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            constraint_range_min = input$constraint_range_min,</pre>
+                      <pre class="language-r">      req(anl_constraint())</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">435</td>
+                    <td class="num">686</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            constraint_range_max = input$constraint_range_max</pre>
+                      <pre class="language-r">      ANL &lt;- anl_constraint()$qenv[["ANL"]] # nolint</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">436</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">437</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">688</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">      xparam &lt;- ANL$PARAM[ANL[[param_var]] == input$xaxis_param][1]</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">438</td>
+                    <td class="num">689</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        card$append_text("Plot", "header3")</pre>
+                      <pre class="language-r">      yparam &lt;- ANL$PARAM[ANL[[param_var]] == input$yaxis_param][1]</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">      # setup the x-axis label.  Combine the biomarker and the units (if available)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">439</td>
+                    <td class="num">692</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        card$append_plot(plot_r(), dim = plot_data$dim())</pre>
+                      <pre class="language-r">      if (is.null(ANL$AVALU) || all(ANL[["AVALU"]] == "")) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">440</td>
+                    <td class="num">693</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        card$append_text("Descriptive Statistics", "header3")</pre>
+                      <pre class="language-r">        title_text &lt;- paste(xparam, "and", yparam, "@ Visits")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">441</td>
+                    <td class="num">694</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        card$append_table(</pre>
+                      <pre class="language-r">        xaxis_lab &lt;- paste(xparam, input$xaxis_var, "Values")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">442</td>
+                    <td class="num">695</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          create_table()[["tbl"]] %&gt;% dplyr::mutate_if(is.numeric, round, 2)</pre>
+                      <pre class="language-r">        yaxis_lab &lt;- paste(yparam, input$yaxis_var, "Values")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">443</td>
+                    <td class="num">696</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">444</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        if (!comment == "") {</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">445</td>
+                    <td class="num">697</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          card$append_text("Comment", "header3")</pre>
+                      <pre class="language-r">        xunit &lt;- ANL$AVALU[ANL[[param_var]] == input$xaxis_param][1]</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">446</td>
+                    <td class="num">698</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          card$append_text(comment)</pre>
+                      <pre class="language-r">        yunit &lt;- ANL$AVALU[ANL[[param_var]] == input$yaxis_param][1]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">447</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="missed">
-                    <td class="num">448</td>
+                    <td class="num">700</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        card$append_src(</pre>
+                      <pre class="language-r">        title_text &lt;- paste0(xparam, " (", xunit, ") and ", yparam, " (", yunit, ") @ Visits")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">449</td>
+                    <td class="num">701</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          teal.code::get_code(</pre>
+                      <pre class="language-r">        xaxis_lab &lt;- paste0(xparam, " (", xunit, ") ", input$xaxis_var, " Values")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">450</td>
+                    <td class="num">702</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            teal.code::join(create_plot(), create_table())</pre>
+                      <pre class="language-r">        yaxis_lab &lt;- paste0(yparam, " (", yunit, ") ", input$yaxis_var, " Values")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">451</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">452</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="missed">
-                    <td class="num">453</td>
+                    <td class="num">705</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        card</pre>
+                      <pre class="language-r">      list(title_text = title_text, xaxis_lab = xaxis_lab, yaxis_lab = yaxis_lab)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">454</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">707</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">708</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">    horizontal_line &lt;- srv_arbitrary_lines("hline_arb")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">456</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">709</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">    vertical_line &lt;- srv_arbitrary_lines("vline_arb")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">457</td>
+                    <td class="num">710</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ###</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">458</td>
+                    <td class="num">711</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
+                      <pre class="language-r">    # plot</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">459</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">712</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">    plot_q &lt;- reactive({</pre>
                     </td>
-                  </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/utils-keep_range_slider_updated.r" class="hidden">
-              <table class="table-condensed">
-                <tbody>
-                  <tr class="never">
-                    <td class="num">1</td>
-                    <td class="coverage"></td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">713</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">keep_range_slider_updated &lt;- function(session,</pre>
+                      <pre class="language-r">      req(plot_data_transpose())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">714</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                      input,</pre>
+                      <pre class="language-r">      # nolint start</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">3</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">715</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                      update_slider_fcn,</pre>
+                      <pre class="language-r">      xaxis_param &lt;- input$xaxis_param</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">4</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">716</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                      id_var,</pre>
+                      <pre class="language-r">      xaxis_var &lt;- input$xaxis_var</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">5</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">717</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                      id_param_var,</pre>
+                      <pre class="language-r">      yaxis_param &lt;- input$yaxis_param</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">6</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">718</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                      reactive_ANL, # nolint</pre>
+                      <pre class="language-r">      yaxis_var &lt;- input$yaxis_var</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">7</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">719</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                      is_density = FALSE) {</pre>
+                      <pre class="language-r">      xlim &lt;- xrange_slider$state()$value</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">8</td>
+                    <td class="num">720</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  stopifnot(is.function(update_slider_fcn))</pre>
+                      <pre class="language-r">      ylim &lt;- yrange_slider$state()$value</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">9</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">      font_size &lt;- input$font_size</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">10</td>
+                    <td class="num">722</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  observe({</pre>
+                      <pre class="language-r">      dot_size &lt;- input$dot_size</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">11</td>
+                    <td class="num">723</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    varname &lt;- input[[id_var]]</pre>
+                      <pre class="language-r">      reg_text_size &lt;- input$reg_text_size</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">12</td>
+                    <td class="num">724</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    validate(need(varname, "Please select variable"))</pre>
+                      <pre class="language-r">      hline_arb &lt;- horizontal_line()$line_arb</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">13</td>
+                    <td class="num">725</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    paramname &lt;- input[[id_param_var]]</pre>
+                      <pre class="language-r">      hline_arb_label &lt;- horizontal_line()$line_arb_label</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">14</td>
+                    <td class="num">726</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    validate(need(paramname, "Please select variable"))</pre>
+                      <pre class="language-r">      hline_arb_color &lt;- horizontal_line()$line_arb_color</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">15</td>
+                    <td class="num">727</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    req(length(paramname) == 1)</pre>
+                      <pre class="language-r">      hline_vars &lt;- if (length(input$hline_vars) == 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">16</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"></pre>
+                      <pre class="language-r">        NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">729</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # we need id_param_var (e.g. ALT) to filter down because the y-axis may have a different</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">18</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">    # param var and the range of id_var (e.g. BASE) values may be larger due to this</pre>
+                      <pre class="language-r">        paste0(input$hline_vars, ".", yaxis_param)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">731</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # therefore, we need to filter</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">20</td>
+                    <td class="num">732</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ANL &lt;- reactive_ANL()$ANL %&gt;% dplyr::filter(.data$PARAMCD == paramname) # nolint</pre>
+                      <pre class="language-r">      vline_arb &lt;- vertical_line()$line_arb</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">21</td>
+                    <td class="num">733</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    validate_has_variable(ANL, varname, paste("variable", varname, "does not exist"))</pre>
+                      <pre class="language-r">      vline_arb_label &lt;- vertical_line()$line_arb_label</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">22</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">      vline_arb_color &lt;- vertical_line()$line_arb_color</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">23</td>
+                    <td class="num">735</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    var &lt;- stats::na.omit(ANL[[varname]])</pre>
+                      <pre class="language-r">      vline_vars &lt;- if (length(input$vline_vars) == 0) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">24</td>
+                    <td class="num">736</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    minmax &lt;- if (length(var)) c(floor(min(var)), ceiling(max(var))) else c(0, 0)</pre>
+                      <pre class="language-r">        NULL</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">737</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">25</td>
+                    <td class="num">738</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    step &lt;- NULL</pre>
+                      <pre class="language-r">        paste0(input$vline_vars, ".", xaxis_param)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</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="missed">
-                    <td class="num">27</td>
+                    <td class="num">740</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (isTRUE(is_density)) {</pre>
+                      <pre class="language-r">      facet_ncol &lt;- input$facet_ncol</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">28</td>
+                    <td class="num">741</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      minmax &lt;- c(0, round(max(stats::density(stats::na.omit(ANL[[varname]]))$y) * 1.5, 5))</pre>
+                      <pre class="language-r">      validate(need(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">29</td>
+                    <td class="num">742</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      step &lt;- round(max(stats::density(stats::na.omit(ANL[[varname]]))$y) / 100, 5)</pre>
+                      <pre class="language-r">        is.na(facet_ncol) || (as.numeric(facet_ncol) &gt; 0 &amp;&amp; as.numeric(facet_ncol) %% 1 == 0),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">30</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">        "Number of plots per row must be a positive integer"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
+                    <td class="num">744</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      ))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">32</td>
+                    <td class="num">745</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    isolate(update_slider_fcn(</pre>
+                      <pre class="language-r">      visit_facet &lt;- input$visit_facet</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">33</td>
+                    <td class="num">746</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      min = minmax[[1]],</pre>
+                      <pre class="language-r">      facet &lt;- input$trt_facet</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">34</td>
+                    <td class="num">747</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      max = minmax[[2]],</pre>
+                      <pre class="language-r">      reg_line &lt;- input$reg_line</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">35</td>
+                    <td class="num">748</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      value = minmax,</pre>
+                      <pre class="language-r">      loq_legend &lt;- input$loq_legend</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">36</td>
+                    <td class="num">749</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      step = step</pre>
+                      <pre class="language-r">      rotate_xlab &lt;- input$rotate_xlab</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</td>
+                    <td class="num">750</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">38</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">751</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
+                      <pre class="language-r">      title_text &lt;- plot_labels()$title_text</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">39</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">      xaxis_lab &lt;- plot_labels()$xaxis_lab</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">753</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      yaxis_lab &lt;- plot_labels()$yaxis_lab</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">754</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      validate(need(input$trt_group, "Please select a treatment variable"))</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">755</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      trt_group &lt;- input$trt_group</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/utils.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">756</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Include `CSS` files from `/inst/css/` package directory to application header</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">757</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">758</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        object = plot_data_transpose()$qenv,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">2</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">        code = bquote({</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">760</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">          # re-establish treatment variable label</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">4</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">#' not work with `devtools`. Therefore, we redefine this method in each package</pre>
+                      <pre class="language-r">          p &lt;- goshawk::g_correlationplot(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">5</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">#' as needed. Thus, we do not export this method.</pre>
+                      <pre class="language-r">            data = ANL_TRANSPOSED,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">6</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">            param_var = .(param_var),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">7</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">#' @param pattern (`character`) pattern of files to be included</pre>
+                      <pre class="language-r">            xaxis_param = .(xaxis_param),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">8</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">            xaxis_var = .(xaxis_var),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">9</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">#' @return HTML code that includes `CSS` files</pre>
+                      <pre class="language-r">            xvar = .(xvar()),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">10</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">#' @keywords internal</pre>
+                      <pre class="language-r">            yaxis_param = .(yaxis_param),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">11</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">include_css_files &lt;- function(pattern = "*") {</pre>
+                      <pre class="language-r">            yaxis_var = .(yaxis_var),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">12</td>
+                    <td class="num">769</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  css_files &lt;- list.files(</pre>
+                      <pre class="language-r">            yvar = .(yvar()),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">13</td>
+                    <td class="num">770</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    system.file("css", package = "teal.goshawk", mustWork = TRUE),</pre>
+                      <pre class="language-r">            trt_group = .(trt_group),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">14</td>
+                    <td class="num">771</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    pattern = pattern, full.names = TRUE</pre>
+                      <pre class="language-r">            xlim = .(xlim),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">15</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">            ylim = .(ylim),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">16</td>
+                    <td class="num">773</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (length(css_files) == 0) {</pre>
+                      <pre class="language-r">            title_text = .(title_text),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">17</td>
+                    <td class="num">774</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    return(NULL)</pre>
+                      <pre class="language-r">            xaxis_lab = .(xaxis_lab),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">18</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">            yaxis_lab = .(yaxis_lab),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">19</td>
+                    <td class="num">776</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">            color_manual = .(color_manual),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">20</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">            shape_manual = .(shape_manual),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">21</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">            facet_ncol = .(facet_ncol),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">22</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">plots_per_row_validate_rules &lt;- function(required = TRUE) {</pre>
+                      <pre class="language-r">            visit_facet = .(visit_facet),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">23</td>
+                    <td class="num">780</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  msg &lt;- "Number of plots per row must be a positive integer"</pre>
+                      <pre class="language-r">            facet = .(facet),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">24</td>
+                    <td class="num">781</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  shinyvalidate::compose_rules(</pre>
+                      <pre class="language-r">            facet_var = .(trt_group),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">25</td>
+                    <td class="num">782</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (required) {</pre>
+                      <pre class="language-r">            reg_line = .(reg_line),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">26</td>
+                    <td class="num">783</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      shinyvalidate::sv_required(msg)</pre>
+                      <pre class="language-r">            font_size = .(font_size),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">27</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">    } else {</pre>
+                      <pre class="language-r">            dot_size = .(dot_size),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">28</td>
+                    <td class="num">785</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      shinyvalidate::sv_optional()</pre>
+                      <pre class="language-r">            reg_text_size = .(reg_text_size),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">29</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">    },</pre>
+                      <pre class="language-r">            loq_legend = .(loq_legend),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">30</td>
+                    <td class="num">787</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    shinyvalidate::sv_integer(msg),</pre>
+                      <pre class="language-r">            rotate_xlab = .(rotate_xlab),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">31</td>
+                    <td class="num">788</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    shinyvalidate::sv_gt(0, message_fmt = msg)</pre>
+                      <pre class="language-r">            hline_arb = .(hline_arb),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">32</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">  )</pre>
+                      <pre class="language-r">            hline_arb_label = .(hline_arb_label),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">33</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">}</pre>
+                      <pre class="language-r">            hline_arb_color = .(hline_arb_color),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">34</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"></pre>
+                      <pre class="language-r">            hline_vars = .(hline_vars),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">35</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">#' Template Function for `TealReportCard` Creation and Customization in `teal.goshawk`</pre>
+                      <pre class="language-r">            hline_vars_colors = .(hline_vars_colors[seq_along(hline_vars)]),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">36</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">#'</pre>
+                      <pre class="language-r">            hline_vars_labels = .(paste(hline_vars_labels[seq_along(hline_vars)], "-", yaxis_param)),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">37</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">#' This function generates a report card with a title,</pre>
+                      <pre class="language-r">            vline_arb = .(vline_arb),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">38</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">#' an optional description, and the option to append the filter state list.</pre>
+                      <pre class="language-r">            vline_arb_label = .(vline_arb_label),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">39</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">#' Additionally, it display selected constraint options.</pre>
+                      <pre class="language-r">            vline_arb_color = .(vline_arb_color),</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">797</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            vline_vars = .(vline_vars),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">40</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">#'</pre>
+                      <pre class="language-r">            vline_vars_colors = .(vline_vars_colors[seq_along(vline_vars)]),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">41</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">#' @inheritParams teal::report_card_template</pre>
+                      <pre class="language-r">            vline_vars_labels = .(paste(vline_vars_labels[seq_along(vline_vars)], "-", xaxis_param))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">800</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param constraint_list (`list`) a list containing constraint variables, including:</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">801</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   - constraint_var (`character(1)`) the constraint variable name.</pre>
+                      <pre class="language-r">          print(p)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">44</td>
+                    <td class="num">802</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   - constraint_range_min (`numeric(1)`) the minimum constraint range value.</pre>
+                      <pre class="language-r">        })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">45</td>
+                    <td class="num">803</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   - constraint_range_max (`numeric(1)`) the maximum constraint range value.</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">46</td>
+                    <td class="num">804</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param constraint_description (`character(1)`)  description of the constraints.</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">47</td>
+                    <td class="num">805</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param style (`character(1)`)  style of the constraint text block.</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">806</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   options: `default`, `verbatim` (default is `default`).</pre>
+                      <pre class="language-r">    plot_r &lt;- reactive(plot_q()[["p"]])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">49</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="never">
-                    <td class="num">50</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">#' @return (`TealReportCard`) populated with a title, description, and filter state</pre>
+                      <pre class="language-r">    plot_data &lt;- teal.widgets::plot_with_settings_srv(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">51</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">      id = "plot",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">52</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">#' @keywords internal</pre>
+                      <pre class="language-r">      plot_r = plot_r,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">53</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">report_card_template_goshawk &lt;- function(title,</pre>
+                      <pre class="language-r">      height = plot_height,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">54</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">                                         label,</pre>
+                      <pre class="language-r">      width = plot_width,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">55</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">                                         with_filter,</pre>
+                      <pre class="language-r">      brushing = TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">56</td>
+                    <td class="num">814</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                         filter_panel_api,</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">57</td>
+                    <td class="num">815</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                         constraint_list,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">58</td>
+                    <td class="num">816</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                         constraint_description = NULL,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">59</td>
+                    <td class="num">817</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                         style = "default") {</pre>
+                      <pre class="language-r">    ### REPORTER</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">60</td>
+                    <td class="num">818</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_subset(names(constraint_list), c("constraint_var", "constraint_range_min", "constraint_range_max"))</pre>
+                      <pre class="language-r">    if (with_reporter) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">61</td>
+                    <td class="num">819</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(constraint_description, null.ok = TRUE)</pre>
+                      <pre class="language-r">      card_fun &lt;- function(comment, label) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">62</td>
+                    <td class="num">820</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_choice(style, c("default", "verbatim"))</pre>
+                      <pre class="language-r">        constraint_description &lt;- paste(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">63</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">          "\nTreatment Variable Faceting:",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">64</td>
+                    <td class="num">822</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">          input$trt_facet,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">65</td>
+                    <td class="num">823</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    title = title,</pre>
+                      <pre class="language-r">          "\nRegression Line:",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">66</td>
+                    <td class="num">824</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    label = label,</pre>
+                      <pre class="language-r">          input$reg_line</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">825</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">67</td>
+                    <td class="num">826</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    with_filter = with_filter,</pre>
+                      <pre class="language-r">        card &lt;- report_card_template_goshawk(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">68</td>
+                    <td class="num">827</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">          title = "Correlation Plot",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">69</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">          label = label,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">70</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">          with_filter = with_filter,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">71</td>
+                    <td class="num">830</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  card$append_text("Selected Options", "header3")</pre>
+                      <pre class="language-r">          filter_panel_api = filter_panel_api,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">72</td>
+                    <td class="num">831</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  card$append_text(</pre>
+                      <pre class="language-r">          constraint_list = list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">73</td>
+                    <td class="num">832</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    paste(</pre>
+                      <pre class="language-r">            constraint_var = input$constraint_var,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">74</td>
+                    <td class="num">833</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      formatted_data_constraint(</pre>
+                      <pre class="language-r">            constraint_range_min = input$constraint_range_min,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">75</td>
+                    <td class="num">834</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        constraint_list$constraint_var,</pre>
+                      <pre class="language-r">            constraint_range_max = input$constraint_range_max</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="missed">
-                    <td class="num">76</td>
+                    <td class="num">836</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        constraint_list$constraint_range_min,</pre>
+                      <pre class="language-r">          constraint_description = constraint_description,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">77</td>
+                    <td class="num">837</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        constraint_list$constraint_range_max</pre>
+                      <pre class="language-r">          style = "verbatim"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">78</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="missed">
-                    <td class="num">79</td>
+                    <td class="num">839</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      constraint_description</pre>
+                      <pre class="language-r">        card$append_text("Plot", "header3")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">80</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">        card$append_plot(plot_r(), dim = plot_data$dim())</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">81</td>
+                    <td class="num">841</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    style = style</pre>
+                      <pre class="language-r">        if (!comment == "") {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">82</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">  )</pre>
+                      <pre class="language-r">          card$append_text("Comment", "header3")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">83</td>
+                    <td class="num">843</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  card</pre>
+                      <pre class="language-r">          card$append_text(comment)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">84</td>
+                    <td class="num">844</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">        }</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">845</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        card$append_src(teal.code::get_code(plot_q()))</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/tm_g_gh_spaghettiplot.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">846</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Spaghetti Plot</pre>
+                      <pre class="language-r">        card</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</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">3</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">#' This teal module renders the UI and calls the function</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">4</td>
+                    <td class="num">849</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' that creates a spaghetti plot.</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</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="never">
-                    <td class="num">6</td>
+                    <td class="num">851</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param label menu item label of the module in the teal app.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">852</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param dataname analysis data passed to the data argument of \code{\link[teal]{init}}.</pre>
+                      <pre class="language-r">    # highlight plot area</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">8</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">#' E.g. `ADaM` structured laboratory data frame `ADLB`.</pre>
+                      <pre class="language-r">    output$brush_data &lt;- DT::renderDataTable({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">9</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">#' @param param_var name of variable containing biomarker codes e.g. `PARAMCD`.</pre>
+                      <pre class="language-r">      req(iv_r()$is_valid())</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">10</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">#' @param param biomarker selected.</pre>
+                      <pre class="language-r">      plot_brush &lt;- plot_data$brush()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">856</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param param_var_label single name of variable in analysis data</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">857</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' that includes parameter labels.</pre>
+                      <pre class="language-r">      ANL_TRANSPOSED &lt;- isolate(plot_data_transpose()$ANL_TRANSPOSED) # nolint</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">858</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param idvar name of unique subject id variable.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">14</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">#' @param xaxis_var single name of variable in analysis data</pre>
+                      <pre class="language-r">      df &lt;- teal.widgets::clean_brushedPoints(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">15</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">#' that is used as x-axis in the plot for the respective goshawk function.</pre>
+                      <pre class="language-r">        dplyr::select(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">16</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">#' @param xaxis_var_level vector that can be used to define the factor level of `xaxis_var`.</pre>
+                      <pre class="language-r">          ANL_TRANSPOSED, "USUBJID", dplyr::all_of(input$trt_group), "AVISITCD",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">17</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">#' Only use it when `xaxis_var` is character or factor.</pre>
+                      <pre class="language-r">          dplyr::all_of(c(xvar(), yvar())), "LOQFL_COMB"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">863</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param filter_var data constraint variable.</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">864</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param yaxis_var single name of variable in analysis data that is used as</pre>
+                      <pre class="language-r">        plot_brush</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">865</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' summary variable in the respective `goshawk` function.</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">866</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param trt_group \code{\link[teal.transform]{choices_selected}} object with available choices and pre-selected option</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">867</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' for variable names representing treatment group e.g. `ARM`.</pre>
+                      <pre class="language-r">      numeric_cols &lt;- names(dplyr::select_if(df, is.numeric))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">23</td>
+                    <td class="num">868</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param trt_group_level vector that can be used to define factor</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">869</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' level of `trt_group`.</pre>
+                      <pre class="language-r">      DT::datatable(df, rownames = FALSE, options = list(scrollX = TRUE)) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">25</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">#' @param man_color string vector representing customized colors</pre>
+                      <pre class="language-r">        DT::formatRound(numeric_cols, 4)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">871</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param color_comb name or hex value for combined treatment color.</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">872</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param xtick numeric vector to define the tick values of `x-axis`</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">873</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' when x variable is numeric. Default value is `waive()`.</pre>
+                      <pre class="language-r">    teal.widgets::verbatim_popup_srv(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">29</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">#' @param xlabel vector with same length of `xtick` to define the</pre>
+                      <pre class="language-r">      id = "warning",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">30</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">#' label of `x-axis` tick values. Default value is `waive()`.</pre>
+                      <pre class="language-r">      verbatim_content = reactive(teal.code::get_warnings(plot_q())),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">31</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">#' @param rotate_xlab `logical(1)` value indicating whether to rotate `x-axis` labels</pre>
+                      <pre class="language-r">      title = "Warning",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">32</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">#' @param facet_ncol numeric value indicating number of facets per row.</pre>
+                      <pre class="language-r">      disabled = reactive(is.null(teal.code::get_warnings(plot_q())))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">878</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param free_x `logical(1)` should scales be `"fixed"` (`FALSE`) of `"free"` (`TRUE`) for `x-axis` in</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">34</td>
+                    <td class="num">879</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' \code{\link[ggplot2]{facet_wrap}} \code{scales} parameter.</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">880</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param plot_height controls plot height.</pre>
+                      <pre class="language-r">    teal.widgets::verbatim_popup_srv(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">36</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">881</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param plot_width optional, controls plot width.</pre>
+                      <pre class="language-r">      id = "rcode",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">37</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">882</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param font_size control font size for title, `x-axis`, `y-axis` and legend font.</pre>
+                      <pre class="language-r">      verbatim_content = reactive(teal.code::get_code(plot_q())),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">38</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">#' @param group_stats control group mean or median overlay.</pre>
+                      <pre class="language-r">      title = "Show R Code for Correlation Plot"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">884</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param hline_arb numeric vector of at most 2 values identifying intercepts for arbitrary horizontal lines.</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">885</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param hline_arb_color a character vector of at most length of \code{hline_arb}.</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">886</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' naming the color for the arbitrary horizontal lines.</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/tm_g_gh_scatterplot.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">#' @param hline_arb_label a character vector of at most length of \code{hline_arb}.</pre>
+                      <pre class="language-r">#' Scatter Plot Teal Module For Biomarker Analysis</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">#' naming the label for the arbitrary horizontal lines.</pre>
+                      <pre class="language-r">#'</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">#' @param hline_vars a character vector to name the columns that will define additional horizontal lines.</pre>
+                      <pre class="language-r">#' @description</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">#' @param hline_vars_colors a character vector naming the colors for the additional horizontal lines.</pre>
+                      <pre class="language-r">#' `r lifecycle::badge("deprecated")`</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">#' @param hline_vars_labels a character vector naming the labels for the additional horizontal lines that will appear</pre>
+                      <pre class="language-r">#'</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">#'  in the legend.</pre>
+                      <pre class="language-r">#'  `tm_g_gh_scatterplot` is deprecated. Please use [tm_g_gh_correlationplot]</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">#' @inheritParams teal.widgets::standard_layout</pre>
+                      <pre class="language-r">#'   instead.</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">#'</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">#' @author Wenyi Liu (luiw2) wenyi.liu@roche.com</pre>
+                      <pre class="language-r">#' @inheritParams teal.widgets::standard_layout</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">#' @author Balazs Toth (tothb2) toth.balazs@gene.com</pre>
+                      <pre class="language-r">#' @param label menu item label of the module in the teal app.</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 dataname analysis data passed to the data argument of \code{\link[teal]{init}}. E.g. `ADaM` structured</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">#' @return \code{shiny} object</pre>
+                      <pre class="language-r">#' laboratory data frame \code{ADLB}.</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 param_var name of variable containing biomarker codes e.g. \code{PARAMCD}.</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">#' @export</pre>
+                      <pre class="language-r">#' @param param biomarker selected.</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">#'</pre>
+                      <pre class="language-r">#' @param xaxis_var name of variable containing biomarker results displayed on `x-axis` e.g. \code{BASE}.</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">#' @examples</pre>
+                      <pre class="language-r">#' @param yaxis_var name of variable containing biomarker results displayed on `y-axis` e.g. \code{AVAL}.</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 trt_group \code{\link[teal.transform]{choices_selected}} object with available choices and pre-selected option</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">#' # Example using ADaM structure analysis dataset.</pre>
+                      <pre class="language-r">#' for variable names representing treatment group e.g. `ARM`.</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">#' data &lt;- teal_data()</pre>
+                      <pre class="language-r">#' @param color_manual vector of colors applied to treatment values.</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">#' data &lt;- within(data, {</pre>
+                      <pre class="language-r">#' @param shape_manual vector of symbols applied to `LOQ` values.</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">#'   library(dplyr)</pre>
+                      <pre class="language-r">#' @param facet_ncol numeric value indicating number of facets per row.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">63</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param trt_facet facet by treatment group \code{trt_group}.</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">#'   # original ARM value = dose value</pre>
+                      <pre class="language-r">#' @param reg_line include regression line and annotations for slope and coefficient in visualization. Use with facet</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">#'   arm_mapping &lt;- list(</pre>
+                      <pre class="language-r">#'   TRUE.</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">#'     "A: Drug X" = "150mg QD",</pre>
+                      <pre class="language-r">#' @param rotate_xlab 45 degree rotation of `x-axis` values.</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">#'     "B: Placebo" = "Placebo",</pre>
+                      <pre class="language-r">#' @param hline y-axis value to position of horizontal line.</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">#'     "C: Combination" = "Combination"</pre>
+                      <pre class="language-r">#' @param vline x-axis value to position a vertical line.</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">#' @param plot_height controls plot height.</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">#'   set.seed(1)</pre>
+                      <pre class="language-r">#' @param plot_width optional, controls plot width.</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">#'   ADSL &lt;- goshawk::rADSL</pre>
+                      <pre class="language-r">#' @param font_size font size control for title, `x-axis` label, `y-axis` label and legend.</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">#'   ADLB &lt;- goshawk::rADLB</pre>
+                      <pre class="language-r">#' @param dot_size plot dot size.</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">#'   var_labels &lt;- lapply(ADLB, function(x) attributes(x)$label)</pre>
+                      <pre class="language-r">#' @param reg_text_size font size control for regression line annotations.</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">#'   ADLB &lt;- ADLB %&gt;%</pre>
+                      <pre class="language-r">#'</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">#'     dplyr::mutate(</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">#'       AVISITCD = dplyr::case_when(</pre>
+                      <pre class="language-r">#' @export</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">#'         AVISIT == "SCREENING" ~ "SCR",</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">#'         AVISIT == "BASELINE" ~ "BL",</pre>
+                      <pre class="language-r">#' @author Nick Paszty (npaszty) paszty.nicholas@gene.com</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">#'         grepl("WEEK", AVISIT) ~ paste("W", stringr::str_extract(AVISIT, "(?&lt;=(WEEK ))[0-9]+")),</pre>
+                      <pre class="language-r">#' @author Balazs Toth (tothb2)  toth.balazs@gene.com</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">#'         TRUE ~ as.character(NA)</pre>
+                      <pre class="language-r">#'</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">#'       ),</pre>
+                      <pre class="language-r">#' @examples</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">#'       AVISITCDN = dplyr::case_when(</pre>
+                      <pre class="language-r">#'</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">#'         AVISITCD == "SCR" ~ -2,</pre>
+                      <pre class="language-r">#' # Example using ADaM structure analysis dataset.</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">#'         AVISITCD == "BL" ~ 0,</pre>
+                      <pre class="language-r">#' data &lt;- teal_data()</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">#'         grepl("W", AVISITCD) ~ as.numeric(gsub("[^0-9]*", "", AVISITCD)),</pre>
+                      <pre class="language-r">#' data &lt;- within(data, {</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">#'         TRUE ~ as.numeric(NA)</pre>
+                      <pre class="language-r">#'   # original ARM value = dose value</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">#'       ),</pre>
+                      <pre class="language-r">#'   arm_mapping &lt;- list(</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">#'       AVISITCD = factor(AVISITCD) %&gt;% reorder(AVISITCDN),</pre>
+                      <pre class="language-r">#'     "A: Drug X" = "150mg QD",</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">#'       TRTORD = dplyr::case_when(</pre>
+                      <pre class="language-r">#'     "B: Placebo" = "Placebo",</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">#'         ARMCD == "ARM C" ~ 1,</pre>
+                      <pre class="language-r">#'     "C: Combination" = "Combination"</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">#'         ARMCD == "ARM B" ~ 2,</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">92</td>
+                    <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         ARMCD == "ARM A" ~ 3</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">93</td>
+                    <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       ),</pre>
+                      <pre class="language-r">#'   ADSL &lt;- goshawk::rADSL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">94</td>
+                    <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       ARM = as.character(arm_mapping[match(ARM, names(arm_mapping))]),</pre>
+                      <pre class="language-r">#'   ADLB &lt;- goshawk::rADLB</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">95</td>
+                    <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       ARM = factor(ARM) %&gt;% reorder(TRTORD),</pre>
+                      <pre class="language-r">#'   var_labels &lt;- lapply(ADLB, function(x) attributes(x)$label)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">96</td>
+                    <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       ACTARM = as.character(arm_mapping[match(ACTARM, names(arm_mapping))]),</pre>
+                      <pre class="language-r">#'   ADLB &lt;- ADLB %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">97</td>
+                    <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       ACTARM = factor(ACTARM) %&gt;% reorder(TRTORD),</pre>
+                      <pre class="language-r">#'     dplyr::mutate(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">98</td>
+                    <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       ANRLO = 30,</pre>
+                      <pre class="language-r">#'       AVISITCD = dplyr::case_when(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">99</td>
+                    <td class="num">58</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       ANRHI = 75</pre>
+                      <pre class="language-r">#'         AVISIT == "SCREENING" ~ "SCR",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">100</td>
+                    <td class="num">59</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     ) %&gt;%</pre>
+                      <pre class="language-r">#'         AVISIT == "BASELINE" ~ "BL",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">101</td>
+                    <td class="num">60</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     dplyr::rowwise() %&gt;%</pre>
+                      <pre class="language-r">#'         grepl("WEEK", AVISIT) ~ paste("W", stringr::str_extract(AVISIT, "(?&lt;=(WEEK ))[0-9]+")),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">102</td>
+                    <td class="num">61</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     dplyr::group_by(PARAMCD) %&gt;%</pre>
+                      <pre class="language-r">#'         TRUE ~ as.character(NA)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">103</td>
+                    <td class="num">62</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     dplyr::mutate(LBSTRESC = ifelse(USUBJID %in% sample(USUBJID, 1, replace = TRUE),</pre>
+                      <pre class="language-r">#'       ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">104</td>
+                    <td class="num">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       paste("&lt;", round(runif(1, min = 25, max = 30))), LBSTRESC</pre>
+                      <pre class="language-r">#'       AVISITCDN = dplyr::case_when(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">105</td>
+                    <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     )) %&gt;%</pre>
+                      <pre class="language-r">#'         AVISITCD == "SCR" ~ -2,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">106</td>
+                    <td class="num">65</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     dplyr::mutate(LBSTRESC = ifelse(USUBJID %in% sample(USUBJID, 1, replace = TRUE),</pre>
+                      <pre class="language-r">#'         AVISITCD == "BL" ~ 0,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">107</td>
+                    <td class="num">66</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       paste("&gt;", round(runif(1, min = 70, max = 75))), LBSTRESC</pre>
+                      <pre class="language-r">#'         grepl("W", AVISITCD) ~ as.numeric(gsub("[^0-9]*", "", AVISITCD)),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">108</td>
+                    <td class="num">67</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     )) %&gt;%</pre>
+                      <pre class="language-r">#'         TRUE ~ as.numeric(NA)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">109</td>
+                    <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     ungroup()</pre>
+                      <pre class="language-r">#'       ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">110</td>
+                    <td class="num">69</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   attr(ADLB[["ARM"]], "label") &lt;- var_labels[["ARM"]]</pre>
+                      <pre class="language-r">#'       AVISITCD = factor(AVISITCD) %&gt;% stats::reorder(AVISITCDN),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">111</td>
+                    <td class="num">70</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   attr(ADLB[["ACTARM"]], "label") &lt;- var_labels[["ACTARM"]]</pre>
+                      <pre class="language-r">#'       TRTORD = dplyr::case_when(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">112</td>
+                    <td class="num">71</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   attr(ADLB[["ANRLO"]], "label") &lt;- "Analysis Normal Range Lower Limit"</pre>
+                      <pre class="language-r">#'         ARMCD == "ARM C" ~ 1,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">113</td>
+                    <td class="num">72</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   attr(ADLB[["ANRHI"]], "label") &lt;- "Analysis Normal Range Upper Limit"</pre>
+                      <pre class="language-r">#'         ARMCD == "ARM B" ~ 2,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">114</td>
+                    <td class="num">73</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'         ARMCD == "ARM A" ~ 3</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">115</td>
+                    <td class="num">74</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   # add LLOQ and ULOQ variables</pre>
+                      <pre class="language-r">#'       ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">116</td>
+                    <td class="num">75</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ALB_LOQS &lt;- goshawk:::h_identify_loq_values(ADLB)</pre>
+                      <pre class="language-r">#'       ARM = as.character(arm_mapping[match(ARM, names(arm_mapping))]),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">117</td>
+                    <td class="num">76</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ADLB &lt;- dplyr::left_join(ADLB, ALB_LOQS, by = "PARAM")</pre>
+                      <pre class="language-r">#'       ARM = factor(ARM) %&gt;% stats::reorder(TRTORD),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">118</td>
+                    <td class="num">77</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' })</pre>
+                      <pre class="language-r">#'       ACTARM = as.character(arm_mapping[match(ACTARM, names(arm_mapping))]),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">119</td>
+                    <td class="num">78</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'       ACTARM = factor(ACTARM) %&gt;% stats::reorder(TRTORD)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">120</td>
+                    <td class="num">79</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' datanames &lt;- c("ADSL", "ADLB")</pre>
+                      <pre class="language-r">#'     )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">121</td>
+                    <td class="num">80</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' datanames(data) &lt;- datanames</pre>
+                      <pre class="language-r">#'   attr(ADLB[["ARM"]], "label") &lt;- var_labels[["ARM"]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">122</td>
+                    <td class="num">81</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">#'   attr(ADLB[["ACTARM"]], "label") &lt;- var_labels[["ACTARM"]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">123</td>
+                    <td class="num">82</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">124</td>
+                    <td class="num">83</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">125</td>
+                    <td class="num">84</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = data,</pre>
+                      <pre class="language-r">#' datanames &lt;- c("ADSL", "ADLB")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">126</td>
+                    <td class="num">85</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   modules = teal::modules(</pre>
+                      <pre class="language-r">#' datanames(data) &lt;- datanames</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">127</td>
+                    <td class="num">86</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     teal.goshawk::tm_g_gh_spaghettiplot(</pre>
+                      <pre class="language-r">#' join_keys(data) &lt;- default_cdisc_join_keys[datanames]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">128</td>
+                    <td class="num">87</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       label = "Spaghetti Plot",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">129</td>
+                    <td class="num">88</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       dataname = "ADLB",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">130</td>
+                    <td class="num">89</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       param_var = "PARAMCD",</pre>
+                      <pre class="language-r">#' app &lt;- teal::init(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">131</td>
+                    <td class="num">90</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       param = choices_selected(c("ALT", "CRP", "IGA"), "ALT"),</pre>
+                      <pre class="language-r">#'   data = data,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">132</td>
+                    <td class="num">91</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       idvar = "USUBJID",</pre>
+                      <pre class="language-r">#'   modules = teal::modules(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">133</td>
+                    <td class="num">92</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       xaxis_var = choices_selected(c("Analysis Visit Code" = "AVISITCD"), "AVISITCD"),</pre>
+                      <pre class="language-r">#'     teal.goshawk::tm_g_gh_scatterplot(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">134</td>
+                    <td class="num">93</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       yaxis_var = choices_selected(c("AVAL", "CHG", "PCHG"), "AVAL"),</pre>
+                      <pre class="language-r">#'       label = "Scatter Plot",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">135</td>
+                    <td class="num">94</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       filter_var = choices_selected(</pre>
+                      <pre class="language-r">#'       dataname = "ADLB",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">136</td>
+                    <td class="num">95</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         c("None" = "NONE", "Screening" = "BASE2", "Baseline" = "BASE"),</pre>
+                      <pre class="language-r">#'       param_var = "PARAMCD",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">137</td>
+                    <td class="num">96</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         "NONE"</pre>
+                      <pre class="language-r">#'       param = choices_selected(c("ALT", "CRP", "IGA"), "ALT"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">138</td>
+                    <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       ),</pre>
+                      <pre class="language-r">#'       xaxis_var = choices_selected(c("AVAL", "BASE", "CHG", "PCHG"), "BASE"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">139</td>
+                    <td class="num">98</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       trt_group = choices_selected(c("ARM", "ACTARM"), "ARM"),</pre>
+                      <pre class="language-r">#'       yaxis_var = choices_selected(c("AVAL", "BASE", "CHG", "PCHG"), "AVAL"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">140</td>
+                    <td class="num">99</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       color_comb = "#39ff14",</pre>
+                      <pre class="language-r">#'       trt_group = choices_selected(c("ARM", "ACTARM"), "ARM"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">141</td>
+                    <td class="num">100</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       man_color = c(</pre>
+                      <pre class="language-r">#'       color_manual = c(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">142</td>
+                    <td class="num">101</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         "Combination" = "#000000",</pre>
+                      <pre class="language-r">#'         "150mg QD" = "#000000",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">143</td>
+                    <td class="num">102</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         "Placebo" = "#fce300",</pre>
+                      <pre class="language-r">#'         "Placebo" = "#3498DB",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">144</td>
+                    <td class="num">103</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         "150mg QD" = "#5a2f5f"</pre>
+                      <pre class="language-r">#'         "Combination" = "#E74C3C"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">145</td>
+                    <td class="num">104</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'       ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">146</td>
+                    <td class="num">105</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       hline_arb = c(60, 50),</pre>
+                      <pre class="language-r">#'       shape_manual = c("N" = 1, "Y" = 2, "NA" = 0),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">147</td>
+                    <td class="num">106</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       hline_arb_color = c("grey", "red"),</pre>
+                      <pre class="language-r">#'       plot_height = c(500, 200, 2000),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">148</td>
+                    <td class="num">107</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       hline_arb_label = c("default A", "default B"),</pre>
+                      <pre class="language-r">#'       facet_ncol = 2,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">149</td>
+                    <td class="num">108</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       hline_vars = c("ANRHI", "ANRLO", "ULOQN", "LLOQN"),</pre>
+                      <pre class="language-r">#'       trt_facet = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">150</td>
+                    <td class="num">109</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       hline_vars_colors = c("pink", "brown", "purple", "black"),</pre>
+                      <pre class="language-r">#'       reg_line = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">151</td>
+                    <td class="num">110</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">152</td>
+                    <td class="num">111</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">#'       dot_size = c(1, 1, 12),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">153</td>
+                    <td class="num">112</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#'       reg_text_size = c(3, 3, 10)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">154</td>
+                    <td class="num">113</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">155</td>
+                    <td class="num">114</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">156</td>
+                    <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">157</td>
+                    <td class="num">116</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">158</td>
+                    <td class="num">117</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">tm_g_gh_spaghettiplot &lt;- function(label,</pre>
+                      <pre class="language-r">#'   shinyApp(app$ui, app$server)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">159</td>
+                    <td class="num">118</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  dataname,</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">160</td>
+                    <td class="num">119</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  param_var,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">161</td>
+                    <td class="num">120</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  param,</pre>
+                      <pre class="language-r">tm_g_gh_scatterplot &lt;- function(label,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">162</td>
+                    <td class="num">121</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  param_var_label = "PARAM",</pre>
+                      <pre class="language-r">                                dataname,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">163</td>
+                    <td class="num">122</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  idvar,</pre>
+                      <pre class="language-r">                                param_var,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">164</td>
+                    <td class="num">123</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  xaxis_var,</pre>
+                      <pre class="language-r">                                param,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">165</td>
+                    <td class="num">124</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  yaxis_var,</pre>
+                      <pre class="language-r">                                xaxis_var,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">166</td>
+                    <td class="num">125</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  xaxis_var_level = NULL,</pre>
+                      <pre class="language-r">                                yaxis_var,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">167</td>
+                    <td class="num">126</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  filter_var = yaxis_var,</pre>
+                      <pre class="language-r">                                trt_group,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">168</td>
+                    <td class="num">127</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  trt_group,</pre>
+                      <pre class="language-r">                                color_manual = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">169</td>
+                    <td class="num">128</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  trt_group_level = NULL,</pre>
+                      <pre class="language-r">                                shape_manual = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">170</td>
+                    <td class="num">129</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  group_stats = "NONE",</pre>
+                      <pre class="language-r">                                facet_ncol = 2,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">171</td>
+                    <td class="num">130</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  man_color = NULL,</pre>
+                      <pre class="language-r">                                trt_facet = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">172</td>
+                    <td class="num">131</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  color_comb = NULL,</pre>
+                      <pre class="language-r">                                reg_line = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">173</td>
+                    <td class="num">132</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  xtick = ggplot2::waiver(),</pre>
+                      <pre class="language-r">                                rotate_xlab = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">174</td>
+                    <td class="num">133</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  xlabel = xtick,</pre>
+                      <pre class="language-r">                                hline = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">175</td>
+                    <td class="num">134</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  rotate_xlab = FALSE,</pre>
+                      <pre class="language-r">                                vline = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">176</td>
+                    <td class="num">135</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  facet_ncol = 2,</pre>
+                      <pre class="language-r">                                plot_height = c(500, 200, 2000),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">177</td>
+                    <td class="num">136</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  free_x = FALSE,</pre>
+                      <pre class="language-r">                                plot_width = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">178</td>
+                    <td class="num">137</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">                                font_size = c(12, 8, 20),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">179</td>
+                    <td class="num">138</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  plot_width = NULL,</pre>
+                      <pre class="language-r">                                dot_size = c(1, 1, 12),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">180</td>
+                    <td class="num">139</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">                                reg_text_size = c(3, 3, 10),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">181</td>
+                    <td class="num">140</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  hline_arb = numeric(0),</pre>
+                      <pre class="language-r">                                pre_output = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">182</td>
+                    <td class="num">141</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  hline_arb_color = "red",</pre>
+                      <pre class="language-r">                                post_output = NULL) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">183</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">                                  hline_arb_label = "Horizontal line",</pre>
+                      <pre class="language-r">  lifecycle::deprecate_soft(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">184</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">                                  hline_vars = character(0),</pre>
+                      <pre class="language-r">    when = "0.1.15",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">185</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">                                  hline_vars_colors = "green",</pre>
+                      <pre class="language-r">    what = "tm_g_gh_scatterplot()",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">186</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">                                  hline_vars_labels = hline_vars,</pre>
+                      <pre class="language-r">    details = "You should use teal.goshawk::tm_g_gh_correlationplot instead of teal.goshawk::tm_g_gh_scatterplot"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">187</td>
+                    <td class="num">146</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">188</td>
+                    <td class="num">147</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">189</td>
+                    <td class="num">148</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  logger::log_info("Initializing tm_g_gh_spaghettiplot")</pre>
+                      <pre class="language-r">  logger::log_info("Initializing tm_g_gh_scatterplot")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">190</td>
+                    <td class="num">149</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">  checkmate::assert_class(param, "choices_selected")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">191</td>
+                    <td class="num">150</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">  checkmate::assert_class(xaxis_var, "choices_selected")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">192</td>
+                    <td class="num">151</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">  checkmate::assert_class(yaxis_var, "choices_selected")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">193</td>
+                    <td class="num">152</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">  checkmate::assert_class(trt_group, "choices_selected")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">194</td>
+                    <td class="num">153</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  validate_line_arb_arg(hline_arb, hline_arb_color, hline_arb_label)</pre>
+                      <pre class="language-r">  checkmate::assert_flag(trt_facet)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">195</td>
+                    <td class="num">154</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  validate_line_vars_arg(hline_vars, hline_vars_colors, hline_vars_labels)</pre>
+                      <pre class="language-r">  checkmate::assert_flag(reg_line)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">196</td>
+                    <td class="num">155</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  checkmate::assert_flag(rotate_xlab)</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">156</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">197</td>
+                    <td class="num">157</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">198</td>
+                    <td class="num">158</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>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">199</td>
+                    <td class="num">159</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(plot_width[1],</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">200</td>
+                    <td class="num">160</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,</pre>
+                      <pre class="language-r">    plot_width[1],</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">201</td>
+                    <td class="num">161</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .var.name = "plot_width"</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">202</td>
+                    <td class="num">162</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">  checkmate::assert_flag(free_x)</pre>
-                    </td>
-                  </tr>
                   <tr class="never">
-                    <td class="num">204</td>
+                    <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">205</td>
+                    <td class="num">164</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">206</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">207</td>
+                    <td class="num">166</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">  module(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">208</td>
+                    <td class="num">167</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">209</td>
+                    <td class="num">168</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    server = srv_g_spaghettiplot,</pre>
+                      <pre class="language-r">    datanames = dataname,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">210</td>
+                    <td class="num">169</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    server_args = list(</pre>
+                      <pre class="language-r">    server = srv_g_scatterplot,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">211</td>
+                    <td class="num">170</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dataname = dataname,</pre>
+                      <pre class="language-r">    server_args = list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">212</td>
+                    <td class="num">171</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      idvar = idvar,</pre>
+                      <pre class="language-r">      dataname = dataname,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">213</td>
+                    <td class="num">172</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">      param_var = param_var,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">214</td>
+                    <td class="num">173</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">      trt_group = trt_group,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">215</td>
+                    <td class="num">174</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      xaxis_var_level = xaxis_var_level,</pre>
+                      <pre class="language-r">      trt_facet = trt_facet,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">175</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      color_manual = color_manual,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">176</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      shape_manual = shape_manual,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">177</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      plot_height = plot_height,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">178</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      plot_width = plot_width</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="missed">
+                    <td class="num">180</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    ui = ui_g_scatterplot,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">181</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    ui_args = args</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="never">
+                    <td class="num">183</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <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">184</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      trt_group_level = trt_group_level,</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">185</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      man_color = man_color,</pre>
+                      <pre class="language-r">ui_g_scatterplot &lt;- function(id, ...) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">218</td>
+                    <td class="num">186</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      color_comb = color_comb,</pre>
+                      <pre class="language-r">  ns &lt;- NS(id)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">219</td>
+                    <td class="num">187</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      param_var_label = param_var_label,</pre>
+                      <pre class="language-r">  a &lt;- list(...)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">220</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">      xtick = xtick,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">221</td>
+                    <td class="num">189</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      xlabel = xlabel,</pre>
+                      <pre class="language-r">  teal.widgets::standard_layout(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">222</td>
+                    <td class="num">190</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      plot_height = plot_height,</pre>
+                      <pre class="language-r">    output = templ_ui_output_datatable(ns),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">223</td>
+                    <td class="num">191</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      plot_width = plot_width,</pre>
+                      <pre class="language-r">    encoding = div(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">224</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">      hline_vars_colors = hline_vars_colors,</pre>
+                      <pre class="language-r">      ### Reporter</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">225</td>
+                    <td class="num">193</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      hline_vars_labels = hline_vars_labels</pre>
+                      <pre class="language-r">      teal.reporter::simple_reporter_ui(ns("simple_reporter")),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">226</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="missed">
-                    <td class="num">227</td>
+                    <td class="num">195</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ui = g_ui_spaghettiplot,</pre>
+                      <pre class="language-r">      templ_ui_dataname(a$dataname),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">228</td>
+                    <td class="num">196</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ui_args = args,</pre>
+                      <pre class="language-r">      teal.widgets::optionalSelectInput(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">229</td>
+                    <td class="num">197</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    datanames = dataname</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">230</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">231</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">        ns("trt_group"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">232</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">        label = "Select Treatment Variable",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">233</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">g_ui_spaghettiplot &lt;- function(id, ...) {</pre>
+                      <pre class="language-r">        choices = a$trt_group$choices,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">234</td>
+                    <td class="num">200</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ns &lt;- NS(id)</pre>
+                      <pre class="language-r">        selected = a$trt_group$selected,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">235</td>
+                    <td class="num">201</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  a &lt;- list(...)</pre>
+                      <pre class="language-r">        multiple = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">236</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">237</td>
+                    <td class="num">203</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  shiny::tagList(</pre>
+                      <pre class="language-r">      templ_ui_params_vars(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">238</td>
+                    <td class="num">204</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    include_css_files("custom"),</pre>
+                      <pre class="language-r">        ns,</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">205</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        # xparam and yparam are identical, so we only show the user one</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">239</td>
+                    <td class="num">206</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    teal.widgets::standard_layout(</pre>
+                      <pre class="language-r">        xparam_choices = a$param$choices, xparam_selected = a$param$selected, xparam_label = "Select a Biomarker",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">240</td>
+                    <td class="num">207</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      output = templ_ui_output_datatable(ns),</pre>
+                      <pre class="language-r">        xchoices = a$xaxis_var$choices, xselected = a$xaxis_var$selected,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">241</td>
+                    <td class="num">208</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      encoding = div(</pre>
+                      <pre class="language-r">        ychoices = a$yaxis_var$choices, yselected = a$yaxis_var$selected</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">242</td>
+                    <td class="num">209</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">243</td>
+                    <td class="num">210</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">      templ_ui_constraint(ns), # required by constr_anl_q</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">244</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">      teal.widgets::panel_group(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">245</td>
+                    <td class="num">212</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        templ_ui_dataname(a$dataname),</pre>
+                      <pre class="language-r">        teal.widgets::panel_item(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">246</td>
+                    <td class="num">213</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        teal.widgets::optionalSelectInput(</pre>
+                      <pre class="language-r">          title = "Plot Aesthetic Settings",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">247</td>
+                    <td class="num">214</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ns("trt_group"),</pre>
+                      <pre class="language-r">          toggle_slider_ui(ns("xrange_scale"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">248</td>
+                    <td class="num">215</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          label = "Select Treatment Variable",</pre>
+                      <pre class="language-r">            label = "X-Axis Range Zoom",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">249</td>
+                    <td class="num">216</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          choices = a$trt_group$choices,</pre>
+                      <pre class="language-r">            min = -1000000,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">250</td>
+                    <td class="num">217</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          selected = a$trt_group$selected,</pre>
+                      <pre class="language-r">            max = 1000000,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">251</td>
+                    <td class="num">218</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          multiple = FALSE</pre>
+                      <pre class="language-r">            value = c(-1000000, 1000000)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">252</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="missed">
-                    <td class="num">253</td>
+                    <td class="num">220</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        templ_ui_params_vars(</pre>
+                      <pre class="language-r">          toggle_slider_ui(ns("yrange_scale"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">254</td>
+                    <td class="num">221</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ns,</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">255</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          # xparam and yparam are identical, so we only show the user one</pre>
+                      <pre class="language-r">            label = "Y-Axis Range Zoom",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">256</td>
+                    <td class="num">222</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          xparam_choices = a$param$choices, xparam_selected = a$param$selected, xparam_label = "Select a Biomarker",</pre>
+                      <pre class="language-r">            min = -1000000,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">257</td>
+                    <td class="num">223</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          xchoices = a$xaxis_var$choices, xselected = a$xaxis_var$selected,</pre>
+                      <pre class="language-r">            max = 1000000,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">258</td>
+                    <td class="num">224</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ychoices = a$yaxis_var$choices, yselected = a$yaxis_var$selected</pre>
+                      <pre class="language-r">            value = c(-1000000, 1000000)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">259</td>
+                    <td class="num">225</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ),</pre>
+                      <pre class="language-r">          ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">260</td>
+                    <td class="num">226</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        radioButtons(</pre>
+                      <pre class="language-r">          numericInput(ns("facet_ncol"), "Number of Plots Per Row:", a$facet_ncol, min = 1),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">261</td>
+                    <td class="num">227</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ns("group_stats"),</pre>
+                      <pre class="language-r">          checkboxInput(ns("trt_facet"), "Treatment Variable Faceting", a$trt_facet),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">262</td>
+                    <td class="num">228</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "Group Statistics",</pre>
+                      <pre class="language-r">          checkboxInput(ns("reg_line"), "Regression Line", a$reg_line),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">263</td>
+                    <td class="num">229</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          c("None" = "NONE", "Mean" = "MEAN", "Median" = "MEDIAN"),</pre>
+                      <pre class="language-r">          checkboxInput(ns("rotate_xlab"), "Rotate X-axis Label", a$rotate_xlab),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">264</td>
+                    <td class="num">230</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          inline = TRUE</pre>
+                      <pre class="language-r">          numericInput(ns("hline"), "Add a horizontal line:", a$hline),</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">231</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          numericInput(ns("vline"), "Add a vertical line:", a$vline)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">265</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="missed">
+                    <td class="num">233</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        teal.widgets::panel_item(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">266</td>
+                    <td class="num">234</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        templ_ui_constraint(ns), # required by constr_anl_q</pre>
+                      <pre class="language-r">          title = "Plot settings",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">267</td>
+                    <td class="num">235</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (length(a$hline_vars) &gt; 0) {</pre>
+                      <pre class="language-r">          teal.widgets::optionalSliderInputValMinMax(ns("font_size"), "Font Size", a$font_size, ticks = FALSE),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">268</td>
+                    <td class="num">236</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          teal.widgets::optionalSelectInput(</pre>
+                      <pre class="language-r">          teal.widgets::optionalSliderInputValMinMax(ns("dot_size"), "Dot Size", a$dot_size, ticks = FALSE),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">269</td>
+                    <td class="num">237</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ns("hline_vars"),</pre>
+                      <pre class="language-r">          teal.widgets::optionalSliderInputValMinMax(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">270</td>
+                    <td class="num">238</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            label = "Add Horizontal Range Line(s):",</pre>
+                      <pre class="language-r">            ns("reg_text_size"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">271</td>
+                    <td class="num">239</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            choices = a$hline_vars,</pre>
+                      <pre class="language-r">            "Regression Annotations Size",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">272</td>
+                    <td class="num">240</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            selected = NULL,</pre>
+                      <pre class="language-r">            a$reg_text_size,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">273</td>
+                    <td class="num">241</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            multiple = TRUE</pre>
+                      <pre class="language-r">            ticks = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">274</td>
+                    <td class="num">242</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">275</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">276</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        ui_arbitrary_lines(id = ns("hline_arb"), a$hline_arb, a$hline_arb_label, a$hline_arb_color),</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">277</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">        teal.widgets::panel_group(</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">278</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">          teal.widgets::panel_item(</pre>
+                      <pre class="language-r">    ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">279</td>
+                    <td class="num">246</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            title = "Plot Aesthetic Settings",</pre>
+                      <pre class="language-r">    forms = tagList(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">280</td>
+                    <td class="num">247</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            div(</pre>
+                      <pre class="language-r">      teal.widgets::verbatim_popup_ui(ns("warning"), "Show Warnings"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">281</td>
+                    <td class="num">248</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              toggle_slider_ui(</pre>
+                      <pre class="language-r">      teal.widgets::verbatim_popup_ui(ns("rcode"), "Show R code")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">282</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">249</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                ns("yrange_scale"),</pre>
+                      <pre class="language-r">    ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">283</td>
+                    <td class="num">250</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                label = "Y-Axis Range Zoom",</pre>
+                      <pre class="language-r">    pre_output = a$pre_output,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">284</td>
+                    <td class="num">251</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                min = -1000000,</pre>
+                      <pre class="language-r">    post_output = a$post_output</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">285</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">                max = 1000000,</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">253</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                value = c(-1000000, 1000000)</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">287</td>
+                    <td class="num">254</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              ),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">288</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">255</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              tags$div(</pre>
+                      <pre class="language-r">srv_g_scatterplot &lt;- function(id,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">289</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">256</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                class = "flex flex-wrap items-center",</pre>
+                      <pre class="language-r">                              data,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">290</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">257</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                tags$div(</pre>
+                      <pre class="language-r">                              reporter,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">291</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">                  class = "mr-1",</pre>
+                      <pre class="language-r">                              filter_panel_api,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">292</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">                  tags$span(tags$strong("Number of Plots Per Row:"))</pre>
+                      <pre class="language-r">                              dataname,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">293</td>
+                    <td class="num">260</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                ),</pre>
+                      <pre class="language-r">                              param_var,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">294</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">                tags$div(</pre>
+                      <pre class="language-r">                              trt_group,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">295</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">262</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  class = "w-65px",</pre>
+                      <pre class="language-r">                              trt_facet,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">296</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">                  numericInput(ns("facet_ncol"), "", a$facet_ncol, min = 1)</pre>
+                      <pre class="language-r">                              color_manual,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">297</td>
+                    <td class="num">264</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                )</pre>
+                      <pre class="language-r">                              shape_manual,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">298</td>
+                    <td class="num">265</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              )</pre>
+                      <pre class="language-r">                              plot_height,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">299</td>
+                    <td class="num">266</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">300</td>
+                    <td class="num">267</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            checkboxInput(ns("free_x"), "Free X-Axis Scales", a$free_x),</pre>
+                      <pre class="language-r">  with_reporter &lt;- !missing(reporter) &amp;&amp; inherits(reporter, "Reporter")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">301</td>
+                    <td class="num">268</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            checkboxInput(ns("rotate_xlab"), "Rotate X-Axis Label", a$rotate_xlab),</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">302</td>
+                    <td class="num">269</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            teal.widgets::optionalSliderInputValMinMax(ns("font_size"), "Font Size", a$font_size, ticks = FALSE),</pre>
+                      <pre class="language-r">  checkmate::assert_class(data, "reactive")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">303</td>
+                    <td class="num">270</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            teal.widgets::optionalSliderInputValMinMax(</pre>
+                      <pre class="language-r">  checkmate::assert_class(shiny::isolate(data()), "teal_data")</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">304</td>
+                    <td class="num">272</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              ns("alpha"),</pre>
+                      <pre class="language-r">  moduleServer(id, function(input, output, session) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">273</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    # reused in all modules</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">305</td>
+                    <td class="num">274</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              "Line Alpha",</pre>
+                      <pre class="language-r">    anl_q_output &lt;- constr_anl_q(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">306</td>
+                    <td class="num">275</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              a$alpha,</pre>
+                      <pre class="language-r">      session, input, data, dataname,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">307</td>
+                    <td class="num">276</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              value_min_max = c(0.8, 0.0, 1.0), step = 0.1, ticks = FALSE</pre>
+                      <pre class="language-r">      param_id = "xaxis_param", param_var = param_var, trt_group = input$trt_group, min_rows = 1</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">308</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">309</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="missed">
+                    <td class="num">279</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    anl_q &lt;- anl_q_output()$value</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">310</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">311</td>
+                    <td class="num">281</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ),</pre>
+                      <pre class="language-r">    # update sliders for axes taking constraints into account</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">312</td>
+                    <td class="num">282</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      forms = tagList(</pre>
+                      <pre class="language-r">    xrange_slider &lt;- toggle_slider_server("xrange_scale")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">313</td>
+                    <td class="num">283</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">    yrange_slider &lt;- toggle_slider_server("yrange_scale")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">314</td>
+                    <td class="num">284</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">315</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      ),</pre>
+                      <pre class="language-r">    keep_range_slider_updated(session, input, xrange_slider$update_state, "xaxis_var", "xaxis_param", anl_q)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">316</td>
+                    <td class="num">285</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      pre_output = a$pre_output,</pre>
+                      <pre class="language-r">    keep_range_slider_updated(session, input, yrange_slider$update_state, "yaxis_var", "xaxis_param", anl_q)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">317</td>
+                    <td class="num">286</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      post_output = a$post_output</pre>
+                      <pre class="language-r">    keep_data_const_opts_updated(session, input, anl_q, "xaxis_param")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">318</td>
+                    <td class="num">287</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">319</td>
+                    <td class="num">288</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">    # plot</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">320</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">    plot_q &lt;- reactive({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">321</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">290</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      req(anl_q())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">322</td>
+                    <td class="num">291</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      # nolint start</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">323</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"></pre>
+                      <pre class="language-r">      xlim &lt;- xrange_slider$state()$value</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">324</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">srv_g_spaghettiplot &lt;- function(id,</pre>
+                      <pre class="language-r">      ylim &lt;- yrange_slider$state()$value</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">325</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">                                data,</pre>
+                      <pre class="language-r">      facet_ncol &lt;- input$facet_ncol</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">326</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">                                reporter,</pre>
+                      <pre class="language-r">      validate(need(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">327</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">                                filter_panel_api,</pre>
+                      <pre class="language-r">        is.na(facet_ncol) || (as.numeric(facet_ncol) &gt; 0 &amp;&amp; as.numeric(facet_ncol) %% 1 == 0),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">328</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,</pre>
+                      <pre class="language-r">        "Number of plots per row must be a positive integer"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">329</td>
+                    <td class="num">298</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                idvar,</pre>
+                      <pre class="language-r">      ))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">330</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">                                param_var,</pre>
+                      <pre class="language-r">      reg_line &lt;- input$reg_line</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">331</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">                                trt_group,</pre>
+                      <pre class="language-r">      font_size &lt;- input$font_size</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">332</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">                                man_color,</pre>
+                      <pre class="language-r">      dot_size &lt;- input$dot_size</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">333</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">                                color_comb,</pre>
+                      <pre class="language-r">      reg_text_size &lt;- input$reg_text_size</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">334</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">                                xaxis_var_level,</pre>
+                      <pre class="language-r">      rotate_xlab &lt;- input$rotate_xlab</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">335</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">                                trt_group_level,</pre>
+                      <pre class="language-r">      hline &lt;- input$hline</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">336</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">                                param_var_label,</pre>
+                      <pre class="language-r">      vline &lt;- input$vline</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">337</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">                                xtick,</pre>
+                      <pre class="language-r">      trt_group &lt;- input$trt_group</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">338</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">                                xlabel,</pre>
+                      <pre class="language-r">      facet &lt;- input$trt_facet</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">339</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">                                plot_height,</pre>
+                      <pre class="language-r">      validate(need(trt_group, "Please select a treatment variable"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">340</td>
+                    <td class="num">309</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">341</td>
+                    <td class="num">310</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                hline_vars_colors,</pre>
+                      <pre class="language-r">      # Below inputs should trigger plot via updates of other reactive objects (i.e. anl_q()) and some inputs</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">342</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">                                hline_vars_labels) {</pre>
+                      <pre class="language-r">      validate(need(input$xaxis_var, "Please select an X-Axis Variable"))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">343</td>
+                    <td class="num">312</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">      validate(need(input$yaxis_var, "Please select a Y-Axis Variable"))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">344</td>
+                    <td class="num">313</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">      param &lt;- input$xaxis_param</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">345</td>
+                    <td class="num">314</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(data, "reactive")</pre>
+                      <pre class="language-r">      xaxis &lt;- input$xaxis_var</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">346</td>
+                    <td class="num">315</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(shiny::isolate(data()), "teal_data")</pre>
+                      <pre class="language-r">      yaxis &lt;- input$yaxis_var</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">347</td>
+                    <td class="num">316</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
+                  <tr class="never">
+                    <td class="num">317</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      # nolint end</pre>
+                    </td>
+                  </tr>
                   <tr class="missed">
-                    <td class="num">348</td>
+                    <td class="num">318</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  moduleServer(id, function(input, output, session) {</pre>
+                      <pre class="language-r">      teal.code::eval_code(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">349</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">    # reused in all modules</pre>
+                      <pre class="language-r">        object = anl_q()$qenv,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">350</td>
+                    <td class="num">320</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    anl_q_output &lt;- constr_anl_q(</pre>
+                      <pre class="language-r">        code = bquote({</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">321</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          # re-establish treatment variable label</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">351</td>
+                    <td class="num">322</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      session, input, data, dataname,</pre>
+                      <pre class="language-r">          p &lt;- goshawk::g_scatterplot(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">352</td>
+                    <td class="num">323</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      param_id = "xaxis_param", param_var = param_var, trt_group = input$trt_group, min_rows = 1</pre>
+                      <pre class="language-r">            data = ANL,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">353</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">            param_var = .(param_var),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">354</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">            param = .(param),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">355</td>
+                    <td class="num">326</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    anl_q &lt;- anl_q_output()$value</pre>
+                      <pre class="language-r">            xaxis_var = .(xaxis),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">356</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"></pre>
+                      <pre class="language-r">            yaxis_var = .(yaxis),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">357</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">    # update sliders for axes taking constraints into account</pre>
+                      <pre class="language-r">            trt_group = .(trt_group),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">358</td>
+                    <td class="num">329</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    yrange_slider &lt;- toggle_slider_server("yrange_scale")</pre>
+                      <pre class="language-r">            xlim = .(xlim),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">359</td>
+                    <td class="num">330</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    keep_range_slider_updated(session, input, yrange_slider$update_state, "yaxis_var", "xaxis_param", anl_q)</pre>
+                      <pre class="language-r">            ylim = .(ylim),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">360</td>
+                    <td class="num">331</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    keep_data_const_opts_updated(session, input, anl_q, "xaxis_param")</pre>
+                      <pre class="language-r">            color_manual = .(color_manual),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">361</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"></pre>
+                      <pre class="language-r">            shape_manual = .(shape_manual),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">362</td>
+                    <td class="num">333</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    horizontal_line &lt;- srv_arbitrary_lines("hline_arb")</pre>
+                      <pre class="language-r">            facet_ncol = .(facet_ncol),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">363</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">            facet = .(facet),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">364</td>
+                    <td class="num">335</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    iv_r &lt;- reactive({</pre>
+                      <pre class="language-r">            facet_var = .(trt_group),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">365</td>
+                    <td class="num">336</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv &lt;- shinyvalidate::InputValidator$new()</pre>
+                      <pre class="language-r">            reg_line = .(reg_line),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">366</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">            font_size = .(font_size),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">367</td>
+                    <td class="num">338</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv$add_rule("xaxis_param", shinyvalidate::sv_required("Please select a biomarker"))</pre>
+                      <pre class="language-r">            dot_size = .(dot_size),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">368</td>
+                    <td class="num">339</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv$add_rule("trt_group", shinyvalidate::sv_required("Please select a treatment variable"))</pre>
+                      <pre class="language-r">            reg_text_size = .(reg_text_size),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">369</td>
+                    <td class="num">340</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv$add_rule("xaxis_var", shinyvalidate::sv_required("Please select an X-Axis variable"))</pre>
+                      <pre class="language-r">            rotate_xlab = .(rotate_xlab),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">370</td>
+                    <td class="num">341</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv$add_rule("yaxis_var", shinyvalidate::sv_required("Please select a Y-Axis variable"))</pre>
+                      <pre class="language-r">            hline = .(`if`(is.na(hline), NULL, as.numeric(hline))),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">371</td>
+                    <td class="num">342</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv$add_rule("facet_ncol", plots_per_row_validate_rules())</pre>
+                      <pre class="language-r">            vline = .(`if`(is.na(vline), NULL, as.numeric(vline)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">372</td>
+                    <td class="num">343</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">373</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      iv$add_validator(horizontal_line()$iv_r())</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">374</td>
+                    <td class="num">344</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv$add_validator(anl_q_output()$iv_r())</pre>
+                      <pre class="language-r">          print(p)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">375</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">      iv$enable()</pre>
+                      <pre class="language-r">        })</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">376</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">346</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">377</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">378</td>
+                    <td class="num">348</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
+                  <tr class="missed">
+                    <td class="num">349</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    plot_r &lt;- reactive(plot_q()[["p"]])</pre>
+                    </td>
+                  </tr>
                   <tr class="never">
-                    <td class="num">379</td>
+                    <td class="num">350</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">380</td>
+                    <td class="num">351</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    plot_q &lt;- reactive({</pre>
+                      <pre class="language-r">    plot_data &lt;- teal.widgets::plot_with_settings_srv(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">381</td>
+                    <td class="num">352</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal::validate_inputs(iv_r())</pre>
+                      <pre class="language-r">      id = "plot",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">382</td>
+                    <td class="num">353</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      req(anl_q())</pre>
+                      <pre class="language-r">      plot_r = plot_r,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">383</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">      # nolint start</pre>
+                      <pre class="language-r">      height = plot_height,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">384</td>
+                    <td class="num">355</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ylim &lt;- yrange_slider$state()$value</pre>
+                      <pre class="language-r">      width = plot_width,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">385</td>
+                    <td class="num">356</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      facet_ncol &lt;- input$facet_ncol</pre>
+                      <pre class="language-r">      brushing = TRUE</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">386</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">357</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      facet_scales &lt;- ifelse(input$free_x, "free_x", "fixed")</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">387</td>
+                    <td class="num">358</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
+                  <tr class="never">
+                    <td class="num">359</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    ### REPORTER</pre>
+                    </td>
+                  </tr>
                   <tr class="missed">
-                    <td class="num">388</td>
+                    <td class="num">360</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      rotate_xlab &lt;- input$rotate_xlab</pre>
+                      <pre class="language-r">    if (with_reporter) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">389</td>
+                    <td class="num">361</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      hline_arb &lt;- horizontal_line()$line_arb</pre>
+                      <pre class="language-r">      card_fun &lt;- function(comment, label) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">390</td>
+                    <td class="num">362</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      hline_arb_label &lt;- horizontal_line()$line_arb_label</pre>
+                      <pre class="language-r">        constraint_description &lt;- paste(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">391</td>
+                    <td class="num">363</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      hline_arb_color &lt;- horizontal_line()$line_arb_color</pre>
+                      <pre class="language-r">          "\nTreatment Variable Faceting:",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">392</td>
+                    <td class="num">364</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      group_stats &lt;- input$group_stats</pre>
+                      <pre class="language-r">          input$trt_facet,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">393</td>
+                    <td class="num">365</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">          "\nRegression Line:",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">394</td>
+                    <td class="num">366</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      alpha &lt;- input$alpha</pre>
+                      <pre class="language-r">          input$reg_line</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">367</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">395</td>
+                    <td class="num">368</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      validate(need(input$trt_group, "Please select a treatment variable"))</pre>
+                      <pre class="language-r">        card &lt;- report_card_template_goshawk(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">396</td>
+                    <td class="num">369</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      trt_group &lt;- input$trt_group</pre>
+                      <pre class="language-r">          title = "Scatter Plot",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">397</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">          label = label,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">398</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">      # Below inputs should trigger plot via updates of other reactive objects (i.e. anl_q()) and some inputs</pre>
+                      <pre class="language-r">          with_filter = with_filter,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">399</td>
+                    <td class="num">372</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      param &lt;- input$xaxis_param</pre>
+                      <pre class="language-r">          filter_panel_api = filter_panel_api,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">400</td>
+                    <td class="num">373</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      xaxis_var &lt;- input$xaxis_var</pre>
+                      <pre class="language-r">          constraint_list = list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">401</td>
+                    <td class="num">374</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      yaxis_var &lt;- input$yaxis_var</pre>
+                      <pre class="language-r">            constraint_var = input$constraint_var,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">402</td>
+                    <td class="num">375</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      hline_vars &lt;- input$hline_vars</pre>
+                      <pre class="language-r">            constraint_range_min = input$constraint_range_min,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">403</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">      # nolint end</pre>
+                      <pre class="language-r">            constraint_range_max = input$constraint_range_max</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">404</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">405</td>
+                    <td class="num">378</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      private_qenv &lt;- anl_q()$qenv</pre>
+                      <pre class="language-r">          constraint_description = constraint_description,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">406</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">          style = "verbatim"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">407</td>
+                    <td class="num">380</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # this code is needed to make sure the waiver attribute</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">408</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">      # of ggplot2::waiver is correctly passed to goshawk's spaghettiplot</pre>
+                      <pre class="language-r">        card$append_text("Scatter Plot", "header3")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">409</td>
+                    <td class="num">382</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (!methods::is(xtick, "waiver")) {</pre>
+                      <pre class="language-r">        card$append_plot(plot_r(), dim = plot_data$dim())</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">410</td>
+                    <td class="num">383</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        private_qenv &lt;- teal.code::eval_code(</pre>
+                      <pre class="language-r">        if (!comment == "") {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">411</td>
+                    <td class="num">384</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          object = private_qenv,</pre>
+                      <pre class="language-r">          card$append_text("Comment", "header3")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">412</td>
+                    <td class="num">385</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          code = bquote(xtick &lt;- .(xtick))</pre>
+                      <pre class="language-r">          card$append_text(comment)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">413</td>
+                    <td class="num">386</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">414</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">      } else {</pre>
+                      <pre class="language-r">        card$append_src(teal.code::get_code(plot_q()))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">415</td>
+                    <td class="num">388</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        private_qenv &lt;- teal.code::eval_code(</pre>
+                      <pre class="language-r">        card</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">416</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">          object = private_qenv,</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">417</td>
+                    <td class="num">390</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          code = quote(xtick &lt;- ggplot2::waiver())</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">418</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">419</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">420</td>
+                    <td class="num">393</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></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 (!methods::is(xlabel, "waiver")) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">422</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">394</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        private_qenv &lt;- teal.code::eval_code(</pre>
+                      <pre class="language-r">    # highlight plot area</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">423</td>
+                    <td class="num">395</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          object = private_qenv,</pre>
+                      <pre class="language-r">    output$brush_data &lt;- DT::renderDataTable({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">424</td>
+                    <td class="num">396</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          code = bquote(xlabel &lt;- .(xlabel))</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">425</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">      plot_brush &lt;- plot_data$brush()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">426</td>
+                    <td class="num">397</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">427</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        private_qenv &lt;- teal.code::eval_code(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">428</td>
+                    <td class="num">398</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          object = private_qenv,</pre>
+                      <pre class="language-r">      ANL &lt;- isolate(anl_q()$ANL) # nolint</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">429</td>
+                    <td class="num">399</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          code = quote(xlabel &lt;- ggplot2::waiver())</pre>
+                      <pre class="language-r">      validate_has_data(ANL, 1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">430</td>
+                    <td class="num">400</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">431</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">      xvar &lt;- isolate(input$xaxis_var)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">432</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">      yvar &lt;- isolate(input$yaxis_var)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">433</td>
+                    <td class="num">403</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.code::eval_code(</pre>
+                      <pre class="language-r">      trt_group &lt;- isolate(input$trt_group)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">434</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">404</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        object = private_qenv,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">435</td>
+                    <td class="num">405</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        code = bquote({</pre>
+                      <pre class="language-r">      req(all(c(xvar, yvar) %in% names(ANL)))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">436</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">          p &lt;- goshawk::g_spaghettiplot(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">437</td>
+                    <td class="num">407</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            data = ANL,</pre>
+                      <pre class="language-r">      df &lt;- teal.widgets::clean_brushedPoints(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">438</td>
+                    <td class="num">408</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            subj_id = .(idvar),</pre>
+                      <pre class="language-r">        dplyr::select(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">439</td>
+                    <td class="num">409</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            biomarker_var = .(param_var),</pre>
+                      <pre class="language-r">          ANL, "USUBJID", dplyr::all_of(trt_group), "AVISITCD", "PARAMCD",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">440</td>
+                    <td class="num">410</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            biomarker_var_label = .(param_var_label),</pre>
+                      <pre class="language-r">          dplyr::all_of(c(xvar, yvar)), "LOQFL"</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">441</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">411</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            biomarker = .(param),</pre>
+                      <pre class="language-r">        ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">442</td>
+                    <td class="num">412</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            value_var = .(yaxis_var),</pre>
+                      <pre class="language-r">        plot_brush</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">443</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">413</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            trt_group = .(trt_group),</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">444</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">414</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            trt_group_level = .(trt_group_level),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">445</td>
+                    <td class="num">415</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            time = .(xaxis_var),</pre>
+                      <pre class="language-r">      numeric_cols &lt;- names(dplyr::select_if(df, is.numeric))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">446</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">416</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            time_level = .(xaxis_var_level),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">447</td>
+                    <td class="num">417</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            color_manual = .(man_color),</pre>
+                      <pre class="language-r">      DT::datatable(df, rownames = FALSE, options = list(scrollX = TRUE)) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">448</td>
+                    <td class="num">418</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            color_comb = .(color_comb),</pre>
+                      <pre class="language-r">        DT::formatRound(numeric_cols, 4)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">449</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">419</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ylim = .(ylim),</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">420</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            facet_ncol = .(facet_ncol),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">451</td>
+                    <td class="num">421</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            facet_scales = .(facet_scales),</pre>
+                      <pre class="language-r">    teal.widgets::verbatim_popup_srv(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">452</td>
+                    <td class="num">422</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            hline_arb = .(hline_arb),</pre>
+                      <pre class="language-r">      id = "warning",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">453</td>
+                    <td class="num">423</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            hline_arb_label = .(hline_arb_label),</pre>
+                      <pre class="language-r">      verbatim_content = reactive(teal.code::get_warnings(plot_q())),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">454</td>
+                    <td class="num">424</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            hline_arb_color = .(hline_arb_color),</pre>
+                      <pre class="language-r">      title = "Warning",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">455</td>
+                    <td class="num">425</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            xtick = xtick,</pre>
+                      <pre class="language-r">      disabled = reactive(is.null(teal.code::get_warnings(plot_q())))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">456</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">            xlabel = xlabel,</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">427</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            rotate_xlab = .(rotate_xlab),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">458</td>
+                    <td class="num">428</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            font_size = .(font_size),</pre>
+                      <pre class="language-r">    teal.widgets::verbatim_popup_srv(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">459</td>
+                    <td class="num">429</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            alpha = .(alpha),</pre>
+                      <pre class="language-r">      id = "rcode",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">460</td>
+                    <td class="num">430</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            group_stats = .(group_stats),</pre>
+                      <pre class="language-r">      verbatim_content = reactive(teal.code::get_code(plot_q())),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">461</td>
+                    <td class="num">431</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            hline_vars = .(hline_vars),</pre>
+                      <pre class="language-r">      title = "Show R Code for Scatterplot"</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">462</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">            hline_vars_colors = .(hline_vars_colors[seq_along(hline_vars)]),</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">463</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">            hline_vars_labels = .(hline_vars_labels[seq_along(hline_vars)])</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">464</td>
+                    <td class="num">434</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">465</td>
-                    <td class="coverage">!</td>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/utils-arbitrary_lines.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">          print(p)</pre>
+                      <pre class="language-r">#' UI module to arbitrary lines</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">466</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">467</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#' UI module to input either horizontal or vertical lines to a plot via comma separated values</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">468</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">469</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @param id (`character(1)`)\cr</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">470</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">    plot_r &lt;- reactive({</pre>
+                      <pre class="language-r">#'  defining namespace of the `shiny` module.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">471</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_q()[["p"]]</pre>
+                      <pre class="language-r">#' @param line_arb (`numeric`)\cr</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">472</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">#'  default values for the `textInput` defining values of arbitrary lines</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">473</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 line_arb_color (`character`)\cr</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">474</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">    plot_data &lt;- teal.widgets::plot_with_settings_srv(</pre>
+                      <pre class="language-r">#'  default values for the `textInput` defining colors of arbitrary lines</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">475</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 = "plot",</pre>
+                      <pre class="language-r">#' @param line_arb_label (`character`)\cr</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">476</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">#'  default values for the `textInput` defining labels of arbitrary lines</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">477</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">#' @param title (`character(1)`)\cr</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">478</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">#'  title of the arbitrary lines input. The default is "Arbitrary Horizontal Lines".</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">479</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">      brushing = TRUE</pre>
+                      <pre class="language-r">#' @return (`shiny.tag`) an input to define values, colors and labels for arbitrary</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">480</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#' straight lines.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">481</td>
+                    <td class="num">17</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">482</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ### REPORTER</pre>
+                      <pre class="language-r">ui_arbitrary_lines &lt;- function(id, line_arb, line_arb_label, line_arb_color, title = "Arbitrary Horizontal Lines:") {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">483</td>
+                    <td class="num">19</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (with_reporter) {</pre>
+                      <pre class="language-r">  ns &lt;- NS(id)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">484</td>
+                    <td class="num">20</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">  div(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">485</td>
+                    <td class="num">21</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        card &lt;- report_card_template_goshawk(</pre>
+                      <pre class="language-r">    tags$b(title),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">486</td>
+                    <td class="num">22</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          title = "Spaghetti Plot",</pre>
+                      <pre class="language-r">    textInput(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">487</td>
+                    <td class="num">23</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          label = label,</pre>
+                      <pre class="language-r">      ns("line_arb"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">488</td>
+                    <td class="num">24</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          with_filter = with_filter,</pre>
+                      <pre class="language-r">      div(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">489</td>
+                    <td class="num">25</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">        class = "teal-tooltip",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">490</td>
+                    <td class="num">26</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        tagList(</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">27</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          "Value:",</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">28</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          constraint_list = list(</pre>
+                      <pre class="language-r">          icon("circle-info"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">491</td>
+                    <td class="num">29</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            constraint_var = input$constraint_var,</pre>
+                      <pre class="language-r">          span(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">492</td>
+                    <td class="num">30</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            constraint_range_min = input$constraint_range_min,</pre>
+                      <pre class="language-r">            class = "tooltiptext",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">493</td>
+                    <td class="num">31</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            constraint_range_max = input$constraint_range_max</pre>
+                      <pre class="language-r">            "For multiple lines, supply a comma separated list of values."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">494</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">495</td>
+                    <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">496</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">        card$append_text("Spaghetti Plot", "header3")</pre>
+                      <pre class="language-r">      ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">497</td>
+                    <td class="num">35</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        card$append_plot(plot_r(), dim = plot_data$dim())</pre>
+                      <pre class="language-r">      value = paste(line_arb, collapse = ", ")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">498</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">36</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (!comment == "") {</pre>
+                      <pre class="language-r">    ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">499</td>
+                    <td class="num">37</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          card$append_text("Comment", "header3")</pre>
+                      <pre class="language-r">    textInput(ns("line_arb_label"), label = "Label:", value = paste(line_arb_label, collapse = ", ")),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">500</td>
+                    <td class="num">38</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          card$append_text(comment)</pre>
+                      <pre class="language-r">    textInput(ns("line_arb_color"), label = "Color:", value = paste(line_arb_color, collapse = ", "))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">501</td>
+                    <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">502</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">        card$append_src(teal.code::get_code(plot_q()))</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">503</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">        card</pre>
+                      <pre class="language-r">#' Server module to arbitrary lines</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">504</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">505</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">      teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun)</pre>
+                      <pre class="language-r">#' Server to validate and transform the comma separated values into vectors of values</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">506</td>
+                    <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#' to be passed into goshawk functions.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">507</td>
+                    <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ###</pre>
+                      <pre class="language-r">#' @inheritParams shiny::moduleServer</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">508</td>
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @return (`reactive`) returning a `list` containing `line_arb`, `line_arb_color`,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">509</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">    output$brush_data &lt;- DT::renderDataTable({</pre>
+                      <pre class="language-r">#'  `line_arb_label` which are validated and could be passed to `goshawk` plot functions.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">510</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">      plot_brush &lt;- plot_data$brush()</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">511</td>
+                    <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">srv_arbitrary_lines &lt;- function(id) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">512</td>
+                    <td class="num">50</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ANL &lt;- isolate(anl_q()$ANL) # nolint</pre>
+                      <pre class="language-r">  moduleServer(id, function(input, output, session) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">513</td>
+                    <td class="num">51</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      validate_has_data(ANL, 1)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">514</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    comma_sep_to_values &lt;- function(values, wrapper_fun = trimws) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">515</td>
+                    <td class="num">52</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      xvar &lt;- isolate(input$xaxis_var)</pre>
+                      <pre class="language-r">      vals &lt;- strsplit(values, "\\s{0,},\\s{0,}")[[1]]</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">516</td>
+                    <td class="num">53</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      yvar &lt;- isolate(input$yaxis_var)</pre>
+                      <pre class="language-r">      suppressWarnings(wrapper_fun(vals))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">517</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">      trt_group &lt;- isolate(input$trt_group)</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">518</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">519</td>
+                    <td class="num">56</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      req(all(c(xvar, yvar) %in% names(ANL)))</pre>
+                      <pre class="language-r">    iv_r &lt;- reactive({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">520</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">57</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">521</td>
+                    <td class="num">58</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      df &lt;- teal.widgets::clean_brushedPoints(</pre>
+                      <pre class="language-r">      iv$add_rule("line_arb", shinyvalidate::sv_optional())</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">522</td>
+                    <td class="num">59</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        dplyr::select(</pre>
+                      <pre class="language-r">      iv$add_rule(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">523</td>
+                    <td class="num">60</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ANL, "USUBJID", dplyr::all_of(trt_group), "PARAMCD",</pre>
+                      <pre class="language-r">        "line_arb",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">524</td>
+                    <td class="num">61</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          dplyr::all_of(c(xvar, yvar)), "LOQFL"</pre>
+                      <pre class="language-r">        ~ if (any(is.na(comma_sep_to_values(., as.numeric)))) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">62</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          "Arbitrary lines values should be a comma separated list of numbers"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">525</td>
+                    <td class="num">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ),</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">526</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">        plot_brush</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">527</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">528</td>
+                    <td class="num">66</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      df &lt;- df[order(df$PARAMCD, df[[trt_group]], df$USUBJID, df[[xvar]]), ]</pre>
+                      <pre class="language-r">      iv_color &lt;- shinyvalidate::InputValidator$new()</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">529</td>
+                    <td class="num">67</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      numeric_cols &lt;- names(dplyr::select_if(df, is.numeric))</pre>
+                      <pre class="language-r">      iv_color$condition(~ length(line_arb()) != 0)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">530</td>
+                    <td class="num">68</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">69</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      DT::datatable(df, rownames = FALSE, options = list(scrollX = TRUE)) %&gt;%</pre>
+                      <pre class="language-r">      iv_color$add_rule("line_arb_color", shinyvalidate::sv_optional())</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">532</td>
+                    <td class="num">70</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        DT::formatRound(numeric_cols, 4)</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">      iv_color$add_rule(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">534</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">71</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        "line_arb_color",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">535</td>
+                    <td class="num">72</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    teal.widgets::verbatim_popup_srv(</pre>
+                      <pre class="language-r">        ~ if (!length(comma_sep_to_values(.)) %in% c(1, length(line_arb()))) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">536</td>
+                    <td class="num">73</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      id = "warning",</pre>
+                      <pre class="language-r">          sprintf(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">537</td>
+                    <td class="num">74</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      verbatim_content = reactive(teal.code::get_warnings(plot_q())),</pre>
+                      <pre class="language-r">            "Line input error: number of colors should be equal to 1, the number of lines (%d) or left blank for 'red'",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">538</td>
+                    <td class="num">75</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      title = "Warning",</pre>
+                      <pre class="language-r">            length(line_arb())</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">539</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">      disabled = reactive(is.null(teal.code::get_warnings(plot_q())))</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">540</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">541</td>
+                    <td class="num">78</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">542</td>
+                    <td class="num">79</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    teal.widgets::verbatim_popup_srv(</pre>
+                      <pre class="language-r">      iv_color$add_rule("line_arb_color", ~ if (!check_color(comma_sep_to_values(.))) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">543</td>
+                    <td class="num">80</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      id = "rcode",</pre>
+                      <pre class="language-r">        "The line colors entered cannot be converted to colors in R, please check your spelling"</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">544</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">      verbatim_content = reactive(teal.code::get_code(plot_q())),</pre>
+                      <pre class="language-r">      })</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">545</td>
+                    <td class="num">82</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      title = "Show R Code for Spaghetti Plot"</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">546</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">      iv$add_validator(iv_color)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">547</td>
+                    <td class="num">83</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">548</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>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/toggleable_slider.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
-                  <tr class="never">
-                    <td class="num">1</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">85</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' UI with a toggleable slider to change between slider and numeric input fields</pre>
+                      <pre class="language-r">      iv_label &lt;- shinyvalidate::InputValidator$new()</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">2</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">#'</pre>
+                      <pre class="language-r">      iv_label$condition(~ length(line_arb()) != 0)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">87</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This is useful when a slider should be shown, but it is sometimes hard to configure sliders,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">4</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">88</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' so one can toggle to one or two numeric input fields to set slider instead.</pre>
+                      <pre class="language-r">      iv_label$add_rule("line_arb_label", shinyvalidate::sv_optional())</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">5</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">89</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Both normal sliders (for a single number in a range) and dichotomous sliders (for a range</pre>
+                      <pre class="language-r">      iv_label$add_rule(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">6</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">90</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' within the slider range) are supported. In the former case, the toggle button</pre>
+                      <pre class="language-r">        "line_arb_label",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">7</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">#' will show one numeric input field, in the latter case two.</pre>
+                      <pre class="language-r">        ~ if (!length(comma_sep_to_values(.)) %in% c(1, length(line_arb()))) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">8</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">92</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          sprintf(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">9</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">#' Value is not checked to be within minmax range</pre>
+                      <pre class="language-r">            "Line input error: number of labels should be equal to 1, the number of lines (%d) or left blank",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">10</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">            length(line_arb())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">95</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @md</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">96</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param id `character` module id</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param label `label` label for input field, e.g. slider or numeric inputs</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">14</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">98</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param min `numeric or integer` minimum value</pre>
+                      <pre class="language-r">      iv$add_validator(iv_label)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">15</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">99</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param max `numeric or integer` maximum value</pre>
+                      <pre class="language-r">      iv</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">100</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param value `numeric or integer` either of length 1 for normal slider or of</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">101</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   length 2 for dichotomous slider.</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">102</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param slider_initially `logical` whether to show slider or numeric fields</pre>
+                      <pre class="language-r">    line_arb &lt;- reactive({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">19</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">103</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   initially</pre>
+                      <pre class="language-r">      req(!is.null(input$line_arb))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">20</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">104</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param step_slider `numeric or integer` step for slider</pre>
+                      <pre class="language-r">      comma_sep_to_values(input$line_arb, as.numeric)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">105</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param step_numeric `numeric or integer` step for numeric input fields</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">106</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param width `numeric` width of slider or of each numeric field</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">107</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param ... additional parameters to pass to `sliderInput`</pre>
+                      <pre class="language-r">    line_arb_label &lt;- reactive({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">24</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">108</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      if (length(line_arb()) == 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">25</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">109</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return Shiny HTML UI</pre>
+                      <pre class="language-r">        return(character(0))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">110</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">27</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">111</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      val &lt;- comma_sep_to_values(input$line_arb_label)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">28</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">112</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">      if (length(val) == 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">29</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">113</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' value &lt;- c(20.3, 81.5) # dichotomous slider</pre>
+                      <pre class="language-r">        val &lt;- ""</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">114</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # value &lt;- c(50.1) # normal slider</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">115</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' app &lt;- shinyApp(</pre>
+                      <pre class="language-r">      val</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">32</td>
+                    <td class="num">116</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ui = div(</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">117</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     teal.goshawk:::toggle_slider_ui(</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">118</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       "toggle_slider", "Select value",</pre>
+                      <pre class="language-r">    line_arb_color &lt;- reactive({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">35</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">119</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       min = 0.2, max = 100.1, value = value,</pre>
+                      <pre class="language-r">      if (length(line_arb()) == 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">36</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">#'       slider_initially = FALSE, step_slider = 0.1, step_numeric = 0.001</pre>
+                      <pre class="language-r">        return(character(0))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</td>
+                    <td class="num">121</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     ),</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">38</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">122</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     verbatimTextOutput("value")</pre>
+                      <pre class="language-r">      val &lt;- comma_sep_to_values(input$line_arb_color)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">39</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">123</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ),</pre>
+                      <pre class="language-r">      if (length(val) == 0 || all(val == "")) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">40</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">#'   server = function(input, output, session) {</pre>
+                      <pre class="language-r">        val &lt;- "red"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">125</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     is_dichotomous_slider &lt;- (length(value) == 2)</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">126</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     range_value &lt;- toggle_slider_server("toggle_slider",</pre>
+                      <pre class="language-r">      val</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <td class="num">127</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       is_dichotomous_slider = is_dichotomous_slider</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">44</td>
+                    <td class="num">128</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">45</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">#'     messages &lt;- reactiveVal() # to keep history</pre>
+                      <pre class="language-r">    return(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">46</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">130</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     observeEvent(range_value$state(), {</pre>
+                      <pre class="language-r">      reactive(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">47</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">131</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       list_with_names_str &lt;- function(x) paste(names(x), x, sep = ": ", collapse = ", ")</pre>
+                      <pre class="language-r">        list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">48</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">132</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       messages(c(messages(), list_with_names_str(range_value$state())))</pre>
+                      <pre class="language-r">          iv_r = iv_r,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">49</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">          line_arb = line_arb(),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">50</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">134</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     output$value &lt;- renderText({</pre>
+                      <pre class="language-r">          line_arb_color = line_arb_color(),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">51</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">#'       paste(messages(), collapse = "\n")</pre>
+                      <pre class="language-r">          line_arb_label = line_arb_label()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">52</td>
+                    <td class="num">136</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     })</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">53</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="never">
-                    <td class="num">54</td>
+                    <td class="num">138</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     # for stress-testing example, update slider settings</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">55</td>
+                    <td class="num">139</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     # bug with invalidateLater not working inside `observeEvent`</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">56</td>
+                    <td class="num">140</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     # observe({</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">57</td>
+                    <td class="num">141</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     #   invalidateLater(1000, session)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">58</td>
+                    <td class="num">142</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     #   a &lt;- sample(0:100, 1) # for range</pre>
+                      <pre class="language-r">check_color &lt;- function(col) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">59</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">#'     #   b &lt;- sample(0:100, 1)</pre>
+                      <pre class="language-r">  tryCatch(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">60</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">#'     #   isolate(do.call(</pre>
+                      <pre class="language-r">    is.matrix(grDevices::col2rgb(col)),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">61</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">#'     #     range_value$update_state,</pre>
+                      <pre class="language-r">    error = function(e) FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">62</td>
+                    <td class="num">146</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     #     list(</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">63</td>
+                    <td class="num">147</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     #       value = sort(sample(0:100, if (is_dichotomous_slider) 2 else 1)),</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">64</td>
+                    <td class="num">148</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     #       min = min(a, b), max = max(a, b),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">65</td>
+                    <td class="num">149</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     #       step = sample(1:20, 1) / 10</pre>
+                      <pre class="language-r"># to check the arbitrary line arguments</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">66</td>
+                    <td class="num">150</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     #     )[sample(1:4, sample(4, 1))] # select up to four fields from the list</pre>
+                      <pre class="language-r">validate_line_arb_arg &lt;- function(line_arb, line_arb_color, line_arb_label) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">67</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">  checkmate::assert_numeric(line_arb)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">68</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">  if (length(line_arb) &gt; 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">69</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">    checkmate::assert(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">70</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">#' )</pre>
+                      <pre class="language-r">      checkmate::check_string(line_arb_color),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">71</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">#' shinyApp(app$ui, app$server) %&gt;% invisible()</pre>
+                      <pre class="language-r">      checkmate::check_character(line_arb_color, len = length(line_arb))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">72</td>
+                    <td class="num">156</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">toggle_slider_ui &lt;- function(id,</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">157</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             label,</pre>
+                      <pre class="language-r">    checkmate::assert(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">74</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">                             min,</pre>
+                      <pre class="language-r">      checkmate::check_string(line_arb_label),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">75</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">                             max,</pre>
+                      <pre class="language-r">      checkmate::check_character(line_arb_label, len = length(line_arb))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">76</td>
+                    <td class="num">160</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             value,</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">77</td>
+                    <td class="num">161</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             slider_initially = TRUE,</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">78</td>
+                    <td class="num">162</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             step_slider = NULL,</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">79</td>
+                    <td class="num">163</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             step_numeric = step_slider,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">80</td>
+                    <td class="num">164</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             width = NULL,</pre>
+                      <pre class="language-r"># to check the variable line arguments</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">81</td>
+                    <td class="num">165</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             ...) {</pre>
+                      <pre class="language-r">validate_line_vars_arg &lt;- function(line_vars, line_vars_colors, line_vars_labels) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">82</td>
+                    <td class="num">166</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_number(min)</pre>
+                      <pre class="language-r">  checkmate::assert_character(line_vars)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">83</td>
+                    <td class="num">167</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_number(max)</pre>
+                      <pre class="language-r">  if (length(line_vars) &gt; 0) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">84</td>
+                    <td class="num">168</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(slider_initially)</pre>
+                      <pre class="language-r">    checkmate::assert(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">85</td>
+                    <td class="num">169</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_number(step_slider, null.ok = TRUE)</pre>
+                      <pre class="language-r">      checkmate::check_string(line_vars_colors),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">86</td>
+                    <td class="num">170</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_number(step_numeric, null.ok = TRUE)</pre>
+                      <pre class="language-r">      checkmate::check_character(line_vars_colors, len = length(line_vars))</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">171</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">87</td>
+                    <td class="num">172</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(value, min.len = 1, max.len = 2)</pre>
+                      <pre class="language-r">    checkmate::assert(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">88</td>
+                    <td class="num">173</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.null(step_numeric)) {</pre>
+                      <pre class="language-r">      checkmate::check_string(line_vars_labels),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">89</td>
+                    <td class="num">174</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    step_numeric &lt;- NA # numericInput does not support NULL</pre>
+                      <pre class="language-r">      checkmate::check_character(line_vars_labels, len = length(line_vars))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">90</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">91</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">92</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">  show_or_not &lt;- function(show) if (show) identity else shinyjs::hidden</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">93</td>
-                    <td class="coverage">!</td>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/utils-keep_range_slider_updated.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">  ns &lt;- NS(id)</pre>
+                      <pre class="language-r">keep_range_slider_updated &lt;- function(session,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">94</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">                                      input,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">95</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">    include_css_files("custom"),</pre>
+                      <pre class="language-r">                                      update_slider_fcn,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">96</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">    shinyjs::useShinyjs(),</pre>
+                      <pre class="language-r">                                      id_var,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">97</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">    div(</pre>
+                      <pre class="language-r">                                      id_param_var,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">98</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">      class = "flex justify-between mb-1",</pre>
+                      <pre class="language-r">                                      reactive_ANL, # nolint</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">99</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">      tags$span(tags$strong(label)),</pre>
+                      <pre class="language-r">                                      is_density = FALSE) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">100</td>
+                    <td class="num">8</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      actionButton(ns("toggle"), "Toggle", class = "btn-xs")</pre>
+                      <pre class="language-r">  stopifnot(is.function(update_slider_fcn))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">101</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">102</td>
+                    <td class="num">10</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    show_or_not(slider_initially)(</pre>
+                      <pre class="language-r">  observe({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">103</td>
+                    <td class="num">11</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      sliderInput(</pre>
+                      <pre class="language-r">    varname &lt;- input[[id_var]]</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">104</td>
+                    <td class="num">12</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ns("slider"),</pre>
+                      <pre class="language-r">    validate(need(varname, "Please select variable"))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">105</td>
+                    <td class="num">13</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        label = NULL,</pre>
+                      <pre class="language-r">    paramname &lt;- input[[id_param_var]]</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">106</td>
+                    <td class="num">14</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        min = min,</pre>
+                      <pre class="language-r">    validate(need(paramname, "Please select variable"))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">107</td>
+                    <td class="num">15</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        max = max,</pre>
+                      <pre class="language-r">    req(length(paramname) == 1)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">108</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">        value = value,</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">17</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    # we need id_param_var (e.g. ALT) to filter down because the y-axis may have a different</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">18</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    # param var and the range of id_var (e.g. BASE) values may be larger due to this</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">19</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    # therefore, we need to filter</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">109</td>
+                    <td class="num">20</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        step = step_slider,</pre>
+                      <pre class="language-r">    ANL &lt;- reactive_ANL()$ANL %&gt;% dplyr::filter(.data$PARAMCD == paramname) # nolint</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">110</td>
+                    <td class="num">21</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        width = width,</pre>
+                      <pre class="language-r">    validate_has_variable(ANL, varname, paste("variable", varname, "does not exist"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">111</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ...</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">112</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">23</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">    var &lt;- stats::na.omit(ANL[[varname]])</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">24</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    minmax &lt;- if (length(var)) c(floor(min(var)), ceiling(max(var))) else c(0, 0)</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">25</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    step &lt;- NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">113</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">114</td>
+                    <td class="num">27</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    show_or_not(!slider_initially)(tags$span(</pre>
+                      <pre class="language-r">    if (isTRUE(is_density)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">115</td>
+                    <td class="num">28</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      id = ns("numeric_view"),</pre>
+                      <pre class="language-r">      minmax &lt;- c(0, round(max(stats::density(stats::na.omit(ANL[[varname]]))$y) * 1.5, 5))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">116</td>
+                    <td class="num">29</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (length(value) == 1) {</pre>
+                      <pre class="language-r">      step &lt;- round(max(stats::density(stats::na.omit(ANL[[varname]]))$y) / 100, 5)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">117</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">        numericInput(</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">118</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">31</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ns("value"),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">119</td>
+                    <td class="num">32</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          label = NULL,</pre>
+                      <pre class="language-r">    isolate(update_slider_fcn(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">120</td>
+                    <td class="num">33</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          min = min,</pre>
+                      <pre class="language-r">      min = minmax[[1]],</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">121</td>
+                    <td class="num">34</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          max = max,</pre>
+                      <pre class="language-r">      max = minmax[[2]],</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">122</td>
+                    <td class="num">35</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          value = value[[1]],</pre>
+                      <pre class="language-r">      value = minmax,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">123</td>
+                    <td class="num">36</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          step = step_numeric,</pre>
+                      <pre class="language-r">      step = step</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">124</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 = width</pre>
+                      <pre class="language-r">    ))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">125</td>
+                    <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">126</td>
+                    <td class="num">39</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">127</td>
-                    <td class="coverage">!</td>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/utils-templ_ui.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">        div(</pre>
+                      <pre class="language-r">templ_ui_output_datatable &lt;- function(ns) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">128</td>
+                    <td class="num">2</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          numericInput(</pre>
+                      <pre class="language-r">  div(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">129</td>
+                    <td class="num">3</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ns("value_low"),</pre>
+                      <pre class="language-r">    teal.widgets::plot_with_settings_ui(id = ns("plot")),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">130</td>
+                    <td class="num">4</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            "From:",</pre>
+                      <pre class="language-r">    br(), hr(),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">131</td>
+                    <td class="num">5</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            min = min,</pre>
+                      <pre class="language-r">    h4("Selected Data Points"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">132</td>
+                    <td class="num">6</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            max = max,</pre>
+                      <pre class="language-r">    DT::dataTableOutput(ns("brush_data"))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">133</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">            value = value[[1]],</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">134</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">            step = step_numeric,</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">135</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">            width = width</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">136</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ),</pre>
+                      <pre class="language-r">templ_ui_dataname &lt;- function(dataname) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">137</td>
+                    <td class="num">11</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          numericInput(</pre>
+                      <pre class="language-r">  tags$label(dataname, "Data Settings", class = "text-primary")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">138</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">            ns("value_high"),</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">13</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            "- to:",</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">14</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            min = min,</pre>
+                      <pre class="language-r"># UI to create params (biomarker, value of PARAMCD) and vars (column, e.g. AVAL column) select fields for x and y</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">141</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">            max = max,</pre>
+                      <pre class="language-r">templ_ui_params_vars &lt;- function(ns,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">142</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">            value = value[[2]],</pre>
+                      <pre class="language-r">                                 # x</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">143</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">            step = step_numeric,</pre>
+                      <pre class="language-r">                                 xparam_choices = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">144</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">            width = width</pre>
+                      <pre class="language-r">                                 xparam_selected = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">145</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">                                 xparam_label = NULL, # biomarker, e.g. ALT</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">146</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">                                 xchoices = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">147</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">                                 xselected = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">148</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ))</pre>
+                      <pre class="language-r">                                 xvar_label = NULL, # variable, e.g. AVAL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">149</td>
+                    <td class="num">23</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="never">
-                    <td class="num">150</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">                                 yparam_choices = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">151</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                                 yparam_selected = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">152</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># is_dichotomous_slider `logical` whether it is a dichotomous slider or normal slider</pre>
+                      <pre class="language-r">                                 yparam_label = NULL, # biomarker, e.g. ALT</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">153</td>
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">toggle_slider_server &lt;- function(id, is_dichotomous_slider = TRUE) {</pre>
+                      <pre class="language-r">                                 ychoices = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">154</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">  moduleServer(id, function(input, output, session) {</pre>
+                      <pre class="language-r">                                 yselected = NULL,</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">29</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                                 yvar_label = NULL, # variable, e.g. AVAL</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">30</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                                 multiple = FALSE) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">155</td>
+                    <td class="num">31</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_flag(is_dichotomous_slider)</pre>
+                      <pre class="language-r">  if (is.null(xparam_choices) &amp;&amp; !is.null(xchoices) &amp;&amp; !is.null(yparam_choices)) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">32</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    # otherwise, xchoices will appear first without any biomarker to select and this looks odd in the UI</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">156</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">33</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # model view controller: cur_state is the model, the sliderInput and numericInputs are two views/controllers</pre>
+                      <pre class="language-r">    stop(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">157</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">34</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # additionally, the module returns the cur_state, so it can be controlled from that end as well</pre>
+                      <pre class="language-r">      "You have to specify xparam choices rather than yparamchoices</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">158</td>
+                    <td class="num">35</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    cur_state &lt;- reactiveVal(NULL) # model, can contain min, max, value etc.</pre>
+                      <pre class="language-r">      if both xvar and yvar should be values for the same biomarker."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">159</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">160</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">161</td>
+                    <td class="num">38</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    iv_r &lt;- reactive({</pre>
+                      <pre class="language-r">  tagList(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">162</td>
+                    <td class="num">39</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv &lt;- shinyvalidate::InputValidator$new()</pre>
+                      <pre class="language-r">    if (!is.null(xparam_choices)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">163</td>
+                    <td class="num">40</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv$condition(~ input$toggle %% 2 == 1)</pre>
+                      <pre class="language-r">      teal.widgets::optionalSelectInput(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">164</td>
+                    <td class="num">41</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv$add_rule("value_low", shinyvalidate::sv_required("A 'from' value is required - a default is used instead"))</pre>
+                      <pre class="language-r">        ns("xaxis_param"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">165</td>
+                    <td class="num">42</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv$add_rule("value_high", shinyvalidate::sv_required("A 'to' value is required - a default is used instead)"))</pre>
+                      <pre class="language-r">        `if`(is.null(xparam_label), "Select an X-Axis Biomarker", xparam_label),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">166</td>
+                    <td class="num">43</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv$add_rule(</pre>
+                      <pre class="language-r">        xparam_choices,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">167</td>
+                    <td class="num">44</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "value_high",</pre>
+                      <pre class="language-r">        `if`(is.null(xparam_selected), xparam_choices[1], xparam_selected),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">168</td>
+                    <td class="num">45</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ~ if (!is.na(input$value_low) &amp;&amp; (.) &lt; input$value_low) {</pre>
+                      <pre class="language-r">        multiple = FALSE</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">169</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">          "'From' value should be lower than 'to' value - axis has been flipped"</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">170</td>
+                    <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">171</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">48</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">    if (!is.null(xchoices)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">172</td>
+                    <td class="num">49</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv$add_rule(</pre>
+                      <pre class="language-r">      teal.widgets::optionalSelectInput(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">173</td>
+                    <td class="num">50</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "value_low",</pre>
+                      <pre class="language-r">        ns("xaxis_var"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">174</td>
+                    <td class="num">51</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ~ if (!is.na(input$value_high) &amp;&amp; (.) &gt; input$value_high) {</pre>
+                      <pre class="language-r">        `if`(is.null(xvar_label), "Select an X-Axis Variable", xvar_label),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">175</td>
+                    <td class="num">52</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "'To' value should be greater than 'from' value - axis has been flipped"</pre>
+                      <pre class="language-r">        xchoices, xselected,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">53</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        multiple = multiple</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">176</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">177</td>
+                    <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">178</td>
+                    <td class="num">56</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv$enable()</pre>
+                      <pre class="language-r">    if (!is.null(yparam_choices)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">179</td>
+                    <td class="num">57</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv</pre>
+                      <pre class="language-r">      teal.widgets::optionalSelectInput(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">180</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">58</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">        ns("yaxis_param"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">181</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">        `if`(is.null(yparam_label), "Select an Y-Axis Biomarker", yparam_label),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">182</td>
+                    <td class="num">60</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    set_state &lt;- function(new_state) {</pre>
+                      <pre class="language-r">        yparam_choices,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">183</td>
+                    <td class="num">61</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      stopifnot(all(names(new_state) %in% c("min", "max", "step", "value")))</pre>
+                      <pre class="language-r">        `if`(is.null(yparam_selected), yparam_choices[1], yparam_selected),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">184</td>
+                    <td class="num">62</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv_r()$is_valid()</pre>
+                      <pre class="language-r">        multiple = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">185</td>
+                    <td class="num">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # when value does not fall into min, max range, it will automatically get truncated</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">186</td>
+                    <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">187</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">65</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # only update provided components, do not discasrd others</pre>
+                      <pre class="language-r">    if (!is.null(ychoices)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">188</td>
+                    <td class="num">66</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      old_state &lt;- cur_state()</pre>
+                      <pre class="language-r">      teal.widgets::optionalSelectInput(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">189</td>
+                    <td class="num">67</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      new_state &lt;- c(new_state, old_state[!names(old_state) %in% names(new_state)])</pre>
+                      <pre class="language-r">        ns("yaxis_var"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">190</td>
+                    <td class="num">68</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      new_state &lt;- new_state[sort(names(new_state))]</pre>
+                      <pre class="language-r">        `if`(is.null(yvar_label), "Select a Y-Axis Variable", yvar_label),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">191</td>
+                    <td class="num">69</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (!setequal(new_state, cur_state())) {</pre>
+                      <pre class="language-r">        ychoices, yselected,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">192</td>
+                    <td class="num">70</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        cur_state(new_state)</pre>
+                      <pre class="language-r">        multiple = multiple</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">193</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">194</td>
+                    <td class="num">72</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <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">73</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    observeEvent(input$slider, {</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">74</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      set_state(list(value = input$slider))</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/toggleable_slider.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">197</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">#' UI with a toggleable slider to change between slider and numeric input fields</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">198</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # two values for range (dichotomous slider)</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">3</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' This is useful when a slider should be shown, but it is sometimes hard to configure sliders,</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">4</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' so one can toggle to one or two numeric input fields to set slider instead.</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">5</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' Both normal sliders (for a single number in a range) and dichotomous sliders (for a range</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">6</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' within the slider range) are supported. In the former case, the toggle button</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">7</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' will show one numeric input field, in the latter case two.</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">8</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">200</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">      eventExpr = { # nolint</pre>
+                      <pre class="language-r">#' Value is not checked to be within minmax range</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">201</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">        input$value_low</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">202</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$value_high</pre>
+                      <pre class="language-r">#' @md</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">203</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      },</pre>
+                      <pre class="language-r">#' @param id `character` module id</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">204</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">      handlerExpr = { # nolint</pre>
+                      <pre class="language-r">#' @param label `label` label for input field, e.g. slider or numeric inputs</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">205</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">        set_state(list(value = c(input$value_low, input$value_high)))</pre>
+                      <pre class="language-r">#' @param min `numeric or integer` minimum value</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">206</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#' @param max `numeric or integer` maximum value</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">207</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#' @param value `numeric or integer` either of length 1 for normal slider or of</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">208</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # one value for value in range</pre>
+                      <pre class="language-r">#'   length 2 for dichotomous slider.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">209</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">    observeEvent(</pre>
+                      <pre class="language-r">#' @param slider_initially `logical` whether to show slider or numeric fields</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">210</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">      input$value,</pre>
+                      <pre class="language-r">#'   initially</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">211</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">      handlerExpr = { # nolint</pre>
+                      <pre class="language-r">#' @param step_slider `numeric or integer` step for slider</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">212</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">        set_state(list(value = input$value))</pre>
+                      <pre class="language-r">#' @param step_numeric `numeric or integer` step for numeric input fields</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">213</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#' @param width `numeric` width of slider or of each numeric field</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">214</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#' @param ... additional parameters to pass to `sliderInput`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">215</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">216</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">    update_widgets &lt;- function() {</pre>
+                      <pre class="language-r">#' @return Shiny HTML UI</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">217</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">      state_slider &lt;- cur_state()</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">218</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">      req(length(state_slider) &gt; 0) # update will otherwise not work</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">28</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      state_low &lt;- state_slider</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">220</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">      state_high &lt;- state_slider</pre>
+                      <pre class="language-r">#' value &lt;- c(20.3, 81.5) # dichotomous slider</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">221</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">      if (!is.null(state_slider$value) &amp;&amp; (length(state_slider$value) &gt; 1)) {</pre>
+                      <pre class="language-r">#' # value &lt;- c(50.1) # normal slider</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">222</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">        state_low$value &lt;- state_low$value[[1]]</pre>
+                      <pre class="language-r">#' app &lt;- shinyApp(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">223</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">        state_high$value &lt;- state_high$value[[2]]</pre>
+                      <pre class="language-r">#'   ui = div(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">224</td>
+                    <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#'     teal.goshawk:::toggle_slider_ui(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">225</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">      if (input$toggle %% 2 == 0) {</pre>
+                      <pre class="language-r">#'       "toggle_slider", "Select value",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">226</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">        do.call(updateSliderInput, c(list(session, "slider"), state_slider))</pre>
+                      <pre class="language-r">#'       min = 0.2, max = 100.1, value = value,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">227</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">#'       slider_initially = FALSE, step_slider = 0.1, step_numeric = 0.001</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">228</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 (length(state_slider$value) &gt; 1) {</pre>
+                      <pre class="language-r">#'     ),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">229</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">          do.call(updateNumericInput, c(list(session, "value_low"), state_low))</pre>
+                      <pre class="language-r">#'     verbatimTextOutput("value")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">230</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">          do.call(updateNumericInput, c(list(session, "value_high"), state_high))</pre>
+                      <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">231</td>
+                    <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        } else {</pre>
+                      <pre class="language-r">#'   server = function(input, output, session) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">232</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">          do.call(updateNumericInput, c(list(session, "value"), state_low))</pre>
+                      <pre class="language-r">#'     is_dichotomous_slider &lt;- (length(value) == 2)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">233</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">#'     range_value &lt;- toggle_slider_server("toggle_slider",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">234</td>
+                    <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#'       is_dichotomous_slider = is_dichotomous_slider</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">235</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="missed">
-                    <td class="num">236</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">    observeEvent(input$toggle, {</pre>
+                      <pre class="language-r">#'     messages &lt;- reactiveVal() # to keep history</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">237</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">      update_widgets()</pre>
+                      <pre class="language-r">#'     observeEvent(range_value$state(), {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">238</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">      shinyjs::toggle("numeric_view")</pre>
+                      <pre class="language-r">#'       list_with_names_str &lt;- function(x) paste(names(x), x, sep = ": ", collapse = ", ")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">239</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">      shinyjs::toggle("slider")</pre>
+                      <pre class="language-r">#'       messages(c(messages(), list_with_names_str(range_value$state())))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">240</td>
+                    <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">#'     })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">241</td>
+                    <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'     output$value &lt;- renderText({</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">242</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">    update_toggle_slider &lt;- function(value = NULL, min = NULL, max = NULL, step = NULL) {</pre>
+                      <pre class="language-r">#'       paste(messages(), collapse = "\n")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">243</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">      if (!is.null(value) &amp;&amp; is_dichotomous_slider) {</pre>
+                      <pre class="language-r">#'     })</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">244</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">        stopifnot(length(value) == 2)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">245</td>
+                    <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#'     # for stress-testing example, update slider settings</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">246</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">      set_state(Filter(Negate(is.null), list(value = value, min = min, max = max, step = step)))</pre>
+                      <pre class="language-r">#'     # bug with invalidateLater not working inside `observeEvent`</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">247</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">      update_widgets()</pre>
+                      <pre class="language-r">#'     # observe({</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">248</td>
+                    <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#'     #   invalidateLater(1000, session)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">249</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">    return(list(</pre>
+                      <pre class="language-r">#'     #   a &lt;- sample(0:100, 1) # for range</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">250</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">      state = cur_state,</pre>
+                      <pre class="language-r">#'     #   b &lt;- sample(0:100, 1)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">251</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">      update_state = update_toggle_slider</pre>
+                      <pre class="language-r">#'     #   isolate(do.call(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">252</td>
+                    <td class="num">61</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ))</pre>
+                      <pre class="language-r">#'     #     range_value$update_state,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">253</td>
+                    <td class="num">62</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">254</td>
+                    <td class="num">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'     #       value = sort(sample(0:100, if (is_dichotomous_slider) 2 else 1)),</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/utils-arbitrary_lines.r" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' UI module to arbitrary lines</pre>
+                      <pre class="language-r">#'     #       min = min(a, b), max = max(a, b),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">65</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     #       step = sample(1:20, 1) / 10</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">66</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' UI module to input either horizontal or vertical lines to a plot via comma separated values</pre>
+                      <pre class="language-r">#'     #     )[sample(1:4, sample(4, 1))] # select up to four fields from the list</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">67</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     #   ))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param id (`character(1)`)\cr</pre>
+                      <pre class="language-r">#'     # })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">69</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  defining namespace of the `shiny` module.</pre>
+                      <pre class="language-r">#'   }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">70</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param line_arb (`numeric`)\cr</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">71</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  default values for the `textInput` defining values of arbitrary lines</pre>
+                      <pre class="language-r">#' shinyApp(app$ui, app$server) %&gt;% invisible()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">72</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param line_arb_color (`character`)\cr</pre>
+                      <pre class="language-r">toggle_slider_ui &lt;- function(id,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">73</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  default values for the `textInput` defining colors of arbitrary lines</pre>
+                      <pre class="language-r">                             label,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">74</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param line_arb_label (`character`)\cr</pre>
+                      <pre class="language-r">                             min,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">75</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  default values for the `textInput` defining labels of arbitrary lines</pre>
+                      <pre class="language-r">                             max,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">76</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param title (`character(1)`)\cr</pre>
+                      <pre class="language-r">                             value,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">77</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  title of the arbitrary lines input. The default is "Arbitrary Horizontal Lines".</pre>
+                      <pre class="language-r">                             slider_initially = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">78</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return (`shiny.tag`) an input to define values, colors and labels for arbitrary</pre>
+                      <pre class="language-r">                             step_slider = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">79</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' straight lines.</pre>
+                      <pre class="language-r">                             step_numeric = step_slider,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">80</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">                             width = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">81</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">ui_arbitrary_lines &lt;- function(id, line_arb, line_arb_label, line_arb_color, title = "Arbitrary Horizontal Lines:") {</pre>
+                      <pre class="language-r">                             ...) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">19</td>
+                    <td class="num">82</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ns &lt;- NS(id)</pre>
+                      <pre class="language-r">  checkmate::assert_number(min)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">20</td>
+                    <td class="num">83</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  div(</pre>
+                      <pre class="language-r">  checkmate::assert_number(max)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">21</td>
+                    <td class="num">84</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tags$b(title),</pre>
+                      <pre class="language-r">  checkmate::assert_flag(slider_initially)</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">85</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  checkmate::assert_number(step_slider, null.ok = TRUE)</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">86</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  checkmate::assert_number(step_numeric, null.ok = TRUE)</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">87</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  checkmate::assert_numeric(value, min.len = 1, max.len = 2)</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">88</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  if (is.null(step_numeric)) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">89</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    step_numeric &lt;- NA # numericInput does not support 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">  }</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>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">92</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  show_or_not &lt;- function(show) if (show) identity else shinyjs::hidden</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">22</td>
+                    <td class="num">93</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    textInput(</pre>
+                      <pre class="language-r">  ns &lt;- NS(id)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">23</td>
+                    <td class="num">94</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ns("line_arb"),</pre>
+                      <pre class="language-r">  div(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">24</td>
+                    <td class="num">95</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      div(</pre>
+                      <pre class="language-r">    include_css_files("custom"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">25</td>
+                    <td class="num">96</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        class = "teal-tooltip",</pre>
+                      <pre class="language-r">    shinyjs::useShinyjs(),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">26</td>
+                    <td class="num">97</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        tagList(</pre>
+                      <pre class="language-r">    div(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">27</td>
+                    <td class="num">98</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "Value:",</pre>
+                      <pre class="language-r">      class = "flex justify-between mb-1",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">28</td>
+                    <td class="num">99</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          icon("circle-info"),</pre>
+                      <pre class="language-r">      tags$span(tags$strong(label)),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">29</td>
+                    <td class="num">100</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          span(</pre>
+                      <pre class="language-r">      actionButton(ns("toggle"), "Toggle", class = "btn-xs")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">30</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">            class = "tooltiptext",</pre>
+                      <pre class="language-r">    ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">31</td>
+                    <td class="num">102</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            "For multiple lines, supply a comma separated list of values."</pre>
+                      <pre class="language-r">    show_or_not(slider_initially)(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">32</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">103</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">33</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">104</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">        ns("slider"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">34</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">        label = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">35</td>
+                    <td class="num">106</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      value = paste(line_arb, collapse = ", ")</pre>
+                      <pre class="language-r">        min = min,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">36</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">        max = max,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">37</td>
+                    <td class="num">108</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    textInput(ns("line_arb_label"), label = "Label:", value = paste(line_arb_label, collapse = ", ")),</pre>
+                      <pre class="language-r">        value = value,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">38</td>
+                    <td class="num">109</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    textInput(ns("line_arb_color"), label = "Color:", value = paste(line_arb_color, collapse = ", "))</pre>
+                      <pre class="language-r">        step = step_slider,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">39</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">        width = width,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">111</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">        ...</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">112</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Server module to arbitrary lines</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</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">43</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">#' Server to validate and transform the comma separated values into vectors of values</pre>
+                      <pre class="language-r">    show_or_not(!slider_initially)(tags$span(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">44</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">115</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' to be passed into goshawk functions.</pre>
+                      <pre class="language-r">      id = ns("numeric_view"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">45</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">116</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams shiny::moduleServer</pre>
+                      <pre class="language-r">      if (length(value) == 1) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">46</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">117</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return (`reactive`) returning a `list` containing `line_arb`, `line_arb_color`,</pre>
+                      <pre class="language-r">        numericInput(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">47</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">118</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  `line_arb_label` which are validated and could be passed to `goshawk` plot functions.</pre>
+                      <pre class="language-r">          ns("value"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">48</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">119</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">          label = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">49</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">srv_arbitrary_lines &lt;- function(id) {</pre>
+                      <pre class="language-r">          min = min,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">50</td>
+                    <td class="num">121</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">          max = max,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">51</td>
+                    <td class="num">122</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    comma_sep_to_values &lt;- function(values, wrapper_fun = trimws) {</pre>
+                      <pre class="language-r">          value = value[[1]],</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">52</td>
+                    <td class="num">123</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      vals &lt;- strsplit(values, "\\s{0,},\\s{0,}")[[1]]</pre>
+                      <pre class="language-r">          step = step_numeric,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">53</td>
+                    <td class="num">124</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      suppressWarnings(wrapper_fun(vals))</pre>
+                      <pre class="language-r">          width = width</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">54</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">55</td>
+                    <td class="num">126</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">56</td>
+                    <td class="num">127</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    iv_r &lt;- reactive({</pre>
+                      <pre class="language-r">        div(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">57</td>
+                    <td class="num">128</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv &lt;- shinyvalidate::InputValidator$new()</pre>
+                      <pre class="language-r">          numericInput(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">58</td>
+                    <td class="num">129</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv$add_rule("line_arb", shinyvalidate::sv_optional())</pre>
+                      <pre class="language-r">            ns("value_low"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">59</td>
+                    <td class="num">130</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv$add_rule(</pre>
+                      <pre class="language-r">            "From:",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">60</td>
+                    <td class="num">131</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "line_arb",</pre>
+                      <pre class="language-r">            min = min,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">61</td>
+                    <td class="num">132</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ~ if (any(is.na(comma_sep_to_values(., as.numeric)))) {</pre>
+                      <pre class="language-r">            max = max,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">62</td>
+                    <td class="num">133</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "Arbitrary lines values should be a comma separated list of numbers"</pre>
+                      <pre class="language-r">            value = value[[1]],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">63</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">134</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">            step = step_numeric,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">64</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">            width = width</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">65</td>
+                    <td class="num">136</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          ),</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">137</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          numericInput(</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">138</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            ns("value_high"),</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">139</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            "- to:",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">66</td>
+                    <td class="num">140</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv_color &lt;- shinyvalidate::InputValidator$new()</pre>
+                      <pre class="language-r">            min = min,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">67</td>
+                    <td class="num">141</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv_color$condition(~ length(line_arb()) != 0)</pre>
+                      <pre class="language-r">            max = max,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">68</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"></pre>
+                      <pre class="language-r">            value = value[[2]],</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">69</td>
+                    <td class="num">143</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv_color$add_rule("line_arb_color", shinyvalidate::sv_optional())</pre>
+                      <pre class="language-r">            step = step_numeric,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">70</td>
+                    <td class="num">144</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv_color$add_rule(</pre>
+                      <pre class="language-r">            width = width</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">71</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">        "line_arb_color",</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">72</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">146</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ~ if (!length(comma_sep_to_values(.)) %in% c(1, length(line_arb()))) {</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">147</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          sprintf(</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">74</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">            "Line input error: number of colors should be equal to 1, the number of lines (%d) or left blank for 'red'",</pre>
+                      <pre class="language-r">    ))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">75</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">149</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            length(line_arb())</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">76</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">77</td>
+                    <td class="num">151</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">78</td>
+                    <td class="num">152</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r"># is_dichotomous_slider `logical` whether it is a dichotomous slider or normal slider</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">153</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">toggle_slider_server &lt;- function(id, is_dichotomous_slider = TRUE) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">79</td>
+                    <td class="num">154</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv_color$add_rule("line_arb_color", ~ if (!check_color(comma_sep_to_values(.))) {</pre>
+                      <pre class="language-r">  moduleServer(id, function(input, output, session) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">80</td>
+                    <td class="num">155</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "The line colors entered cannot be converted to colors in R, please check your spelling"</pre>
+                      <pre class="language-r">    checkmate::assert_flag(is_dichotomous_slider)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">81</td>
+                    <td class="num">156</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      })</pre>
+                      <pre class="language-r">    # model view controller: cur_state is the model, the sliderInput and numericInputs are two views/controllers</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">157</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    # additionally, the module returns the cur_state, so it can be controlled from that end as well</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">82</td>
+                    <td class="num">158</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv$add_validator(iv_color)</pre>
+                      <pre class="language-r">    cur_state &lt;- reactiveVal(NULL) # model, can contain min, max, value etc.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">83</td>
+                    <td class="num">159</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">84</td>
+                    <td class="num">160</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">85</td>
+                    <td class="num">161</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv_label &lt;- shinyvalidate::InputValidator$new()</pre>
+                      <pre class="language-r">    iv_r &lt;- reactive({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">86</td>
+                    <td class="num">162</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv_label$condition(~ length(line_arb()) != 0)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">87</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      iv &lt;- shinyvalidate::InputValidator$new()</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">88</td>
+                    <td class="num">163</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv_label$add_rule("line_arb_label", shinyvalidate::sv_optional())</pre>
+                      <pre class="language-r">      iv$condition(~ input$toggle %% 2 == 1)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">89</td>
+                    <td class="num">164</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv_label$add_rule(</pre>
+                      <pre class="language-r">      iv$add_rule("value_low", shinyvalidate::sv_required("A 'from' value is required - a default is used instead"))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">90</td>
+                    <td class="num">165</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "line_arb_label",</pre>
+                      <pre class="language-r">      iv$add_rule("value_high", shinyvalidate::sv_required("A 'to' value is required - a default is used instead)"))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">91</td>
+                    <td class="num">166</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ~ if (!length(comma_sep_to_values(.)) %in% c(1, length(line_arb()))) {</pre>
+                      <pre class="language-r">      iv$add_rule(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">92</td>
+                    <td class="num">167</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          sprintf(</pre>
+                      <pre class="language-r">        "value_high",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">93</td>
+                    <td class="num">168</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            "Line input error: number of labels should be equal to 1, the number of lines (%d) or left blank",</pre>
+                      <pre class="language-r">        ~ if (!is.na(input$value_low) &amp;&amp; (.) &lt; input$value_low) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">94</td>
+                    <td class="num">169</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            length(line_arb())</pre>
+                      <pre class="language-r">          "'From' value should be lower than 'to' value - axis has been flipped"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">95</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">96</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">97</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">      )</pre>
+                      <pre class="language-r">      iv$add_rule(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">98</td>
+                    <td class="num">173</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv$add_validator(iv_label)</pre>
+                      <pre class="language-r">        "value_low",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">99</td>
+                    <td class="num">174</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      iv</pre>
+                      <pre class="language-r">        ~ if (!is.na(input$value_high) &amp;&amp; (.) &gt; input$value_high) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">100</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">175</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">          "'To' value should be greater than 'from' value - axis has been flipped"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">101</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">102</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">    line_arb &lt;- reactive({</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">103</td>
+                    <td class="num">178</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      req(!is.null(input$line_arb))</pre>
+                      <pre class="language-r">      iv$enable()</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">104</td>
+                    <td class="num">179</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      comma_sep_to_values(input$line_arb, as.numeric)</pre>
+                      <pre class="language-r">      iv</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">105</td>
+                    <td class="num">180</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">106</td>
+                    <td class="num">181</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">107</td>
+                    <td class="num">182</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    line_arb_label &lt;- reactive({</pre>
+                      <pre class="language-r">    set_state &lt;- function(new_state) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">108</td>
+                    <td class="num">183</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (length(line_arb()) == 0) {</pre>
+                      <pre class="language-r">      stopifnot(all(names(new_state) %in% c("min", "max", "step", "value")))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">109</td>
+                    <td class="num">184</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        return(character(0))</pre>
+                      <pre class="language-r">      iv_r()$is_valid()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">110</td>
+                    <td class="num">185</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">      # when value does not fall into min, max range, it will automatically get truncated</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">186</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">187</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      # only update provided components, do not discasrd others</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">111</td>
+                    <td class="num">188</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      val &lt;- comma_sep_to_values(input$line_arb_label)</pre>
+                      <pre class="language-r">      old_state &lt;- cur_state()</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">112</td>
+                    <td class="num">189</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (length(val) == 0) {</pre>
+                      <pre class="language-r">      new_state &lt;- c(new_state, old_state[!names(old_state) %in% names(new_state)])</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">113</td>
+                    <td class="num">190</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        val &lt;- ""</pre>
+                      <pre class="language-r">      new_state &lt;- new_state[sort(names(new_state))]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">114</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">      if (!setequal(new_state, cur_state())) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">115</td>
+                    <td class="num">192</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      val</pre>
+                      <pre class="language-r">        cur_state(new_state)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">116</td>
+                    <td class="num">193</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">117</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="missed">
-                    <td class="num">118</td>
+                    <td class="num">195</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    line_arb_color &lt;- reactive({</pre>
+                      <pre class="language-r">    observeEvent(input$slider, {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">119</td>
+                    <td class="num">196</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (length(line_arb()) == 0) {</pre>
+                      <pre class="language-r">      set_state(list(value = input$slider))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">120</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">        return(character(0))</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">121</td>
+                    <td class="num">198</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">    # two values for range (dichotomous slider)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">122</td>
+                    <td class="num">199</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      val &lt;- comma_sep_to_values(input$line_arb_color)</pre>
+                      <pre class="language-r">    observeEvent(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">123</td>
+                    <td class="num">200</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (length(val) == 0 || all(val == "")) {</pre>
+                      <pre class="language-r">      eventExpr = { # nolint</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">124</td>
+                    <td class="num">201</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        val &lt;- "red"</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">125</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">        input$value_low</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">126</td>
+                    <td class="num">202</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      val</pre>
+                      <pre class="language-r">        input$value_high</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">127</td>
+                    <td class="num">203</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">      },</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">128</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">      handlerExpr = { # nolint</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">129</td>
+                    <td class="num">205</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    return(</pre>
+                      <pre class="language-r">        set_state(list(value = c(input$value_low, input$value_high)))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">130</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">      reactive(</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">207</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        list(</pre>
+                      <pre class="language-r">    )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">208</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    # one value for value in range</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">132</td>
+                    <td class="num">209</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          iv_r = iv_r,</pre>
+                      <pre class="language-r">    observeEvent(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">133</td>
+                    <td class="num">210</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          line_arb = line_arb(),</pre>
+                      <pre class="language-r">      input$value,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">134</td>
+                    <td class="num">211</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          line_arb_color = line_arb_color(),</pre>
+                      <pre class="language-r">      handlerExpr = { # nolint</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">135</td>
+                    <td class="num">212</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          line_arb_label = line_arb_label()</pre>
+                      <pre class="language-r">        set_state(list(value = input$value))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">136</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">137</td>
+                    <td class="num">214</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">138</td>
+                    <td class="num">215</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">139</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">    update_widgets &lt;- function() {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">140</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">      state_slider &lt;- cur_state()</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">141</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">      req(length(state_slider) &gt; 0) # update will otherwise not work</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">142</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">check_color &lt;- function(col) {</pre>
+                      <pre class="language-r">      state_low &lt;- state_slider</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">143</td>
+                    <td class="num">220</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  tryCatch(</pre>
+                      <pre class="language-r">      state_high &lt;- state_slider</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">144</td>
+                    <td class="num">221</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    is.matrix(grDevices::col2rgb(col)),</pre>
+                      <pre class="language-r">      if (!is.null(state_slider$value) &amp;&amp; (length(state_slider$value) &gt; 1)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">145</td>
+                    <td class="num">222</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    error = function(e) FALSE</pre>
+                      <pre class="language-r">        state_low$value &lt;- state_low$value[[1]]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">146</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">        state_high$value &lt;- state_high$value[[2]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">147</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">148</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 (input$toggle %% 2 == 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">149</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"># to check the arbitrary line arguments</pre>
+                      <pre class="language-r">        do.call(updateSliderInput, c(list(session, "slider"), state_slider))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">150</td>
+                    <td class="num">227</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">validate_line_arb_arg &lt;- function(line_arb, line_arb_color, line_arb_label) {</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">151</td>
+                    <td class="num">228</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(line_arb)</pre>
+                      <pre class="language-r">        if (length(state_slider$value) &gt; 1) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">152</td>
+                    <td class="num">229</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (length(line_arb) &gt; 0) {</pre>
+                      <pre class="language-r">          do.call(updateNumericInput, c(list(session, "value_low"), state_low))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">153</td>
+                    <td class="num">230</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert(</pre>
+                      <pre class="language-r">          do.call(updateNumericInput, c(list(session, "value_high"), state_high))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">154</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">      checkmate::check_string(line_arb_color),</pre>
+                      <pre class="language-r">        } else {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">155</td>
+                    <td class="num">232</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::check_character(line_arb_color, len = length(line_arb))</pre>
+                      <pre class="language-r">          do.call(updateNumericInput, c(list(session, "value"), state_low))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">156</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">157</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">    checkmate::assert(</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">235</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::check_string(line_arb_label),</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">159</td>
+                    <td class="num">236</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::check_character(line_arb_label, len = length(line_arb))</pre>
+                      <pre class="language-r">    observeEvent(input$toggle, {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">160</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">      update_widgets()</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">161</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">      shinyjs::toggle("numeric_view")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">162</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">      shinyjs::toggle("slider")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">163</td>
+                    <td class="num">240</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">164</td>
+                    <td class="num">241</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># to check the variable line arguments</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">165</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">validate_line_vars_arg &lt;- function(line_vars, line_vars_colors, line_vars_labels) {</pre>
+                      <pre class="language-r">    update_toggle_slider &lt;- function(value = NULL, min = NULL, max = NULL, step = NULL) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">166</td>
+                    <td class="num">243</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(line_vars)</pre>
+                      <pre class="language-r">      if (!is.null(value) &amp;&amp; is_dichotomous_slider) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">167</td>
+                    <td class="num">244</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (length(line_vars) &gt; 0) {</pre>
+                      <pre class="language-r">        stopifnot(length(value) == 2)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">168</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">    checkmate::assert(</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">169</td>
+                    <td class="num">246</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::check_string(line_vars_colors),</pre>
+                      <pre class="language-r">      set_state(Filter(Negate(is.null), list(value = value, min = min, max = max, step = step)))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">170</td>
+                    <td class="num">247</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::check_character(line_vars_colors, len = length(line_vars))</pre>
+                      <pre class="language-r">      update_widgets()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">171</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="missed">
-                    <td class="num">172</td>
+                    <td class="num">249</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert(</pre>
+                      <pre class="language-r">    return(list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">173</td>
+                    <td class="num">250</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::check_string(line_vars_labels),</pre>
+                      <pre class="language-r">      state = cur_state,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">174</td>
+                    <td class="num">251</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::check_character(line_vars_labels, len = length(line_vars))</pre>
+                      <pre class="language-r">      update_state = update_toggle_slider</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">175</td>
+                    <td class="num">252</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">    ))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">176</td>
+                    <td class="num">253</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">177</td>
+                    <td class="num">254</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
@@ -32020,14 +31950,14 @@ <h2>teal.goshawk coverage - 0.00%</h2>
                 </tbody>
               </table>
             </div>
-            <div id="R/utils-maptrt.r" class="hidden">
+            <div id="R/utils.R" class="hidden">
               <table class="table-condensed">
                 <tbody>
                   <tr class="never">
                     <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' helper for writing arm mapping and ordering code.</pre>
+                      <pre class="language-r">#' Include `CSS` files from `/inst/css/` package directory to application header</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -32041,780 +31971,850 @@ <h2>teal.goshawk coverage - 0.00%</h2>
                     <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Provides lines of code for left hand side of arm mapping. user must provide right hand side</pre>
+                      <pre class="language-r">#' `system.file` should not be used to access files in other packages, it does</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' not work with `devtools`. Therefore, we redefine this method in each package</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @details SPA configure study specific pre-processing for deploying `goshawk`. writing the code for `ARM` mapping and</pre>
+                      <pre class="language-r">#' as needed. Thus, we do not export this method.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ordering is tedious. this function helps to get that started by providing the left hand side of the</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' mapping and ordering syntax. call the function and then copy and paste the resulting code from the console</pre>
+                      <pre class="language-r">#' @param pattern (`character`) pattern of files to be included</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' into the app.R file.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @return HTML code that includes `CSS` files</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param df_armvar the dataframe and column name containing treatment code. e.g. `ADSL$ARMCD`</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param code controls whether mapping or ordering code is written to console. Valid values: `"M"` and `"O"`.</pre>
+                      <pre class="language-r">include_css_files &lt;- function(pattern = "*") {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">12</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  css_files &lt;- list.files(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">13</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">    system.file("css", package = "teal.goshawk", mustWork = TRUE),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">14</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    pattern = pattern, full.names = TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">16</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  if (length(css_files) == 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">17</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ADSL &lt;- goshawk::rADSL</pre>
+                      <pre class="language-r">    return(NULL)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">19</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # get treatment mapping code</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">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' maptrt(df_armvar = ADSL$ARMCD, code = "M")</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # get treatment ordering code</pre>
+                      <pre class="language-r">plots_per_row_validate_rules &lt;- function(required = TRUE) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">23</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' maptrt(df_armvar = ADSL$ARMCD, code = "O")</pre>
+                      <pre class="language-r">  msg &lt;- "Number of plots per row must be a positive integer"</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">24</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">maptrt &lt;- function(df_armvar, code = c("M", "O")) {</pre>
+                      <pre class="language-r">  shinyvalidate::compose_rules(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">25</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  code &lt;- match.arg(code)</pre>
+                      <pre class="language-r">    if (required) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">26</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      shinyvalidate::sv_required(msg)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # get arm variable</pre>
+                      <pre class="language-r">    } else {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">28</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  trtvar &lt;- strsplit(deparse(substitute(df_armvar)), "[$]")[[1]][2]</pre>
+                      <pre class="language-r">      shinyvalidate::sv_optional()</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">30</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  dftrt &lt;- data.frame(unique(df_armvar)) %&gt;%</pre>
+                      <pre class="language-r">    shinyvalidate::sv_integer(msg),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">31</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(trt_mapping = paste0("\"", unique(df_armvar), "\"", " = \"\",")) %&gt;%</pre>
+                      <pre class="language-r">    shinyvalidate::sv_gt(0, message_fmt = msg)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">32</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(trt_ordering = paste0(eval(trtvar), " == \"", unique(df_armvar), "\"", " ~  ,"))</pre>
+                      <pre class="language-r">  )</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>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">34</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  if (toupper(code) == "M") {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">35</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    print(unname(dftrt["trt_mapping"]), row.names = FALSE)</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">36</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  } else if (toupper(code) == "O") {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">37</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    print(unname(dftrt["trt_ordering"]), row.names = FALSE)</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' Template Function for `TealReportCard` Creation and Customization in `teal.goshawk`</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/utils-templ_ui.r" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">templ_ui_output_datatable &lt;- function(ns) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">2</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  div(</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">3</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    teal.widgets::plot_with_settings_ui(id = ns("plot")),</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">4</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    br(), hr(),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">5</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">    h4("Selected Data Points"),</pre>
+                      <pre class="language-r">#' This function generates a report card with a title,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">6</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">    DT::dataTableOutput(ns("brush_data"))</pre>
+                      <pre class="language-r">#' an optional description, and the option to append the filter state list.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' Additionally, it display selected constraint options.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</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="never">
-                    <td class="num">9</td>
+                    <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @inheritParams teal::report_card_template</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">templ_ui_dataname &lt;- function(dataname) {</pre>
+                      <pre class="language-r">#' @param constraint_list (`list`) a list containing constraint variables, including:</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">11</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">43</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  tags$label(dataname, "Data Settings", class = "text-primary")</pre>
+                      <pre class="language-r">#'   - constraint_var (`character(1)`) the constraint variable name.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'   - constraint_range_min (`numeric(1)`) the minimum constraint range value.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   - constraint_range_max (`numeric(1)`) the maximum constraint range value.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># UI to create params (biomarker, value of PARAMCD) and vars (column, e.g. AVAL column) select fields for x and y</pre>
+                      <pre class="language-r">#' @param constraint_description (`character(1)`)  description of the constraints.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">templ_ui_params_vars &lt;- function(ns,</pre>
+                      <pre class="language-r">#' @param style (`character(1)`)  style of the constraint text block.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 # x</pre>
+                      <pre class="language-r">#'   options: `default`, `verbatim` (default is `default`).</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 xparam_choices = NULL,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 xparam_selected = NULL,</pre>
+                      <pre class="language-r">#' @return (`TealReportCard`) populated with a title, description, and filter state</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 xparam_label = NULL, # biomarker, e.g. ALT</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 xchoices = NULL,</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 xselected = NULL,</pre>
+                      <pre class="language-r">report_card_template_goshawk &lt;- function(title,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 xvar_label = NULL, # variable, e.g. AVAL</pre>
+                      <pre class="language-r">                                         label,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">23</td>
+                    <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 # y</pre>
+                      <pre class="language-r">                                         with_filter,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 yparam_choices = NULL,</pre>
+                      <pre class="language-r">                                         filter_panel_api,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 yparam_selected = NULL,</pre>
+                      <pre class="language-r">                                         constraint_list,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">58</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 yparam_label = NULL, # biomarker, e.g. ALT</pre>
+                      <pre class="language-r">                                         constraint_description = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">59</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 ychoices = NULL,</pre>
+                      <pre class="language-r">                                         style = "default") {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">60</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  checkmate::assert_subset(names(constraint_list), c("constraint_var", "constraint_range_min", "constraint_range_max"))</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">61</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  checkmate::assert_string(constraint_description, null.ok = TRUE)</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">62</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  checkmate::assert_choice(style, c("default", "verbatim"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">28</td>
+                    <td class="num">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 yselected = NULL,</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">64</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">65</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    title = title,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">66</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">67</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">68</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">29</td>
+                    <td class="num">69</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 yvar_label = NULL, # variable, e.g. AVAL</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">70</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">31</td>
+                    <td class="num">71</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.null(xparam_choices) &amp;&amp; !is.null(xchoices) &amp;&amp; !is.null(yparam_choices)) {</pre>
+                      <pre class="language-r">  card$append_text("Selected Options", "header3")</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">72</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  card$append_text(</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">73</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    paste(</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">74</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      formatted_data_constraint(</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">75</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        constraint_list$constraint_var,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">76</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        constraint_list$constraint_range_min,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">77</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        constraint_list$constraint_range_max</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">32</td>
+                    <td class="num">78</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # otherwise, xchoices will appear first without any biomarker to select and this looks odd in the UI</pre>
+                      <pre class="language-r">      ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">33</td>
+                    <td class="num">79</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stop(</pre>
+                      <pre class="language-r">      constraint_description</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>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">34</td>
+                    <td class="num">81</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "You have to specify xparam choices rather than yparamchoices</pre>
+                      <pre class="language-r">    style = style</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">82</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">35</td>
+                    <td class="num">83</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if both xvar and yvar should be values for the same biomarker."</pre>
+                      <pre class="language-r">  card</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">84</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/utils-maptrt.r" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">36</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#' helper for writing arm mapping and ordering code.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</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">38</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">  tagList(</pre>
+                      <pre class="language-r">#' Provides lines of code for left hand side of arm mapping. user must provide right hand side</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">39</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 (!is.null(xparam_choices)) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">40</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">      teal.widgets::optionalSelectInput(</pre>
+                      <pre class="language-r">#' @details SPA configure study specific pre-processing for deploying `goshawk`. writing the code for `ARM` mapping and</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">41</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("xaxis_param"),</pre>
+                      <pre class="language-r">#' ordering is tedious. this function helps to get that started by providing the left hand side of the</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">42</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">7</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        `if`(is.null(xparam_label), "Select an X-Axis Biomarker", xparam_label),</pre>
+                      <pre class="language-r">#' mapping and ordering syntax. call the function and then copy and paste the resulting code from the console</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">43</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">        xparam_choices,</pre>
+                      <pre class="language-r">#' into the app.R file.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">44</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">        `if`(is.null(xparam_selected), xparam_choices[1], xparam_selected),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">45</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">10</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        multiple = FALSE</pre>
+                      <pre class="language-r">#' @param df_armvar the dataframe and column name containing treatment code. e.g. `ADSL$ARMCD`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">46</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 code controls whether mapping or ordering code is written to console. Valid values: `"M"` and `"O"`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">47</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">48</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 (!is.null(xchoices)) {</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">49</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">      teal.widgets::optionalSelectInput(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">50</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">15</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ns("xaxis_var"),</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">51</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`(is.null(xvar_label), "Select an X-Axis Variable", xvar_label),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">52</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">        xchoices, xselected,</pre>
+                      <pre class="language-r">#' ADSL &lt;- goshawk::rADSL</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">53</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">        multiple = multiple</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">54</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#' # get treatment mapping code</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">55</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">#' maptrt(df_armvar = ADSL$ARMCD, code = "M")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">56</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">21</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (!is.null(yparam_choices)) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">57</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">22</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.widgets::optionalSelectInput(</pre>
+                      <pre class="language-r">#' # get treatment ordering code</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">58</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">        ns("yaxis_param"),</pre>
+                      <pre class="language-r">#' maptrt(df_armvar = ADSL$ARMCD, code = "O")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">59</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`(is.null(yparam_label), "Select an Y-Axis Biomarker", yparam_label),</pre>
+                      <pre class="language-r">maptrt &lt;- function(df_armvar, code = c("M", "O")) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">60</td>
+                    <td class="num">25</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        yparam_choices,</pre>
+                      <pre class="language-r">  code &lt;- match.arg(code)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">61</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">        `if`(is.null(yparam_selected), yparam_choices[1], yparam_selected),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">62</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">27</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        multiple = FALSE</pre>
+                      <pre class="language-r">  # get arm variable</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">63</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">28</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">  trtvar &lt;- strsplit(deparse(substitute(df_armvar)), "[$]")[[1]][2]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">64</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">65</td>
+                    <td class="num">30</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (!is.null(ychoices)) {</pre>
+                      <pre class="language-r">  dftrt &lt;- data.frame(unique(df_armvar)) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">66</td>
+                    <td class="num">31</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.widgets::optionalSelectInput(</pre>
+                      <pre class="language-r">    dplyr::mutate(trt_mapping = paste0("\"", unique(df_armvar), "\"", " = \"\",")) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">67</td>
+                    <td class="num">32</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ns("yaxis_var"),</pre>
+                      <pre class="language-r">    dplyr::mutate(trt_ordering = paste0(eval(trtvar), " == \"", unique(df_armvar), "\"", " ~  ,"))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">68</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.null(yvar_label), "Select a Y-Axis Variable", yvar_label),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">69</td>
+                    <td class="num">34</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ychoices, yselected,</pre>
+                      <pre class="language-r">  if (toupper(code) == "M") {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">70</td>
+                    <td class="num">35</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        multiple = multiple</pre>
+                      <pre class="language-r">    print(unname(dftrt["trt_mapping"]), row.names = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">71</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">36</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">  } else if (toupper(code) == "O") {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">72</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">37</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">    print(unname(dftrt["trt_ordering"]), row.names = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">73</td>
+                    <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">74</td>
+                    <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>