Running ‘testthat.R’ [10s/11s]
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(NHSRwaitinglist)
  > 
  > test_check("NHSRwaitinglist")
  	NOTE: Please supply a positive integer for the argument n.
  	NOTE: Please supply a positive integer for the argument n.
  	NOTE: Please supply a positive integer for the argument n.
  [ FAIL 8 | WARN 0 | SKIP 8 | PASS 145 ]
  
  ══ Skipped tests (8) ═══════════════════════════════════════════════════════════
  • On CRAN (8): 'test-utils.R:11:3', 'test-utils.R:11:3', 'test-utils.R:11:3',
    'test-utils.R:11:3', 'test-utils.R:29:3', 'test-utils.R:29:3',
    'test-utils.R:29:3', 'test-utils.R:29:3'
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Failure ('test-wl_queue_size.R:46:3'): wl_queue_size computes correct queue size over the period ──
  result$queue_size[1] (`actual`) not equal to 1 (`expected`).
  
    `actual`: 0.0
  `expected`: 1.0
  ── Failure ('test-wl_queue_size.R:47:3'): wl_queue_size computes correct queue size over the period ──
  result$queue_size[4] (`actual`) not equal to 2 (`expected`).
  
    `actual`: 0.0
  `expected`: 2.0
  ── Failure ('test-wl_queue_size.R:59:3'): wl_queue_size handles no removals correctly ──
  all(result$queue_size == c(1, 1, 1, 2, 2, 2, 2, 2, 2, 3)) is not TRUE
  
  `actual`:   FALSE
  `expected`: TRUE 
  ── Failure ('test-wl_queue_size.R:75:3'): wl_queue_size accounts for removals correctly ──
  result$queue_size[7] (`actual`) not equal to 2 (`expected`).
  
    `actual`: 0.0
  `expected`: 2.0
  ── Failure ('test-wl_queue_size.R:76:3'): wl_queue_size accounts for removals correctly ──
  result$queue_size[15] (`actual`) not equal to 1 (`expected`).
  
    `actual`: 0.0
  `expected`: 1.0
  ── Failure ('test-wl_removal_stats.R:27:3'): wl_removal_stats computes removal statistics correctly ──
  result$capacity_cov >= 0 is not TRUE
  
  `actual`:   <NA>
  `expected`: TRUE
  ── Failure ('test-wl_removal_stats.R:37:3'): wl_removal_stats uses the correct default start_date and end_date ──
  result$capacity_daily (`actual`) not equal to 1/7 (`expected`).
  
    `actual`: 0.25
  `expected`: 0.14
  ── Failure ('test-wl_removal_stats.R:38:3'): wl_removal_stats uses the correct default start_date and end_date ──
  result$capacity_weekly (`actual`) not equal to 1 (`expected`).
  
    `actual`: 1.75
  `expected`: 1.00
  
  [ FAIL 8 | WARN 0 | SKIP 8 | PASS 145 ]
  Error: Test failures
  Execution halted