context("Function generateClusteringReport")
test_that("Function generateClusteringReport works", {
# that test does not work with travis
# clusterTD <- readRDS(system.file("dataset/cluster_example.RDS",package = "flowBasedClustering"))
# temp_directory <- tempdir()
# generateClusteringReport(dayType = 2, data = clusterTD, outputFile = temp_directory)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.