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

speed improvement as.mo, freq title

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2018-10-31 12:10:49 +01:00
parent 3d4c4c678b
commit 9cd4ab928a
27 changed files with 289 additions and 224 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -21,6 +21,7 @@ test_that("frequency table works", {
expect_output(print(freq(septic_patients$age, markdown = TRUE), markdown = TRUE))
expect_output(print(freq(septic_patients$age[0])))
expect_output(print(freq(septic_patients$age, quote = TRUE)))
expect_output(print(freq(septic_patients$age, markdown = TRUE, title = "TITLE")))
# character
expect_output(print(freq(septic_patients$mo)))

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

@ -53,4 +53,10 @@ test_that("mo_property works", {
expect_identical(mo_property("E. coli", property = "species"),
mo_species("E. coli"))
# check vector with random values
library(dplyr)
df_sample <- AMR::microorganisms %>% sample_n(100)
expect_identical(df_sample %>% pull(mo) %>% mo_fullname(),
df_sample %>% pull(fullname))
})