prevent error in gof comparison when no models are saved

ebey · ebey · commit 451abeb26f75 · 2015-01-28T19:02:40.000-08:00
diff --git a/server.R b/server.R
@@ -2760,7 +2760,7 @@ output$gofplotspace <- renderUI({
 })
 
 output$gofplotcomp <- renderPlot({
-  if(state$gof == 0){
+  if(state$gof == 0 | values$modeltotal == 0){
     return()
   }
   input$gofButton
diff --git a/ui.R b/ui.R
@@ -972,7 +972,7 @@ actionLink('fitright', icon=icon('arrow-right', class='fa-2x'), label=NULL)
                              uiOutput('gofplotspace'),
                              downloadButton('gofplotdownload', label = 'Download Plots')))
                     ),
-           tabPanel("Compare Models",align="center",
+           tabPanel("Compare Saved Models",align="center",
                     uiOutput('gofplotcompspace'),
                     fluidRow(align="left",
                              downloadButton('gofplotcompdownload', 

Original file line number	Diff line number	Diff line change
`@@ -2760,7 +2760,7 @@ output$gofplotspace <- renderUI({`
`2760`	`2760`	`})`
`2761`	`2761`
`2762`	`2762`	`output$gofplotcomp <- renderPlot({`
`2763`		`- if(state$gof == 0){`
	`2763`	`+ if(state$gof == 0 \| values$modeltotal == 0){`
`2764`	`2764`	`return()`
`2765`	`2765`	`}`
`2766`	`2766`	`input$gofButton`