Update web app entry point

- Rename 'app' -> 'web'
- Return shiny app object in entry point function

1 files changed, 22 insertions, 0 deletions

diff --git a/inst/web/templates/content/estimation/estimates/add-estimators/seq_bayes.html b/inst/web/templates/content/estimation/estimates/add-estimators/seq_bayes.html
new file mode 100644
index 0000000..028fabc
--- /dev/null
+++ b/inst/web/templates/content/estimation/estimates/add-estimators/seq_bayes.html
@@ -0,0 +1,22 @@
+<div class="row">
+  <!-- Serial interval (mu). -->
+  <div class="col-md">
+    {{ htmlTemplate("templates/content/estimation/estimates/add-estimators/mu.html", id = "seq_bayes") }}
+  </div>
+  <!-- Maximum value of the uniform prior (kappa). -->
+  <div class="col-md mt-2 mt-md-0">
+    <!-- Label and help tooltip. -->
+    <label class="form-label" for="kappa">
+      Maximum prior (&#954;)
+      <sup data-bs-toggle="tooltip" data-bs-placement="right" data-bs-html="true"
+           data-bs-title="The initial maximum belief of <em>R</em><sub>0</sub>. The higher this value, the higher
+                          <em>R</em><sub>0</sub> is believed to be prior to the estimation.">
+        [?]
+      </sup>
+    </label>
+    <!-- Input field. -->
+    <input name="kappa" class="form-control" type="text" placeholder="Default: 20">
+    <!-- Warning text for incorrect values. -->
+    <small id="kappa_warn" class="form-text text-primary shiny-text-output"></small>
+  </div>
+</div>