Skip to content

added options immedate & replace to eng_SQL #2128

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
AWKruijt wants to merge 5 commits into
base: master
Choose a base branch
from
+16 −4
Open

added options immedate & replace to eng_SQL #2128

Changes from all commits
Commits
Show all changes
5 commits
Select commit Hold shift + click to select a range
c8668af
Update engine.R
May 17, 2022
c0e6a63
Update engine.R
May 18, 2022
19366f8
Update engine.R
May 18, 2022
358d552
Update engine.R
Jun 14, 2022
a47b771
Update engine.R
Jun 24, 2022
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
20 changes: 16 additions & 4 deletions R/engine.R
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -608,13 +608,26 @@ eng_sql = function(options) {
max.print = -1
sql = one_string(options$code)
params = options$params
immediate = NULL
if(exists("sql.immediate", where = options) ) { immediate = options$sql.immediate }
if(exists('sql.replace', where = options) ) {
if(!isTRUE(immediate)) knitr:::stop2("To replace a temprary table, option sql.immediate has to be set to TRUE).")
replace = options$sql.replace
if (isTRUE(immediate) && isTRUE(replace)) {
reptable = gsub('(^.*into[[:space:]]+)(#[0-9A-Za-z]+)(.+from.*$)', '\\2', sql, ignore.case = T)
if(!sub('(.).*.$', '\\1', reptable) == '#') knitr:::stop2(
"To replace a table, the table has to be a temporary table (tablename staring with # or ##)."
)
sql <- paste0("if object_id('tempdb.dbo.", reptable, "') is not null drop table ", reptable, " ;", sql)
}
}

query = interpolate_from_env(conn, sql)
if (isFALSE(options$eval)) return(engine_output(options, query, ''))

data = tryCatch({
if (is_sql_update_query(query)) {
DBI::dbExecute(conn, query)
DBI::dbExecute(conn, query, immediate = immediate)
NULL
} else if (is.null(varname) && max.print > 0) {
# execute query -- when we are printing with an enforced max.print we
Expand All @@ -623,13 +636,12 @@ eng_sql = function(options) {
data = DBI::dbFetch(res, n = max.print)
DBI::dbClearResult(res)
data

} else {
if (length(params) == 0) {
DBI::dbGetQuery(conn, query)
DBI::dbGetQuery(conn, query, immediate = immediate)
} else {
# If params option is provided, parameters are not interplolated
DBI::dbGetQuery(conn, sql, params = params)
DBI::dbGetQuery(conn, query, immediate = immediate, params = params)
}
}
}, error = function(e) {
Expand Down