Fix initial message issue with Shiny #69

Signed-off-by: Peter Solymos <[email protected]>
psolymos · Jul 16, 2024 · 0086700 · 0086700
1 parent bf7ec4a
commit 0086700
Show file tree

Hide file tree

Showing 3 changed files with 10 additions and 2 deletions.
diff --git a/NEWS.md b/NEWS.md
@@ -1,3 +1,7 @@
+# Version 1.7-3, July 16, 2024
+
+* Fixed initial message issue with Shiny (#69).
+
 # Version 1.7-2, June 27, 2023
 
 * Documented `.pb_env` environment to address WARNING after CRAN submission.

diff --git a/R/unix/startpb.R b/R/unix/startpb.R
@@ -17,8 +17,10 @@ function(min=0, max=1)
                 initial = control$initial,
                 title = control$title, label = control$label,
                 width = control$gui.width))
-        if (doshiny())
+        if (doshiny()) {
             pb <- shiny::Progress$new(min=min, max=max)
+            setpb(pb, 0)
+        }
     } else {
         pb <- NULL
     }

diff --git a/R/windows/startpb.R b/R/windows/startpb.R
@@ -21,8 +21,10 @@ function(min=0, max=1)
                 initial=control$initial,
                 title = control$title, label = control$label,
                 width = control$gui.width))
-        if (doshiny())
+        if (doshiny()) {
             pb <- shiny::Progress$new(min=min, max=max)
+            setpb(pb, 0)
+        }
     } else {
         pb <- NULL
     }