renamed year columns to ref

2025-07-18 11:33:18 +02:00 · 2018-10-01 14:44:40 +02:00
parent 3119a221e5
commit ed17db0263
16 changed files with 78 additions and 66 deletions
--- a/tests/testthat/test-freq.R
+++ b/tests/testthat/test-freq.R
@ -112,5 +112,19 @@ test_that("frequency table works", {
  expect_error(septic_patients %>% freq(peni, oxac, clox, amox, amcl,
                                        ampi, pita, czol, cfep, cfur))

+  # run diff
+  expect_output(print(
+    diff(freq(septic_patients$amcl),
+         freq(septic_patients$amox))
+  ))
+  expect_output(print(
+    diff(freq(septic_patients$age),
+         freq(septic_patients$age)) # same
+  ))
+  expect_error(print(
+    diff(freq(septic_patients$amcl),
+         "Just a string") # not a freq tbl
+  ))
+
 })