Running ‘testthat.R’ [7s/22s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > # This file is part of the standard setup for testthat.
  > # It is recommended that you do not modify it.
  > #
  > # Where should you do additional test configuration?
  > # Learn more about the roles of various files in:
  > # * https://r-pkgs.org/testing-design.html#sec-tests-files-overview
  > # * https://testthat.r-lib.org/articles/special-files.html
  > 
  > library(testthat)
  > library(clockplot)
  > 
  > test_check("clockplot")
  [ FAIL 4 | WARN 0 | SKIP 0 | PASS 13 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-week_chart.R:6:3'): Length of vector is 7 ──────────────────────
  Error in `list2(na.rm = na.rm, just = just, lineend = lineend, linejoin = linejoin, 
      ...)`: Can't use `{{` in a non-quoting function.
  Backtrace:
      ▆
   1. ├─clockplot::week_chart(wv) at test-week_chart.R:6:3
   2. │ └─ggplot2::geom_col(...)
   3. │   ├─ggplot2::layer(...)
   4. │   └─rlang::list2(...)
   5. └─rlang::abort(message = message)
  ── Error ('test-week_chart.R:12:3'): A numeric vector ──────────────────────────
  Error in `list2(na.rm = na.rm, just = just, lineend = lineend, linejoin = linejoin, 
      ...)`: Can't use `{{` in a non-quoting function.
  Backtrace:
      ▆
   1. ├─clockplot::week_chart(wt) at test-week_chart.R:12:3
   2. │ └─ggplot2::geom_col(...)
   3. │   ├─ggplot2::layer(...)
   4. │   └─rlang::list2(...)
   5. └─rlang::abort(message = message)
  ── Failure ('test-week_chart.R:21:5'): week_chart returns ggplot object for numeric vector of length 7 ──
  Expected `{ ... }` to run without any errors.
  i Actually got a <rlang_error> with text:
    Can't use `{{` in a non-quoting function.
  ── Error ('test-week_chart.R:25:3'): week_chart returns ggplot object for numeric vector of length 7 ──
  Error in `eval(code, test_env)`: object 'p' not found
  Backtrace:
      ▆
   1. └─testthat::expect_s3_class(p, "ggplot") at test-week_chart.R:25:3
   2.   └─testthat::quasi_label(enquo(object), arg = "object")
   3.     └─rlang::eval_bare(expr, quo_get_env(quo))
  
  [ FAIL 4 | WARN 0 | SKIP 0 | PASS 13 ]
  Error: Test failures
  Execution halted