strQuery<- function(fields, object, filter = NULL) {
if(!is.null(filter)) {
return(paste("SELECT", fields, "FROM", object, filter))
} else return(paste("SELECT", fields, "FROM", object))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.