Nothing
test_that("can manipulate classes", {
expect_s3_class(set_class(1, "A"), "A")
})
test_that("dbColumnInfo() knows about typnames", {
con <- postgresDefault()
on.exit(dbDisconnect(con))
rs <- dbSendQuery(con, "SELECT 1 as a, '[1,2,3]'::json as js")
expect_equal(dbColumnInfo(rs)[[".typname"]], c("int4", "json"))
res <- dbFetch(rs)
expect_s3_class(res$js, "pq_json")
dbClearResult(rs)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.