update to coef() accessor

Author: martinamorris

inst/shiny/statnetWeb/server.R

@@ -2455,6 +2455,7 @@ output$cugtestdownload <- downloadHandler(
 
 #since the visibility toggles between two states, set the options to
 #not suspend the output when hidden
+# first line was commented out?
 output$mixmxchooser <- renderUI({
   selectInput('mixmx', label='Choose attribute',
               choices = menuattr())
@@ -3170,7 +3171,8 @@ output$diagnosticsplot <- renderPlot({
     modn <- as.numeric(substr(mod,6,6))
     mod <- values$modelfits[[modn]]
   }
-  vpp <- length(mod$coef)
+#  vpp <- length(mod$coef)
+  vpp <- length(coef(mod))
   tryCatch(
     mcmc.diagnostics(mod, vars.per.page = vpp),
     error = function(e) cat("MCMC was not run or MCMC sample was not stored."))
@@ -3187,7 +3189,7 @@ output$mcmcplotdownload <- downloadHandler(
       modn <- as.numeric(substr(mod,6,6))
       mod <- values$modelfits[[modn]]
     }
-    vpp <- length(mod$coef)
+    vpp <- length(coef(mod))
     pdf(file=file, height=vpp*4/3, width=10)
     tryCatch(
       mcmc.diagnostics(model1reac(), vars.per.page = vpp),
@@ -3207,7 +3209,7 @@ output$diagnosticsplotspace <- renderUI({
     modn <- as.numeric(substr(mod,6,6))
     mod <- values$modelfits[[modn]]
   }
-  vpp <- length(mod$coef)
+  vpp <- length(coef(mod))
   plotOutput('diagnosticsplot', height = vpp*400/2)
 })