Running ‘testthat.R’ [30s/32s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(xpose)
  Loading required package: ggplot2
  
  Attaching package: 'xpose'
  
  The following object is masked from 'package:stats':
  
      filter
  
  > 
  > test_check("xpose")
  ── 1. Error: warnings and errors are properly returned (@test-print_xpose_plots.
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: expect_warning(print(p1, page = 2), regexp = "Faceting not set") at testthat/test-print_xpose_plots.R:19
  2: quasi_capture(enquo(object), capture_warnings, label = label)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: withCallingHandlers(code, warning = function(condition) {
         out$push(condition)
         invokeRestart("muffleWarning")
     })
  5: eval_bare(get_expr(quo), get_env(quo))
  6: print(p1, page = 2)
  7: print.xpose_plot(p1, page = 2)
  8: x %>% paginate(page_2_draw = 1, page_tot = 1) %>% print.ggplot(...)
  9: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  10: eval(quote(`_fseq`(`_lhs`)), env, env)
  ...
  19: layout$render(geom_grobs, data, theme, plot$labels)
  20: f(..., self = self)
  21: 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)
  22: f(...)
  23: coord$render_axis_h(range, theme)
  24: f(...)
  25: render_axis(panel_params, arrange[2], "x", "bottom", theme)
  26: guide_axis(panel_params[[paste0(scale, ".major")]], panel_params[[paste0(scale, ".labels")]], 
         position, theme)
  27: Ops.unit(one, theme$axis.ticks.length)
  28: Ops.unit(e2)
  
  ── 2. Error: common graphical device work properly (@test-xpose_save.R#45)  ────
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: xpose_save(plot = plot, file = paths_2[1]) at testthat/test-xpose_save.R:45
  2: ggsave(plot = plot, filename = file, path = dir, device = device, width = width, 
         height = height, units = units, dpi = dpi, ...)
  3: grid.draw(plot)
  4: grid.draw.ggplot(plot)
  5: print(x)
  6: print.xpose_plot(x)
  7: x %>% paginate(page_2_draw = 1, page_tot = 1) %>% print.ggplot(...)
  8: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  9: eval(quote(`_fseq`(`_lhs`)), env, env)
  10: eval(quote(`_fseq`(`_lhs`)), env, env)
  ...
  18: layout$render(geom_grobs, data, theme, plot$labels)
  19: f(..., self = self)
  20: 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)
  21: f(...)
  22: coord$render_axis_h(range, theme)
  23: f(...)
  24: render_axis(panel_params, arrange[2], "x", "bottom", theme)
  25: guide_axis(panel_params[[paste0(scale, ".major")]], panel_params[[paste0(scale, ".labels")]], 
         position, theme)
  26: Ops.unit(one, theme$axis.ticks.length)
  27: Ops.unit(e2)
  
  ── 3. Error: template filenames and auto file extension work properly (@test-xpo
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: xpose_save(plot = plot, file = "@run_@plotfun", dir = tempdir(), device = "pdf") at testthat/test-xpose_save.R:67
  2: ggsave(plot = plot, filename = file, path = dir, device = device, width = width, 
         height = height, units = units, dpi = dpi, ...)
  3: grid.draw(plot)
  4: grid.draw.ggplot(plot)
  5: print(x)
  6: print.xpose_plot(x)
  7: x %>% paginate(page_2_draw = 1, page_tot = 1) %>% print.ggplot(...)
  8: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  9: eval(quote(`_fseq`(`_lhs`)), env, env)
  10: eval(quote(`_fseq`(`_lhs`)), env, env)
  ...
  18: layout$render(geom_grobs, data, theme, plot$labels)
  19: f(..., self = self)
  20: 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)
  21: f(...)
  22: coord$render_axis_h(range, theme)
  23: f(...)
  24: render_axis(panel_params, arrange[2], "x", "bottom", theme)
  25: guide_axis(panel_params[[paste0(scale, ".major")]], panel_params[[paste0(scale, ".labels")]], 
         position, theme)
  26: Ops.unit(one, theme$axis.ticks.length)
  27: Ops.unit(e2)
  
  ── 4. Error: mutlitple pages are properly saved (@test-xpose_save.R#80)  ───────
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: xpose_save(plot = plot_multiple, file = "@run_@plotfun", dir = tempdir(), device = "pdf") at testthat/test-xpose_save.R:80
  2: ggsave(plot = plot, filename = file, path = dir, device = device, width = width, 
         height = height, units = units, dpi = dpi, ...)
  3: grid.draw(plot)
  4: grid.draw.ggplot(plot)
  5: print(x)
  6: print.xpose_plot(x)
  7: x %>% paginate(page_2_draw[p], page_tot) %>% print.ggplot(...)
  8: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  9: eval(quote(`_fseq`(`_lhs`)), env, env)
  10: eval(quote(`_fseq`(`_lhs`)), env, env)
  ...
  22: FacetWrap$draw_panels(panels, layout, x_scales, y_scales, ranges, coord, data, theme, 
         params)
  23: f(...)
  24: render_axes(ranges, ranges, coord, theme, transpose = TRUE)
  25: lapply(x, coord$render_axis_h, theme)
  26: FUN(X[[i]], ...)
  27: f(...)
  28: render_axis(panel_params, arrange[2], "x", "bottom", theme)
  29: guide_axis(panel_params[[paste0(scale, ".major")]], panel_params[[paste0(scale, ".labels")]], 
         position, theme)
  30: Ops.unit(one, theme$axis.ticks.length)
  31: Ops.unit(e2)
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 515 SKIPPED: 6 FAILED: 4
  1. Error: warnings and errors are properly returned (@test-print_xpose_plots.R#19) 
  2. Error: common graphical device work properly (@test-xpose_save.R#45) 
  3. Error: template filenames and auto file extension work properly (@test-xpose_save.R#67) 
  4. Error: mutlitple pages are properly saved (@test-xpose_save.R#80) 
  
  Error: testthat unit tests failed
  Execution halted