attempt to control display of errbox #36

statnet · Jul 29, 2015 · 09523c5 · 09523c5
1 parent 9e33ca3
commit 09523c5
Show file tree

Hide file tree

Showing 2 changed files with 14 additions and 3 deletions.
diff --git a/inst/shiny/ui.R b/inst/shiny/ui.R
@@ -687,8 +687,7 @@ fluidRow(
                      column(2, p(textOutput('ninfocentmax')))
                      )
                  ),
-              conditionalPanel(condition = "output.errstate == '1'",
-                               div(class = "error", uiOutput("errbox")))
+              div(class = "error", uiOutput("errbox"))
 
 )
 

diff --git a/inst/shiny/www/busy.js b/inst/shiny/www/busy.js
@@ -12,4 +12,16 @@ setInterval(function(){
 
 
 //setInterval will check if shiny is busy every 100ms
-//if shiny is busy, setTimeout will display div.busy after 1 second (1000ms)
+//if shiny is busy, setTimeout will display div.busy after 1 second (1000ms)
+
+setInterval(function(){
+  if (output.errstate=='1') {
+    setTimeout(function() {
+      if (output.errstate=='1') {
+        $('div.error').show()
+      }
+    }, 1000)
+  } else {
+    $('div.error').hide()
+  }
+}, 100)