Running ‘test-all.R’ [69s/76s]
Running the tests in ‘tests/test-all.R’ failed.
Complete output:
  > library(testthat,quietly=TRUE)
  > 
  > test_check("growcurves")
  Loading required package: growcurves
  Loading required package: Rcpp
  [1] "Your chosen set of treatment base distributions  = car"
  ── 1. Error: ddp function returns correct objects under car prior construction (
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: ddpEffectsplot(DDP) at testthat/test-ddpgrow.R:49
  2: print(p.t)
  3: print.ggplot(p.t)
  4: ggplot_gtable(data)
  5: ggplot_gtable.ggplot_built(data)
  6: layout$render(geom_grobs, data, theme, plot$labels)
  7: f(..., self = self)
  8: 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)
  9: f(...)
  10: render_strips(structure(labels_df, type = "rows"), structure(labels_df, type = "cols"), 
         params$labeller, theme)
  11: build_strip(x, labeller, theme, TRUE)
  12: ggstrip(grobs, theme, element, gp, horizontal, clip = "on")
  13: Summary.unit(structure(c(4.4, 4.4), unit = 8L, class = c("margin", "unit")), na.rm = FALSE)
  
  [1] "Your chosen set of treatment base distributions  = mvn"
  ── 2. Error: ddp function returns correct objects under mvn prior construction (
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: ddpEffectsplot(DDP, trts.plot = "num_of_sessions") at testthat/test-ddpgrow.R:81
  2: print(p.t)
  3: print.ggplot(p.t)
  4: ggplot_gtable(data)
  5: ggplot_gtable.ggplot_built(data)
  6: layout$render(geom_grobs, data, theme, plot$labels)
  7: f(..., self = self)
  8: 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)
  9: f(...)
  10: render_strips(structure(labels_df, type = "rows"), structure(labels_df, type = "cols"), 
         params$labeller, theme)
  11: build_strip(x, labeller, theme, TRUE)
  12: ggstrip(grobs, theme, element, gp, horizontal, clip = "on")
  13: Summary.unit(structure(c(4.4, 4.4), unit = 8L, class = c("margin", "unit")), na.rm = FALSE)
  
  [1] "Your chosen set of treatment base distributions  = ind"
  ── 3. Error: ddp function returns correct objects under ind prior construction (
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: ddpEffectsplot(DDP, trts.plot = "num_of_sessions") at testthat/test-ddpgrow.R:114
  2: print(p.t)
  3: print.ggplot(p.t)
  4: ggplot_gtable(data)
  5: ggplot_gtable.ggplot_built(data)
  6: layout$render(geom_grobs, data, theme, plot$labels)
  7: f(..., self = self)
  8: 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)
  9: f(...)
  10: render_strips(structure(labels_df, type = "rows"), structure(labels_df, type = "cols"), 
         params$labeller, theme)
  11: build_strip(x, labeller, theme, TRUE)
  12: ggstrip(grobs, theme, element, gp, horizontal, clip = "on")
  13: Summary.unit(structure(c(4.4, 4.4), unit = 8L, class = c("margin", "unit")), na.rm = FALSE)
  
  [1] "Your chosen option = dp"
  [1] "Your chosen option = lgm"
  [1] "Your chosen option = dp"
  [1] "Your chosen option = mmi for multivariate MM effects"
  [1] "Your chosen option = mmcar for multivariate MM effects"
  [1] "Your chosen option = mmcar"
  [1] "Your chosen option = mmigrp"
  [1] "Your chosen option = mmi"
  [1] "Your chosen set of MM term priors  = mmi mmcar mmi mmcar"
  [1] "Your chosen option = mmcar"
  [1] "Your chosen set of MM term priors  = mmi mmcar mmi mmcar"
  ── 4. Error: effectsplot returns plot object when plotting specific MM terms (@t
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: effectsplot(objects = run.objects, mm.terms = mm.terms, prior.labs = prior.labs, 
         axis.labs = axis.labs) at testthat/test-effectsplot.R:40
  2: print(p.term)
  3: print.ggplot(p.term)
  4: ggplot_gtable(data)
  5: ggplot_gtable.ggplot_built(data)
  6: layout$render(geom_grobs, data, theme, plot$labels)
  7: f(..., self = self)
  8: 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)
  9: f(...)
  10: render_strips(structure(labels_df, type = "rows"), structure(labels_df, type = "cols"), 
         params$labeller, theme)
  11: build_strip(x, labeller, theme, TRUE)
  12: ggstrip(grobs, theme, element, gp, horizontal, clip = "on")
  13: Summary.unit(structure(c(4.4, 4.4), unit = 8L, class = c("margin", "unit")), na.rm = FALSE)
  
  [1] "Your chosen set of MM term priors  = mmi mmcar mmi mmcar"
  [1] "Your chosen set of MM term priors  = mmi mmi mmi mmi"
  ── 5. Error: effectsplot returns plot object when plotting ALL terms (@test-effe
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: effectsplot(objects = run.objects, mm.terms = mm.terms, prior.labs = prior.labs, 
         axis.labs = axis.labs) at testthat/test-effectsplot.R:60
  2: print(p.term)
  3: print.ggplot(p.term)
  4: ggplot_gtable(data)
  5: ggplot_gtable.ggplot_built(data)
  6: layout$render(geom_grobs, data, theme, plot$labels)
  7: f(..., self = self)
  8: 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)
  9: f(...)
  10: render_strips(structure(labels_df, type = "rows"), structure(labels_df, type = "cols"), 
         params$labeller, theme)
  11: build_strip(x, labeller, theme, TRUE)
  12: ggstrip(grobs, theme, element, gp, horizontal, clip = "on")
  13: Summary.unit(structure(c(4.4, 4.4), unit = 8L, class = c("margin", "unit")), na.rm = FALSE)
  
  [1] "Your chosen option = dp"
  [1] "Your chosen option = lgm"
  ── 6. Error: growplot returns plot object (@test-growplot.R#26)  ───────────────
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: growplot(object = DP, compare.objects = list(LGM = LGM), subjects.plot = subjects.plot, 
         main.label = "DP") at testthat/test-growplot.R:26
  2: print(p.gctrt)
  3: print.ggplot(p.gctrt)
  4: ggplot_gtable(data)
  5: ggplot_gtable.ggplot_built(data)
  6: layout$render(geom_grobs, data, theme, plot$labels)
  7: f(..., self = self)
  8: 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)
  9: f(...)
  10: render_strips(structure(labels_df, type = "rows"), structure(labels_df, type = "cols"), 
         params$labeller, theme)
  11: build_strip(x, labeller, theme, TRUE)
  12: ggstrip(grobs, theme, element, gp, horizontal, clip = "on")
  13: Summary.unit(structure(c(4.4, 4.4), unit = 8L, class = c("margin", "unit")), na.rm = FALSE)
  
  [1] "Your chosen option = dp"
  [1] "Your chosen option = lgm"
  ── 7. Error: trtplot returns plot object (@test-trtplot.R#30)  ─────────────────
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: trtplot(run.objects, run.models, trt.labs, time.points, n.thin = 1) at testthat/test-trtplot.R:30
  2: print(p)
  3: print.ggplot(p)
  4: ggplot_gtable(data)
  5: ggplot_gtable.ggplot_built(data)
  6: layout$render(geom_grobs, data, theme, plot$labels)
  7: f(..., self = self)
  8: 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)
  9: f(...)
  10: render_strips(structure(labels_df, type = "rows"), structure(labels_df, type = "cols"), 
         params$labeller, theme)
  11: build_strip(x, labeller, theme, TRUE)
  12: ggstrip(grobs, theme, element, gp, horizontal, clip = "on")
  13: Summary.unit(structure(c(4.4, 4.4), unit = 8L, class = c("margin", "unit")), na.rm = FALSE)
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 188 SKIPPED: 0 FAILED: 7
  1. Error: ddp function returns correct objects under car prior construction (@test-ddpgrow.R#49) 
  2. Error: ddp function returns correct objects under mvn prior construction (@test-ddpgrow.R#81) 
  3. Error: ddp function returns correct objects under ind prior construction (@test-ddpgrow.R#114) 
  4. Error: effectsplot returns plot object when plotting specific MM terms (@test-effectsplot.R#40) 
  5. Error: effectsplot returns plot object when plotting ALL terms (@test-effectsplot.R#60) 
  6. Error: growplot returns plot object (@test-growplot.R#26) 
  7. Error: trtplot returns plot object (@test-trtplot.R#30) 
  
  Error: testthat unit tests failed
  Execution halted