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

add labels_rsi_count

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2018-09-16 22:11:17 +02:00
parent b792a2754e
commit db14781593
16 changed files with 110 additions and 29 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -41,4 +41,6 @@ test_that("counts work", {
expect_error(count_S("test", minimum = "test"))
expect_error(count_S("test", as_percent = "test"))
expect_error(count_df(c("A", "B", "C")))
})

4
tests/testthat/test-portion.R
View File

@ -112,7 +112,7 @@ test_that("old rsi works", {
# portion_df
expect_equal(
septic_patients %>% select(amox) %>% portion_df() %>% pull(Percentage),
septic_patients %>% select(amox) %>% portion_df() %>% pull(Value),
c(septic_patients$amox %>% portion_S(),
septic_patients$amox %>% portion_I(),
septic_patients$amox %>% portion_R())
@ -165,4 +165,6 @@ test_that("prediction of rsi works", {
col_ab = "mero",
col_date = "date",
info = TRUE))
expect_error(portion_df(c("A", "B", "C")))
})