test_that("Dataset is properly prepared", {
file <- system.file("extdata", "acc.agd", package = "activAnalyzer")
my_data <- prepare_dataset(data = file)
# Testing the class of the dataset
expect_s3_class(my_data, "data.frame")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.