R/loadBioBank.R

In aberWARU/waruDB: Database backend functions for waruPortal

#' Load BioBank
#'
#' Load the BioBak table
#'
#' @param db_connection a `dbPool` or `RMariaDB` database connection
#' @return a `tibble` of the complete BioBank table
#' @export

loadBioBank <- function(db_connection) {
  biobank <-
    db_connection %>% dplyr::tbl('BioBank') %>% dplyr::collect()

  return(biobank)
}