Running ‘test-all.R’ [4s/5s]
Running the tests in ‘tests/test-all.R’ failed.
Complete output:
  > library(testthat,quietly=TRUE)
  > 
  > 
  > test_check("growfunctions")
  Loading required package: growfunctions
  Loading required package: Rcpp
  Production Interation: 0
  Your additive set of iGMRF precision terms includes type = tr and order = 2
  Production Interation: 0
  Your additive set of iGMRF precision terms includes type = tr and order = 2
  ── 1. Error: gmrfdpgrow() with some missing data and one covariance term returns
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: cluster_plot(object = GMRFDP_m, units_name = "state", units_label = cps$st, single_unit = FALSE, 
         credible = TRUE) at testthat/test-gmrfdpgrow.R:75
  2: suppressWarnings(print(p.c))
  3: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
  4: print(p.c)
  5: print(p.c)
  6: print.ggplot(p.c)
  7: ggplot_gtable(data)
  8: ggplot_gtable.ggplot_built(data)
  9: layout$render(geom_grobs, data, theme, plot$labels)
  10: f(..., self = self)
  11: self$facet$draw_panels(panels, self$layout, self$panel_scales_x, self$panel_scales_y, 
         self$panel_params, self$coord, data, theme, self$facet_params)
  12: f(...)
  13: render_strips(structure(labels_df, type = "rows"), structure(labels_df, type = "cols"), 
         params$labeller, theme)
  14: build_strip(x, labeller, theme, TRUE)
  15: ggstrip(grobs, theme, element, gp, horizontal, clip = "on")
  16: Summary.unit(structure(c(4.4, 4.4), unit = 8L, class = c("margin", "unit")), na.rm = FALSE)
  
  Production Interation: 0
  Your additive set of iGMRF precision terms includes type = tr and order = 2
  Production Interation: 0
  Your additive set of iGMRF precision terms includes type = tr and order = 2
   Your additive set of iGMRF precision terms includes type = sn and order = 3
  ── 2. Error: fit_compare() that plots fit comparison of two objects returns desi
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: cluster_plot(object = GMRFDP_1, units_name = "state", units_label = cps$st, single_unit = FALSE, 
         credible = TRUE) at testthat/test-gmrfdpgrow.R:107
  2: suppressWarnings(print(p.c))
  3: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
  4: print(p.c)
  5: print(p.c)
  6: print.ggplot(p.c)
  7: ggplot_gtable(data)
  8: ggplot_gtable.ggplot_built(data)
  9: layout$render(geom_grobs, data, theme, plot$labels)
  10: f(..., self = self)
  11: self$facet$draw_panels(panels, self$layout, self$panel_scales_x, self$panel_scales_y, 
         self$panel_params, self$coord, data, theme, self$facet_params)
  12: f(...)
  13: render_strips(structure(labels_df, type = "rows"), structure(labels_df, type = "cols"), 
         params$labeller, theme)
  14: build_strip(x, labeller, theme, TRUE)
  15: ggstrip(grobs, theme, element, gp, horizontal, clip = "on")
  16: Summary.unit(structure(c(4.4, 4.4), unit = 8L, class = c("margin", "unit")), na.rm = FALSE)
  
  Your chosen GP covariance terms includes term = rq
  ── 3. Error: gpdpgrow() with no missing data and one covariance term returns cor
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: cluster_plot(object = GPDP, units_name = "state", units_label = cps$st, single_unit = FALSE, 
         credible = TRUE) at testthat/test-gpdpgrow.R:31
  2: suppressWarnings(print(p.c))
  3: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
  4: print(p.c)
  5: print(p.c)
  6: print.ggplot(p.c)
  7: ggplot_gtable(data)
  8: ggplot_gtable.ggplot_built(data)
  9: layout$render(geom_grobs, data, theme, plot$labels)
  10: f(..., self = self)
  11: self$facet$draw_panels(panels, self$layout, self$panel_scales_x, self$panel_scales_y, 
         self$panel_params, self$coord, data, theme, self$facet_params)
  12: f(...)
  13: render_strips(structure(labels_df, type = "rows"), structure(labels_df, type = "cols"), 
         params$labeller, theme)
  14: build_strip(x, labeller, theme, TRUE)
  15: ggstrip(grobs, theme, element, gp, horizontal, clip = "on")
  16: Summary.unit(structure(c(4.4, 4.4), unit = 8L, class = c("margin", "unit")), na.rm = FALSE)
  
  Your chosen GP covariance terms includes term = rq
  Your chosen GP covariance terms includes term = rq
   Your chosen GP covariance terms includes term = sn
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 11 SKIPPED: 0 FAILED: 3
  1. Error: gmrfdpgrow() with some missing data and one covariance term returns correct objects (@test-gmrfdpgrow.R#75) 
  2. Error: fit_compare() that plots fit comparison of two objects returns desired plot. (@test-gmrfdpgrow.R#107) 
  3. Error: gpdpgrow() with no missing data and one covariance term returns correct objects (@test-gpdpgrow.R#31) 
  
  Error: testthat unit tests failed
  Execution halted