Running ‘testthat.R’
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(useful)
  Loading required package: ggplot2
  > 
  > test_check("useful")
  ── 1. Failure: All functions return correct output (@test-formatters.r#80)  ────
  multiple(vect, digits = 5) not equal to c("1.000K", "1.500K", "23.450K", "21.784K", "875,003.780K").
  5/5 mismatches
  x[1]: "1K"
  y[1]: "1.000K"
  
  x[2]: "2K"
  y[2]: "1.500K"
  
  x[3]: "23K"
  y[3]: "23.450K"
  
  x[4]: "22K"
  y[4]: "21.784K"
  
  x[5]: "875,004K"
  y[5]: "875,003.780K"
  
  ── 2. Failure: All functions return correct output (@test-formatters.r#84)  ────
  multiple(vect, multiple = "m", digits = 5) not equal to c("0.00100m", "0.00150m", "0.02345m", "0.02178m", "875.00378m").
  5/5 mismatches
  x[1]: "0m"
  y[1]: "0.00100m"
  
  x[2]: "0m"
  y[2]: "0.00150m"
  
  x[3]: "0m"
  y[3]: "0.02345m"
  
  x[4]: "0m"
  y[4]: "0.02178m"
  
  x[5]: "875m"
  y[5]: "875.00378m"
  
  ── 3. Failure: All functions return correct output (@test-formatters.r#89)  ────
  multiple_format(digits = 5)(vect) not equal to c("1.000K", "1.500K", "23.450K", "21.784K", "875,003.780K").
  5/5 mismatches
  x[1]: "1K"
  y[1]: "1.000K"
  
  x[2]: "2K"
  y[2]: "1.500K"
  
  x[3]: "23K"
  y[3]: "23.450K"
  
  x[4]: "22K"
  y[4]: "21.784K"
  
  x[5]: "875,004K"
  y[5]: "875,003.780K"
  
  ── 4. Failure: All functions return correct output (@test-formatters.r#93)  ────
  multiple_format(multiple = "m", digits = 5)(vect) not equal to c("0.00100m", "0.00150m", "0.02345m", "0.02178m", "875.00378m").
  5/5 mismatches
  x[1]: "0m"
  y[1]: "0.00100m"
  
  x[2]: "0m"
  y[2]: "0.00150m"
  
  x[3]: "0m"
  y[3]: "0.02345m"
  
  x[4]: "0m"
  y[4]: "0.02178m"
  
  x[5]: "875m"
  y[5]: "875.00378m"
  
  ── 5. Failure: All functions return correct output (@test-formatters.r#102)  ───
  multiple.comma(vect, digits = 5) not equal to c("1.000K", "1.500K", "23.450K", "21.784K", "875,003.780K").
  5/5 mismatches
  x[1]: "1K"
  y[1]: "1.000K"
  
  x[2]: "2K"
  y[2]: "1.500K"
  
  x[3]: "23K"
  y[3]: "23.450K"
  
  x[4]: "22K"
  y[4]: "21.784K"
  
  x[5]: "875,004K"
  y[5]: "875,003.780K"
  
  ── 6. Failure: All functions return correct output (@test-formatters.r#104)  ───
  multiple.comma(vect, multiple = "h", digits = 5) not equal to c("10.00h", "15.00h", "234.50h", "217.84h", "8,750,037.80h").
  5/5 mismatches
  x[1]: "10h"
  y[1]: "10.00h"
  
  x[2]: "15h"
  y[2]: "15.00h"
  
  x[3]: "234h"
  y[3]: "234.50h"
  
  x[4]: "218h"
  y[4]: "217.84h"
  
  x[5]: "8,750,038h"
  y[5]: "8,750,037.80h"
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 738 SKIPPED: 0 FAILED: 6
  1. Failure: All functions return correct output (@test-formatters.r#80) 
  2. Failure: All functions return correct output (@test-formatters.r#84) 
  3. Failure: All functions return correct output (@test-formatters.r#89) 
  4. Failure: All functions return correct output (@test-formatters.r#93) 
  5. Failure: All functions return correct output (@test-formatters.r#102) 
  6. Failure: All functions return correct output (@test-formatters.r#104) 
  
  Error: testthat unit tests failed
  Execution halted