#' sqlite_send_query
#'
#' Send a query to a SQLite db
#'
#' @param sql_query a query
#' @param input_filename input filename
#'
#' @import RSQLite
#' @return
#' @export
#'
#' @examples
sqlite_send_query <- function(sql_query, input_filename) {
sqlite <- dbDriver("SQLite")
conndb <- dbConnect(sqlite, input_filename)
dbExecute(conndb, sql_query)
dbDisconnect(conndb)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.