15 lines
427 B
R
15 lines
427 B
R
|
|
#' @name DBClient$dbAction
|
|
#' @title DBClient$dbAction
|
|
#' @description
|
|
#' Executes a query/statement on a database which has no result
|
|
#' @param statement <character> Statement to run
|
|
#' @returns <logical> TRUE if the execution was successful, FALSE if not
|
|
NULL
|
|
dbAction <- function(statement) {
|
|
if (getOption("db.debug", FALSE)) {
|
|
cat("dbQuery:", statement, "\n")
|
|
}
|
|
DBI::dbExecute(private$getDBConn(), statement)
|
|
}
|