context("Function ctrlVertices")
test_that(".ctrlVertices", {
PTDF <- fread(system.file("testdata/PTDF6h.csv",package = "flowBasedClustering"))
PTDF <- .ctrlVertices(PTDF)
expect_true(class(PTDF$Date) == "character")
expect_true(PTDF$Date[1] == "2015-11-01")
expect_error(.ctrlVertices(data.frame()))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.