test_that("test scorecycle",{
conn <- RSQLite::dbConnect(RSQLite::SQLite(),"test_file.sqlite")
list<-RSQLite::dbListTables(conn)
expect_equal(any(list=="scoreTableFull"),TRUE)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.