Nothing
session <- new.env(parent = emptyenv())
session$table_name_counter <- 0L
session$print <- NULL
session$special_symbols <- new.env(parent = emptyenv())
session$key_base <- "+xcwrl+"
session$tmp_base <- "DBI_TABLE_PACKAGE_TEMPORARY_TABLE_"
session$ignore_schemas <- c("information_schema", "pg_catalog")
session$default_information_schema_tables <- c("columns",
"key_column_usage",
"referential_constraints",
"tables")
.onLoad <- function(libname, pkgname) {
add_special(".N", function(e, dbi_table, specials, env) call("n"))
add_special(".SD")
add_special(".BY")
add_special(".I")
add_special(".GRP")
add_special(".NGRP")
add_special(".EACHI")
add_special("%in%", special_in)
add_special("%chin%", special_in)
add_special("local", special_local)
add_special("!", special_not)
add_special("%like%", special_like)
add_special("%LIKE%", special_LIKE)
NULL
}
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.