change conditional statements so that simulation summary does not change output format until button is clicked

Author: ebey

server.R

@@ -2437,6 +2437,12 @@ output$currentdataset4 <- renderPrint({
   cat(nwname())
 })
 
+output$simnum <- renderText({
+  input$simButton
+  n <- isolate(input$nsims)
+  n
+})
+outputOptions(output, 'simnum', suspendWhenHidden=FALSE)
 
 output$simsummary <- renderPrint({
   if (input$simButton == 0){

ui.R

@@ -996,15 +996,15 @@ url = {http://statnetproject.org}
                                                         label = 'Download Plot'))
                                 ),
                               tabPanel('Simulation Summary',
-                                   conditionalPanel(condition="input.nsims > 1",
+                                   conditionalPanel(condition="output.simnum != 1",
                                                     wellPanel(
                                                       verbatimTextOutput('simsummary'),
                                                       verbatimTextOutput('simcoef'),
                                                       verbatimTextOutput('simstatslabel'),
                                                       verbatimTextOutput('simstats')
                                                       )
                                      ),
-                                   conditionalPanel(condition="input.nsims == 1",
+                                   conditionalPanel(condition="output.simnum == 1",
                                      verbatimTextOutput('simsummary2')
                                      )