R/loadSampleTracker.R

In aberWARU/waruDB: Database backend functions for waruPortal

#' Load Sample Tracker Data
#'
#' Load useful data from *SampleTracker* table
#'
#' @param db_connection a `dbPool` or `RMariaDB` database connection
#' @return a `tibble` of sample details
#' @export

loadSampleTracker <- function(db_connection) {

  data <-
    db_connection %>% dplyr::tbl('SampleTracker') %>% dplyr::select(
      ParticipantID,
      SampleID,
      sample_type,
      date_received,
      received_by,
      tubes,
      study_code
    ) %>% dplyr::collect()

  return(data)
}