Include length check before printing first graph.

Add Pete's new models

app.R

@@ -365,17 +365,18 @@ server <- function(input, output, session) {
   })
   
   output$layer1 <- renderPlotly({
-    plot_ly(.likelihoods$p_ba, y = ~range, color = ~nodeNames, type = "box") %>%
+    if (length(.likelihoods$p_ba)>0) {
-      layout(xaxis = list(zerolinewidth=2)) #%>%
+      plot_ly(.likelihoods$p_ba, y = ~range, color = ~nodeNames, type = "box") %>%
-      #withSpinner()
+        layout(xaxis = list(zerolinewidth=2)) 
-      
+    
+    } 
   })
 
   output$layer2 <- renderPlotly({
     if (.selections$layer>1) {
       plot_ly(.likelihoods$ba_os, y = ~range, color = ~nodeNames, type = "box") %>%
-        layout(xaxis = list(zerolinewidth=2)) #%>%
+        layout(xaxis = list(zerolinewidth=2))
-        #withSpinner()
+     
     }
   })
 
@@ -383,8 +384,8 @@ server <- function(input, output, session) {
     
     if (.selections$layer>2) {
       plot_ly(.likelihoods$os_es, y = ~range, color = ~nodeNames, type = "box") %>%
-        layout(xaxis = list(zerolinewidth=2)) #%>%
+        layout(xaxis = list(zerolinewidth=2)) 
-        #withSpinner()
+   
     }
   })
 }