one step to retrieve parameters

close #134
OuhscBbmc · Jan 8, 2024 · 494c6de · 494c6de
1 parent 7cf5432
commit 494c6de
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 5 deletions.
diff --git 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="[email protected]", 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
@@ -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)
     }