context("Testing ccRecord")
test_that("test ccEpisode", {
eps <- new.episode(list())
expect_equal(eps@nhs_number, "NA")
expect_equal(eps@pas_number, "NA")
expect_equal(eps@site_id, "NA")
expect_equal(eps@episode_id, "NA")
expect_equal(eps@t_admission, as.POSIXct(NA))
expect_equal(eps@t_discharge, as.POSIXct(NA))
xml <- xmlLoad('../data/test_data_anonym.xml')
xmleps <- xmlEpisodeToList(getXmlepisode(xml, 1))
eps <- new.episode(xmleps)
expect_equal(eps@nhs_number, "nhs_1")
expect_equal(eps@pas_number, "pas_1")
})
test_that("reorder the index of record", {
})
test_that("reorder the index of record", {
rec <- ccRecord()
# add.episode.to.record(rec, )
})
test_that("test xml2Data2", {
# ccd <- xml2Data("../data/test_data_anonym.xml")
})
test_that("testing unique spell", {
us <- unique_spell(ccd)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.