Running ‘testthat.R’ [57s/218s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(iNZightTS)
  
  Attaching package: 'iNZightTS'
  
  The following object is masked from 'package:stats':
  
      decompose
  
  > 
  > test_check("iNZightTS")
  [ FAIL 3 | WARN 2 | SKIP 1 | PASS 80 ]
  
  ══ Skipped tests (1) ═══════════════════════════════════════════════════════════
  • On CRAN (1): 'test_interaction.R:3:1'
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test_plots.R:53:5'): Multi series graph works ───────────────────────
  Error in `FUN(X[[i]], ...)`: Aesthetic must be a one-sided formula, call, name, or constant.
  Backtrace:
       ▆
    1. ├─testthat::expect_is(...) at test_plots.R:53:4
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─base::suppressWarnings(plot(tm, compare = FALSE))
    5. │ └─base::withCallingHandlers(...)
    6. ├─base::plot(tm, compare = FALSE)
    7. └─iNZightTS:::plot.iNZightMTS(tm, compare = FALSE)
    8.   └─iNZightTS:::compareseasons(...)
    9.     ├─ggplot2::geom_path(...)
   10.     │ └─ggplot2::layer(...)
   11.     └─ggplot2::aes_(...)
   12.       └─base::lapply(mapping, as_quosure_aes)
   13.         └─ggplot2 (local) FUN(X[[i]], ...)
   14.           └─cli::cli_abort("Aesthetic must be a one-sided formula, call, name, or constant.")
   15.             └─rlang::abort(...)
  ── Error ('test_submodel.R:41:5'): Decomposition uses sub-portion of the plots (multi) ──
  Error in `FUN(X[[i]], ...)`: Aesthetic must be a one-sided formula, call, name, or constant.
  Backtrace:
       ▆
    1. ├─testthat::expect_warning(...) at test_submodel.R:41:4
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. ├─base::plot(tm, compare = FALSE, model.lim = c(2005, 2009.75))
    7. └─iNZightTS:::plot.iNZightMTS(...)
    8.   └─iNZightTS:::compareseasons(...)
    9.     ├─ggplot2::geom_path(...)
   10.     │ └─ggplot2::layer(...)
   11.     └─ggplot2::aes_(...)
   12.       └─base::lapply(mapping, as_quosure_aes)
   13.         └─ggplot2 (local) FUN(X[[i]], ...)
   14.           └─cli::cli_abort("Aesthetic must be a one-sided formula, call, name, or constant.")
   15.             └─rlang::abort(...)
  ── Error ('test_subset.R:61:5'): Subset of multi series graph works ────────────
  Error in `FUN(X[[i]], ...)`: Aesthetic must be a one-sided formula, call, name, or constant.
  Backtrace:
       ▆
    1. ├─testthat::expect_silent(...) at test_subset.R:61:4
    2. │ └─testthat:::quasi_capture(enquo(object), NULL, evaluate_promise)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ ├─withr::with_output_sink(...)
    5. │   │ │ └─base::force(code)
    6. │   │ ├─base::withCallingHandlers(...)
    7. │   │ └─base::withVisible(code)
    8. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    9. ├─base::plot(tm, compare = FALSE, xlim = c(2000, 2011))
   10. └─iNZightTS:::plot.iNZightMTS(...)
   11.   └─iNZightTS:::compareseasons(...)
   12.     ├─ggplot2::geom_path(...)
   13.     │ └─ggplot2::layer(...)
   14.     └─ggplot2::aes_(...)
   15.       └─base::lapply(mapping, as_quosure_aes)
   16.         └─ggplot2 (local) FUN(X[[i]], ...)
   17.           └─cli::cli_abort("Aesthetic must be a one-sided formula, call, name, or constant.")
   18.             └─rlang::abort(...)
  
  [ FAIL 3 | WARN 2 | SKIP 1 | PASS 80 ]
  Error: Test failures
  Execution halted