Nothing
check_pointer <- function(dbh) {
.Call("rberkeley_check_pointer", dbh)
}
as.DB <- function(x) {
if(is.DB(x)) {
return(attr(x, "conn_id"))
} else stop("not a DB connection")
}
is.DB <- function(x) {
inherits(x, "DB")
}
print.DB <- function(x, ...) {
cat("<DB Handle>\n")
}
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.