Merge branch 'main' into dev

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/

R/retrieve-key-value.R

@@ -73,12 +73,12 @@ retrieve_key_value <- function(
   # browser()
   base::tryCatch(
     expr = {
-      query     <- DBI::dbSendQuery(channel, sql)
-      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)
     }