Running ‘testthat.R’ [3s/4s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(lifelogr)
  > 
  > test_check("lifelogr")
  ── 1. Error: viz_daily functions produce no output (@test_viz_plot.R#38)  ──────
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: expect_output(plot_daily(EX, "steps"), NA) at testthat/test_viz_plot.R:38
  2: quasi_capture(enquo(object), capture_output, label = label)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: capture_output_lines(code, print, width = width)
  5: eval_with_output(code, print = print, width = width)
  6: withr::with_output_sink(temp, withVisible(code))
  7: force(code)
  8: withVisible(code)
  9: eval_bare(get_expr(quo), get_env(quo))
  10: plot_daily(EX, "steps")
  ...
  18: preDraw(x)
  19: preDraw.gTree(x)
  20: pushvpgp(x)
  21: pushgrobvp(x$vp)
  22: pushgrobvp.viewport(x$vp)
  23: pushViewport(vp, recording = FALSE)
  24: lapply(vps, push.vp, recording)
  25: FUN(X[[i]], ...)
  26: push.vp.viewport(X[[i]], ...)
  27: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 2. Error: viz_sleep functions produce no output (@test_viz_plot.R#50)  ──────
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: expect_output(plot_sleep(EX, "by_weekday"), NA) at testthat/test_viz_plot.R:50
  2: quasi_capture(enquo(object), capture_output, label = label)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: capture_output_lines(code, print, width = width)
  5: eval_with_output(code, print = print, width = width)
  6: withr::with_output_sink(temp, withVisible(code))
  7: force(code)
  8: withVisible(code)
  9: eval_bare(get_expr(quo), get_env(quo))
  10: plot_sleep(EX, "by_weekday")
  ...
  27: pushvpgp(x)
  28: pushgrobvp(x$vp)
  29: pushgrobvp.viewport(x$vp)
  30: pushViewport(vp, recording = FALSE)
  31: lapply(vps, push.vp, recording)
  32: FUN(X[[i]], ...)
  33: push.vp.vpTree(X[[i]], ...)
  34: push.vp(vp$parent, recording)
  35: push.vp.viewport(vp$parent, recording)
  36: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 3. Error: viz_intraday functions produce no output (@test_viz_plot.R#62)  ───
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: expect_output(plot_intraday(EX, "bpm"), NA) at testthat/test_viz_plot.R:62
  2: quasi_capture(enquo(object), capture_output, label = label)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: capture_output_lines(code, print, width = width)
  5: eval_with_output(code, print = print, width = width)
  6: withr::with_output_sink(temp, withVisible(code))
  7: force(code)
  8: withVisible(code)
  9: eval_bare(get_expr(quo), get_env(quo))
  10: plot_intraday(EX, "bpm")
  ...
  18: preDraw(x)
  19: preDraw.gTree(x)
  20: pushvpgp(x)
  21: pushgrobvp(x$vp)
  22: pushgrobvp.viewport(x$vp)
  23: pushViewport(vp, recording = FALSE)
  24: lapply(vps, push.vp, recording)
  25: FUN(X[[i]], ...)
  26: push.vp.viewport(X[[i]], ...)
  27: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 39 SKIPPED: 0 FAILED: 3
  1. Error: viz_daily functions produce no output (@test_viz_plot.R#38) 
  2. Error: viz_sleep functions produce no output (@test_viz_plot.R#50) 
  3. Error: viz_intraday functions produce no output (@test_viz_plot.R#62) 
  
  Error: testthat unit tests failed
  Execution halted