updateProgressBar: accept HTML in title

dreamRs · Jan 2, 2024 · 1b8dd2d · 1b8dd2d
1 parent 8ad572f
commit 1b8dd2d
Show file tree

Hide file tree

Showing 5 changed files with 7 additions and 6 deletions.
diff --git a/R/progressBars.R b/R/progressBars.R
@@ -188,10 +188,11 @@ updateProgressBar <- function(session = getDefaultReactiveDomain(),
   session$sendCustomMessage(
     type = message,
     message = list(
-      id = id, value = value,
+      id = id,
+      value = value,
       percent = percent,
       total = if (is.null(total)) -1 else total,
-      title = title,
+      title = as.character(title),
       status = status,
       commas = commas,
       unit_mark = unit_mark

diff --git a/R/sweetalert.R b/R/sweetalert.R
@@ -480,7 +480,7 @@ inputSweetAlert <- function(session = getDefaultReactiveDomain(),
 #'       updateProgressBar(
 #'         session = session,
 #'         id = "myprogress",
-#'          value = i*2
+#'         value = i*2
 #'       )
 #'     }
 #'     closeSweetAlert(session = session)

diff --git a/inst/assets/progress-bars/progress-bars-bindings.js b/inst/assets/progress-bars/progress-bars-bindings.js
@@ -32,7 +32,7 @@ Shiny.addCustomMessageHandler("update-progressBar-shinyWidgets", function(
     el.classList.add("progress-bar-" + data.status);
   }
   if (data.title !== null) {
-    elTitle.innerText = data.title;
+    elTitle.innerHTML = data.title;
   }
 });
 
diff --git a/inst/assets/shinyWidgets-bindings.min.js b/inst/assets/shinyWidgets-bindings.min.js
diff --git a/man/progressSweetAlert.Rd b/man/progressSweetAlert.Rd