context("computeFB")
test_that("computeFB",{
suppressWarnings(allFB <- computeFB(dayType = 7, hour = 1, reports = FALSE, outputName = temp_dir))
expect_true(file.exists(paste0(allFB, "/second_member.txt")))
expect_true(file.exists(paste0(allFB, "/weight.txt")))
expect_true(file.exists(paste0(allFB, "/domainesFB.RDS")))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.