Nothing
#' @inheritParams DBI::sqlRownamesToColumn
#' @param ... Ignored.
#' @rdname postgres-tables
#' @usage NULL
sqlData_PqConnection <- function(con, value, row.names = FALSE, ...) {
if (is.null(row.names)) row.names <- FALSE
value <- sqlRownamesToColumn(value, row.names)
value[] <- lapply(value, dbQuoteLiteral, conn = con)
value
}
#' @rdname postgres-tables
#' @export
setMethod("sqlData", "PqConnection", sqlData_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.