context("src")
DB = tempdir() # "testdb"
test_that("Create",{
unlink(DB, recursive = T, force = T)
db <- src_ffdf(DB)
expect_true(file.exists(DB), "Directory created?")
})
test_that("Create table",{
unlink(DB, recursive = T, force = T)
mtc <- tbl_ffdf(mtcars, DB, name="mtc", force=T)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.