Running ‘testthat.R’ [1s/2s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > # ==================================================================== #
  > # TITLE                                                                #
  > # Fast and Easy Data Cleaning                                          #
  > #                                                                      #
  > # SOURCE                                                               #
  > # https://github.com/msberends/cleaner                                 #
  > #                                                                      #
  > # LICENCE                                                              #
  > # (c) 2020 Berends MS (m.s.berends@umcg.nl)                            #
  > #                                                                      #
  > # This R package is free software; you can freely use and distribute   #
  > # it for both personal and commercial purposes under the terms of the  #
  > # GNU General Public License version 2.0 (GNU GPL-2), as published by  #
  > # the Free Software Foundation.                                        #
  > #                                                                      #
  > # This R package was publicly released in the hope that it will be     #
  > # useful, but it comes WITHOUT ANY WARRANTY OR LIABILITY.              #
  > # ==================================================================== #
  > 
  > library(testthat)
  > library(cleaner)
  > 
  > test_check("cleaner")
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error (test-freq.R:27:3): frequency table works ─────────────────────────────
  Error: invalid 'digits' argument
  Backtrace:
       █
    1. ├─testthat::expect_output(print(freq(nrs))) test-freq.R:27:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat:::.capture(...)
    4. │   │ └─testthat::capture_output_lines(code, print, width = width)
    5. │   │   └─testthat:::eval_with_output(code, print = print, width = width)
    6. │   │     ├─withr::with_output_sink(temp, withVisible(code))
    7. │   │     │ └─base::force(code)
    8. │   │     └─base::withVisible(code)
    9. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
   10. ├─base::print(freq(nrs))
   11. └─cleaner:::print.freq(freq(nrs))
   12.   ├─base::cat(...)
   13.   └─cleaner:::format_header(...)
   14.     ├─base::paste0(...)
   15.     ├─base::sub(...)
   16.     │ └─base::is.factor(x)
   17.     └─cleaner::percentage(...)
   18.       ├─base::format(as.percentage(x), digits = digits, ...)
   19.       └─cleaner:::format.percentage(...)
   20.         ├─base::format(...)
   21.         └─base::format.default(...)
   22.           └─base::prettyNum(...)
  
  [ FAIL 1 | WARN 0 | SKIP 0 | PASS 20 ]
  Error: Test failures
  Execution halted