mirror of
https://github.com/agdamsbo/stRoke.git
synced 2024-10-30 03:11:52 +01:00
11 lines
599 B
R
11 lines
599 B
R
|
|
################################################################################
|
|
|
|
testthat::test_that("lab_sel() works for vectors, giving list of length 3", {
|
|
labels_all<-list(rtreat~"Trial treatment",civil~"Cohabitation",diabetes~"Known diabetes", hypertension~"Known hypertension", mrs_1~"One month mRS", mrs_6~"Six months mRS", '[Intercept]'~"Intercept")
|
|
result <- label_select(labels_all,c("hypertension", "diabetes", "mrs_1"))
|
|
testthat::expect_type(result, "list")
|
|
testthat::expect_length(result, 3)
|
|
})
|
|
|
|
################################################################################ |