Nothing
run.query <- function(object, query){
#replace " by ' because this is required by postgres
queryA <- gsub("\"", "'", query)
if(getOption("verbose.queries", default=FALSE)) print(queryA)
IdbState(object)
res <- dbGetQuery(object@con, queryA)
return(res)
}
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.