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