#' @export
dbQueryRun <- function(dfname4save, string4query) {
outputFunProc(R)
## Get data
dbWorkaround_UTF8()
dat <- dbGetQuery(dbconn, string4query)
## Save data
assign(dfname4save, dat, envir = .GlobalEnv)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.