Nonfatal error during fit model with MCMC

[martinamorris]

Also shows up when running MCMC dx

refers to this chunk of code

statnetWeb/inst/shiny/statnetWeb/server.R

Lines 3214 to 3229 in dd1f1cd

	output$diagnostics <- renderPrint({
	if(input$fitButton == 0 | ergm.terms()=="NA"){
	return()
	}
	mod <- input$choosemodel_mcmc
	if(mod=="Current"){
	mod <- model1reac()
	} else {
	modn <- as.numeric(substr(mod,6,6))
	mod <- values$modelfits[[modn]]
	}
	isolate(tryCatch(
	mcmc.diagnostics(mod),
	error = function(e) cat("MCMC was not run or MCMC sample was not stored.")))
	})
	outputOptions(output, 'diagnostics', suspendWhenHidden=FALSE)