1
0
mirror of https://github.com/msberends/AMR.git synced 2024-12-25 18:46:11 +01:00
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

View File

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

View File

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