Nothing
# chlorpromazineR package
# See README.md
# test_key.R
context("checking key manipulation functions")
test_that("trim_key() works with gardner2010 data", {
trimmed <- trim_key(gardner2010_withsai)
original_sai <- c("chlorpromazine hcl", "clotiapine injectable",
"fluphenazine hcl", "haloperidol lactate", "loxapine hcl")
expected_sai <- c("chlorpromazine", "clotiapine", "fluphenazine",
"haloperidol", "loxapine")
original_lai <- c("clopenthixol decanoate", "flupenthixol decanoate",
"fluphenazine decanoate", "fluphenazine enanthate",
"fluspirilene")
expected_lai <- c("clopenthixol", "flupenthixol", "fluphenazine",
"fluphenazine", "fluspirilene")
expect_equal(names(gardner2010_withsai$sai)[1:5], original_sai)
expect_equal(names(trimmed$sai)[1:5], expected_sai)
expect_equal(names(gardner2010_withsai$lai)[1:5], original_lai)
expect_equal(names(trimmed$lai)[1:5], expected_lai)
})
test_that("add_key() works with gardner2010 and leucht2016", {
merged <- add_key(gardner2010, leucht2016, trim=TRUE)
expect_equal(merged$oral$haloperidol, gardner2010$oral$haloperidol)
expect_equal(merged$oral$tiapride, leucht2016$oral$tiapride)
expect_warning(add_key(gardner2010, leucht2016, trim=FALSE))
})
test_that("has_long_name() does as it says", {
expect_equal(has_long_name(gardner2010), TRUE)
expect_equal(has_long_name(gardner2010_withsai), TRUE)
expect_equal(has_long_name(leucht2016), FALSE)
})
test_that("included keys are valid format", {
expect_equal(check_key(gardner2010), TRUE)
expect_equal(check_key(gardner2010_withsai), TRUE)
expect_equal(check_key(leucht2016), TRUE)
expect_equal(check_key(davis1974), TRUE)
expect_equal(check_key(woods2003), TRUE)
})
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.