R/sqlManipulators.r

In chasemc/ghosts: Protein and small molecule analysis of bacteria by MALDI-TOF MS

#' getAllStrain_IDsfromSQL
#'
#' @param databaseConnection NA
#' @param table NA
#'
#' @return NA
#' @export
#'

getAllStrain_IDsfromSQL <- function(databaseConnection, table){
  # Gets unique Strain_IDs given a RSQLite database connecction and table name
  
  dbQuery <- glue::glue_sql("SELECT DISTINCT `Strain_ID`
                            FROM ({tab*})",
                            tab = table,
                            .con = databaseConnection)
  
  conn <- pool::poolCheckout(databaseConnection)
  dbQuery <- DBI::dbSendQuery(conn, dbQuery)
  dbQuery <- DBI::dbFetch(dbQuery)[ , 1]
  
  
}