Nothing
# show()
#' @rdname PqConnection-class
#' @usage NULL
show_PqConnection <- function(object) {
info <- dbGetInfo(object)
if (info$host == "") {
host <- "socket"
} else {
host <- paste0(info$host, ":", info$port)
}
cat("<PqConnection> ", info$dbname, "@", host, "\n", sep = "")
}
#' @rdname PqConnection-class
#' @export
setMethod("show", "PqConnection", show_PqConnection)
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.