test_that("eegData online", {
load('data.Rdata')
newResult <- run.online(inputs = data$streams, data$blocks, classifier)
expect_equal(newResult, result)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.