Nothing
id <- c("01", "02", "03")
site <- c("site 01", "site 02", "site 03")
age <- c("19", "20", "22")
sex <- c("f", "m", "f")
gluc_post <- c(5.5, 4.1, 9.7)
gluc_res_post <- c("norm", "no", "no")
ast_post <- c("30", "48", "31")
ast_res_post <- c(NA, "norm", "norm")
df <- data.frame(
id, site, age, sex,
gluc_post, gluc_res_post,
ast_post, ast_res_post,
stringsAsFactors = F
)
labs <- lab("labs_refer.xlsx", id, age, sex, "norm", "no")
one_lab <- check(labs, df)
test_that("number of incorrect analyzes", {
incorrect <- choose_test(one_lab, "mis")
expect_equal(nrow(incorrect), 2)
})
test_that("number of correct analyzes", {
correct <- choose_test(one_lab, "ok")
expect_equal(nrow(correct), 3)
})
test_that("number of skipped analyzes", {
skipped <- choose_test(one_lab, "skip")
expect_equal(nrow(skipped), 1)
})
test_that("number of null analyzes", {
null_lab <- choose_test(one_lab, "null")
expect_equal(nrow(null_lab), 0)
})
test_that("unknown parameter", {
expect_error(choose_test(one_lab, "nul"), "uknown parameter nul")
})
test_that("lab test not found", {
warn_lab <- lab("warning_refer.xlsx", id, age, sex, "norm", "no")
expect_warning(check(warn_lab, df), "alt_res not found")
})
test_that("final result is empty", {
error_lab <- lab("error_refer.xlsx", id, age, sex, "norm", "no")
expect_error(check(error_lab, df), "the final result of validation is empty")
})
id <- c("01", "02", "03")
site <- c("site 01", "site 02", "site 03")
age <- c(NA, "20", "22")
sex <- c("f", "m", "f")
gluc_post <- c(5.5, 4.1, 9.7)
gluc_res_post <- c("norm", "no", "no")
ast_post <- c("30", "48", "31")
ast_res_post <- c(NA, "norm", "norm")
df <- data.frame(
id, site, age, sex,
gluc_post, gluc_res_post,
ast_post, ast_res_post,
stringsAsFactors = F
)
test_that("problem with age or sex", {
warn_lab <- lab("labs_refer.xlsx", id, age, sex, "norm", "no")
expect_warning(check(warn_lab, df), "problem with age or sex: 01")
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.