Remove preview warning and add info on how to run the bootstrap.

R/shiny-functions.R

@@ -113,7 +113,7 @@ set_message <- function(level, message, object = NULL, append = FALSE) {
     "alert alert-info"
   )
   icon <- if (level == "info") "info-circle" else "exclamation-circle"
-  div <- div(class = classes, list(bsicons::bs_icon(icon, class = "me-2"), message))
+  div <- div(class = classes, role = "alert", list(bsicons::bs_icon(icon, class = "me-2"), message))
   # If we do not have a reactive, return the div
   if (is.null(object)) {
     return(div)

R/ui.R

@@ -238,7 +238,11 @@ ui <- function(request) { page_navbar(
         actionButton("run_boot", "Run bootstrap", class = "btn-primary btn-sm mb-2"),
         actionButton("clear_boot_cache", "Clear cache", class = "btn-warning btn-sm")
       ),
-      div(class = 'alert alert-info', role = 'alert', 'Bootstrap functionality is currently in preview'),
+      set_message(
+        "info",
+        "Results are cached by default. You can clear the cache by pressing the button in the
+        sidebar. Press \"Run bootstrap\" to estimate the bootstrap"
+      ),
       uiOutput('boot_tbl')
     )
   ),