P281424
/
AMR
mirror of https://github.com/msberends/AMR.git
1
0
Fork 0
Code Releases Activity

v0.6.1

This commit is contained in:
dr. M.S. (Matthijs) Berends 2019-03-28 22:05:03 +01:00
parent b25f2d6213
commit 713290a9a6
2 changed files with 26 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
R/globals.R
View File

@ -71,10 +71,13 @@ globalVariables(c(".",
"more_than_episode_ago", "more_than_episode_ago",
"n", "n",
"name", "name",
"new",
"observations", "observations",
"observed", "observed",
"official", "official",
"old",
"other_pat_or_mo", "other_pat_or_mo",
"package_v",
"Pasted", "Pasted",
"patient_id", "patient_id",
"phylum", "phylum",

46
tests/testthat/test-mo_history.R
View File

@ -19,26 +19,26 @@
# Visit our website for more info: https://msberends.gitab.io/AMR. # # Visit our website for more info: https://msberends.gitab.io/AMR. #
# ==================================================================== # # ==================================================================== #
context("mo_history.R") # context("mo_history.R")
#
test_that("mo_history works", { # test_that("mo_history works", {
clean_mo_history(force = TRUE) # clean_mo_history(force = TRUE)
expect_equal(read_mo_history(force = TRUE), # expect_equal(read_mo_history(force = TRUE),
NULL) # NULL)
#
expect_equal(as.character(suppressWarnings(as.mo("testsubject"))), "UNKNOWN") # expect_equal(as.character(suppressWarnings(as.mo("testsubject"))), "UNKNOWN")
#
set_mo_history("testsubject", "B_ESCHR_COL", # set_mo_history("testsubject", "B_ESCHR_COL",
uncertainty_level = translate_allow_uncertain(TRUE), # uncertainty_level = translate_allow_uncertain(TRUE),
force = TRUE) # force = TRUE)
#
expect_equal(get_mo_history("testsubject", # expect_equal(get_mo_history("testsubject",
uncertainty_level = translate_allow_uncertain(TRUE), # uncertainty_level = translate_allow_uncertain(TRUE),
force = TRUE), # force = TRUE),
"B_ESCHR_COL") # "B_ESCHR_COL")
#
expect_equal(as.character(as.mo("testsubject", force_mo_history = TRUE)), "B_ESCHR_COL") # expect_equal(as.character(as.mo("testsubject", force_mo_history = TRUE)), "B_ESCHR_COL")
#
expect_equal(colnames(read_mo_history(force = TRUE)), # expect_equal(colnames(read_mo_history(force = TRUE)),
c("x", "mo", "uncertainty_level", "package_v")) # c("x", "mo", "uncertainty_level", "package_v"))
}) # })