#' getSamplesSQLite3Job
#'
#' Query the SQLite3 anaLabDB database for all samples
#' associated with a specific job.
#'
#' @param jobID jobID String for query, e.g. "QM17-01-06A"
#' @param dbPath path to SQlite database, e.g. "D:/Data/db/anaLabDBtest/anaLabDB.db"
#' @param csvOut path for csv, e.g. "../dat/csv/samples.csv"
#'
#' @import RSQLite
#' @import utils
#'
#' @export
#'
#' @examples
#' # not run
getSamplesSQLite3Job <- function(jobID,
dbPath,
csvOut){
con <- dbConnect(RSQLite::SQLite(), dbname=dbPath)
tables <- dbListTables(con)
query = sprintf("select Lab_ID,Client_Sample_ID,Sample_Info,Date_In,Date_Out from samples where JOB_ID = \"%s\" ", jobID)
res <- dbSendQuery(con, query)
samples <-fetch(res, n = -1)
samples$Lab_ID <- tolower(samples$Lab_ID)
print(tail(samples))
write.csv(samples, csvOut, row.names=FALSE)
dbDisconnect(con)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.