P281424/AMR
1
0
Fork 0
mirror of https://github.com/msberends/AMR.git synced 2025-07-18 11:33:18 +02:00
Code Releases Activity

count_all and some fixes

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2018-10-12 16:35:18 +02:00
parent e7d937d36e
commit 5b5b95a47b
22 changed files with 232 additions and 246 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
tests/testthat/test-freq.R
View File

@ -43,6 +43,11 @@ test_that("frequency table works", {
# list
expect_output(print(freq(list(age = septic_patients$age))))
expect_output(print(freq(list(age = septic_patients$age, gender = septic_patients$gender))))
# difftime
expect_output(suppressWarnings(print(
freq(difftime(Sys.time(),
Sys.time() - runif(5, min = 0, max = 60 * 60 * 24),
units = "hours")))))
library(dplyr)
expect_output(septic_patients %>% select(1:2) %>% freq() %>% print())
@ -119,7 +124,7 @@ test_that("frequency table works", {
))
expect_output(print(
diff(freq(septic_patients$age),
freq(septic_patients$age)) # same
freq(septic_patients$age)) # "No differences found."
))
expect_error(print(
diff(freq(septic_patients$amcl),