mirror of
https://github.com/agdamsbo/stRoke.git
synced 2024-10-30 03:11:52 +01:00
29 lines
908 B
R
29 lines
908 B
R
|
talos$id <- seq_len(nrow(talos))
|
||
|
|
|
||
|
|
test_that("ds2dd gives desired output", {
|
||
|
|
expect_equal(ncol(ds2dd(talos, record.id="id")),18)
|
||
|
|
expect_s3_class(ds2dd(talos, record.id="id"),"data.frame")
|
||
|
|
expect_s3_class(ds2dd(talos,record.id = 7),"data.frame")
|
||
|
|
})
|
||
|
|
|
||
|
|
test_that("ds2dd gives output with list of length two", {
|
||
|
|
expect_equal(length(ds2dd(talos, record.id="id",include.column.names = TRUE)),2)
|
||
|
|
})
|
||
|
|
|
||
|
|
|
||
|
|
test_that("ds2dd gives correct errors", {
|
||
|
|
expect_error(ds2dd(talos))
|
||
|
|
expect_error(ds2dd(talos,form.name = c("basis","incl")))
|
||
|
|
expect_error(ds2dd(talos,field.type = c("text","dropdown")))
|
||
|
|
expect_error(ds2dd(talos,field.label = c("Name","Age")))
|
||
|
|
})
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
colnames(talos) <- c("rtreat", "mRS 1", "mRS 6", "hypertension", "diabetes", "civil", "id")
|
||
|
|
|
||
|
|
test_that("ds2dd correctly renames", {
|
||
|
|
expect_equal(ncol(ds2dd(talos, record.id="id")),18)
|
||
|
|
expect_s3_class(ds2dd(talos, record.id="id"),"data.frame")
|
||
|
|
})
|