# Taken from DBI
test_that("dbDataType works on a data frame", {
con <- postgresDefault()
on.exit(dbDisconnect(con))
df <- data.frame(x = 1:10, y = 1:10 / 2)
types <- dbDataType(con, df)
expect_equal(types, c(x = "INTEGER", y = "DOUBLE PRECISION"))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.