diff --git a/DESCRIPTION b/DESCRIPTION index 9ea3a2b..7309284 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -2,7 +2,7 @@ Package: OuhscMunge Title: Data Manipulation Operations Description: Data manipulation operations frequently used in OUHSC BBMC projects. -Version: 0.2.0.9016 +Version: 0.2.0.9017 Authors@R: person("Will", "Beasley", email="wibeasley@hotmail.com", role=c("aut", "cre"), comment = c(ORCID = "0000-0002-5613-5006")) URL: https://github.com/OuhscBbmc/OuhscMunge, http://ouhsc.edu/bbmc/ diff --git a/R/retrieve-key-value.R b/R/retrieve-key-value.R index 87e3f65..a9e5535 100644 --- a/R/retrieve-key-value.R +++ b/R/retrieve-key-value.R @@ -73,12 +73,13 @@ retrieve_key_value <- function( # browser() base::tryCatch( expr = { - query <- DBI::dbSendQuery(channel, sql) - bind <- DBI::dbBind(query, list(project_name, key)) - ds_value <- DBI::dbFetch(query) + ds_value <- DBI::dbGetQuery(channel, sql, params = list(project_name, key)) + # query <- DBI::dbSendQuery(channel, sql, immediate = FALSE) + # bind <- DBI::dbBind(query, list(project_name, key)) + # ds_value <- DBI::dbFetch(query) }, finally = { - if (exists("query")) DBI::dbClearResult(query) + # if (exists("query")) DBI::dbClearResult(query) # if (exists("bind")) DBI::dbClearResult(bind) if (close_channel_on_exit) DBI::dbDisconnect(channel) }