## ----setup, echo=FALSE---------------------------------------------------
knitr::opts_chunk$set(collapse = FALSE, comment = "#>")
## ----load-package--------------------------------------------------------
library(myrwaR)
## ----connect-------------------------------------------------------------
base_dir <- 'D:/Dropbox/Work/mystic/db'
db_path <- file.path(base_dir, "MysticDB_20160208.accdb")
ch <- db_connect(path = db_path)
## ----list-tables---------------------------------------------------------
myrwaR::db_list_tables(ch)
## ----locations-----------------------------------------------------------
locations <- db_table(ch, table_name = "Location")
str(locations)
## ----results-------------------------------------------------------------
results <- db_results(ch)
## ----load-wq-------------------------------------------------------------
wq <- load_wq(path = db_path, sample_types = c("S"), exclude_flags = TRUE)
str(wq)
## ----close---------------------------------------------------------------
close(ch)
## ----compare-------------------------------------------------------------
compare_database(old_path = file.path(base_dir, "MysticDB_20160120.accdb"),
new_path = file.path(base_dir, "MysticDB_20160208.accdb"))
## ----compare-log, eval=FALSE---------------------------------------------
# compare_database(old_path = file.path(base_dir, "MysticDB_20150227.accdb"),
# new_path = file.path(base_dir, "MysticDB_20150529.accdb"),
# log_file = file.path(base_dir, 'compare_20150227_20150529.txt'))
## ----qaqc-suite----------------------------------------------------------
ch <- db_connect(db_path)
db_qaqc_suite(ch, print.rows=FALSE)
close(ch)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.