library(DBI)
library(RSQLite)
context("query_create_get")
con <- dbConnect(drv=dbDriver("SQLite"), con =":memory:")
test_that("query_create_get create the iris query",{
tablename <- "iris2"
iris
query <- query_create_get(con, iris, tablename)
expected <- "CREATE TABLE IF NOT EXISTS iris2 (
rownames integer primary key asc autoincrement,
`Sepal.Length` REAL,
`Sepal.Width` REAL,
`Petal.Length` REAL,
`Petal.Width` REAL,
`Species` TEXT );"
expect_equal(query, expected)
})
dbDisconnect(con)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.