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

diff for freq, fix for mo_shortname

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2018-09-29 21:54:32 +02:00
parent a6aa9e95fb
commit 92c9cc2608
12 changed files with 79 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
tests/testthat/test-first_isolate.R
View File

@ -114,7 +114,7 @@ test_that("first isolates work", {
first_isolate(col_date = "date",
col_mo = "mo",
col_patient_id = "patient_id",
col_testcode = "sex",
col_testcode = "gender",
testcodes_exclude = "M"))
# errors

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

@ -32,17 +32,17 @@ test_that("frequency table works", {
# factor
expect_output(print(freq(septic_patients$hospital_id)))
# table
expect_output(print(freq(table(septic_patients$sex, septic_patients$age))))
expect_output(print(freq(table(septic_patients$gender, septic_patients$age))))
# rsi
expect_output(print(freq(septic_patients$amcl)))
# hms
expect_output(suppressWarnings(print(freq(hms::as.hms(sample(c(0:86399), 50))))))
# matrix
expect_output(print(freq(as.matrix(septic_patients$age))))
expect_output(print(freq(as.matrix(septic_patients[, c("age", "sex")]))))
expect_output(print(freq(as.matrix(septic_patients[, c("age", "gender")]))))
# list
expect_output(print(freq(list(age = septic_patients$age))))
expect_output(print(freq(list(age = septic_patients$age, sex = septic_patients$sex))))
expect_output(print(freq(list(age = septic_patients$age, gender = septic_patients$gender))))
library(dplyr)
expect_output(septic_patients %>% select(1:2) %>% freq() %>% print())