tdQuery <- function(q, ...) {
if (class(tdConnection) == "RODBC")
return(sqlQuery(tdConnection, q, ...))
if (class(tdConnection) == "JDBCConnection")
return(dbGetQuery(tdConnection, q, ...))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.