In biogeochem/bpwtpR: Buffalo Pound Water Treatment Plant (BPWTP) data integration and reporting
knitr::opts_chunk$set(echo = FALSE, message = FALSE, warning = FALSE, fig.pos = 'H', out.extra = "")
#code <- sapply(list.files(file.path(".", "code"), full.names = TRUE), source)
library(bpwtpR)
library(pander)
library(tidyverse)
library(lubridate)
library(cowplot)
## The complete labdat database file (labdat_file) from 1980 to 2019 will never be changed
## it will only be updated with the most contemporary data and saved as a new file
labdat <- read_db(params$path_to_db_file)
# To simplify column names while the data frame is being used. Blair wanted
# columns to start with _tbl
colnames(labdat) <- str_remove(colnames(labdat), "tbl_")
plot_all_parameters(labdat, params$selected_year,
parameter_group = "all",
station_list = "all",
params$outdir)
Data Availability
Data in this report includes weekly sampling across the water treatment process at Buffalo Pound Water Treatment Plant (BPWTP) from r min(year(labdat$date_ymd)) to r max(year(labdat$date_ymd)).
\newpage
Operations
summarize_monthly_table(df = labdat,
grouping = "operations", sampling_station = "Raw",
params$selected_year)
group_table_historical(df = labdat, params$selected_year,
grouping = "operations",
sampling_station = "Raw",
percentiles = c(0.1, 0.25, 0.5, 0.75, 0.9),
by_month = T,
params$selected_month)
group_table_historical(df = labdat, params$selected_year,
grouping = "operations",
sampling_station = "Raw",
percentiles = c(0.1, 0.25, 0.5, 0.75, 0.9),
by_month = F,
params$selected_month)
\newpage
Physical
raw_odour <- parm_fig(df = labdat,
params$selected_year,
var = "Odour",
params$outdir)
print(raw_odour)
\newpage
RawWater
summarize_monthly_table(df = labdat,
grouping = "physical",
sampling_station = "Raw",
params$selected_year)
group_table_historical(df = labdat,
params$selected_year,
grouping = "physical",
sampling_station = "Raw",
percentiles = c(0.1, 0.25, 0.5, 0.75, 0.9),
by_month = T,
params$selected_month)
\newpage
Major Constituents
RawWater
summarize_monthly_table(df = labdat,
grouping = "majorConstituents",
sampling_station = "Raw",
params$selected_year)
group_table_historical(df = labdat,
params$selected_year,
grouping = "majorConstituents",
sampling_station = "Raw",
percentiles = c(0.1, 0.25, 0.5, 0.75, 0.9),
by_month = T,
params$selected_month)
\newpage
Trace Constituents
RawWater
summarize_monthly_table(df = labdat,
grouping = "traceConstituents",
sampling_station = "Raw",
params$selected_year)
group_table_historical(df = labdat, params$selected_year,
grouping = "traceConstituents",
sampling_station = "Raw",
percentiles = c(0.1, 0.25, 0.5, 0.75, 0.9),
by_month = T,
params$selected_month)
PreFM
summarize_monthly_table(df = labdat,
grouping = "traceConstituents",
sampling_station = "PreFM",
params$selected_year)
group_table_historical(df = labdat,
params$selected_year,
grouping = "traceConstituents",
sampling_station = "PreFM",
percentiles = c(0.1, 0.25, 0.5, 0.75, 0.9),
by_month = T,
params$selected_month)
\newpage
THMs
thms <- summarize_THM(labdat = labdat)
tthm_fig(df = thms,
params$selected_year)
Tables are presented on the next page.
\newpage
summarize_monthly_table(df = labdat,
grouping = "THM",
sampling_station = "PreFM",
params$selected_year)
summarize_monthly_table(df = labdat,
grouping = "THM",
sampling_station = "Channel",
params$selected_year)
summarize_monthly_table(df = labdat,
grouping = "THM", sampling_station = "PreGAC",
params$selected_year)
summarize_monthly_table(df = labdat,
grouping = "THM",
sampling_station = "Clearwell",
params$selected_year)
\newpage
Biological
RawWater
summarize_monthly_table(df = labdat,
grouping = "biological",
sampling_station = "Raw",
params$selected_year)
group_table_historical(df = labdat,
params$selected_year,
grouping = "biological",
sampling_station = "Raw",
percentiles = c(0.1, 0.25, 0.5, 0.75, 0.9),
by_month = T,
params$selected_month)
\newpage
Bacteriological
RawWater
summarize_monthly_table(df = labdat,
grouping = "bacteriological",
sampling_station = "Raw",
params$selected_year)
group_table_historical(df = labdat,
params$selected_year,
grouping = "bacteriological",
sampling_station = "Raw",
percentiles = c(0.1, 0.25, 0.5, 0.75, 0.9),
by_month = T,
params$selected_month)
\newpage
Historical Data Summaries
Operations
group_table_historical(df = labdat,
params$selected_year,
grouping = "operations",
sampling_station = "Raw",
percentiles = c(0.1, 0.25, 0.5, 0.75, 0.9),
by_month = F,
params$selected_month)
\newpage
Physical
group_table_historical(df = labdat,
params$selected_year,
grouping = "physical",
sampling_station = "Raw",
percentiles = c(0.1, 0.25, 0.5, 0.75, 0.9),
by_month = F,
params$selected_month)
group_table_historical(df = labdat,
params$selected_year,
grouping = "physical",
sampling_station = "Clearwell",
percentiles = c(0.1, 0.25, 0.5, 0.75, 0.9),
by_month = F,
params$selected_month)
\newpage
Major Constituents
group_table_historical(df = labdat,
params$selected_year,
grouping = "majorConstituents",
sampling_station = "Raw",
percentiles = c(0.1, 0.25, 0.5, 0.75, 0.9),
by_month = F,
params$selected_month)
group_table_historical(df = labdat,
params$selected_year,
grouping = "majorConstituents",
sampling_station = "Clearwell",
percentiles = c(0.1, 0.25, 0.5, 0.75, 0.9),
by_month = F,
params$selected_month)
\newpage
Trace Constituents
group_table_historical(df = labdat,
params$selected_year,
grouping = "traceConstituents",
sampling_station = "Raw",
percentiles = c(0.1, 0.25, 0.5, 0.75, 0.9),
by_month = F,
params$selected_month)
group_table_historical(df = labdat,
params$selected_year,
grouping = "traceConstituents",
sampling_station = "Clearwell",
percentiles = c(0.1, 0.25, 0.5, 0.75, 0.9),
by_month = F,
params$selected_month)
\newpage
tTHMs
group_table_historical(df = labdat,
params$selected_year,
grouping = "THM",
sampling_station = "PreFM",
percentiles = c(0.1, 0.25, 0.5, 0.75, 0.9),
by_month = F,
params$selected_month)
group_table_historical(df = labdat,
params$selected_year,
grouping = "THM",
sampling_station = "Channel",
percentiles = c(0.1, 0.25, 0.5, 0.75, 0.9),
by_month = F,
params$selected_month)
group_table_historical(df = labdat,
params$selected_year,
grouping = "THM",
sampling_station = "PreGAC",
percentiles = c(0.1, 0.25, 0.5, 0.75, 0.9),
by_month = F,
params$selected_month)
group_table_historical(df = labdat,
params$selected_year,
grouping = "THM",
sampling_station = "Clearwell",
percentiles = c(0.1, 0.25, 0.5, 0.75, 0.9),
by_month = F,
params$selected_month)
\newpage
Biological
group_table_historical(df = labdat,
params$selected_year,
grouping = "biological",
sampling_station = "Raw",
percentiles = c(0.1, 0.25, 0.5, 0.75, 0.9),
by_month = F,
params$selected_month)
group_table_historical(df = labdat,
params$selected_year,
grouping = "biological",
sampling_station = "Clearwell",
percentiles = c(0.1, 0.25, 0.5, 0.75, 0.9),
by_month = F,
params$selected_month)
\newpage
Bacteriological
group_table_historical(df = labdat,
params$selected_year,
grouping = "bacteriological",
sampling_station = "Raw",
percentiles = c(0.1, 0.25, 0.5, 0.75, 0.9),
by_month = F,
params$selected_month)
group_table_historical(df = labdat,
params$selected_year,
grouping = "bacteriological",
sampling_station = "Clearwell",
percentiles = c(0.1, 0.25, 0.5, 0.75, 0.9),
by_month = F,
params$selected_month)
\listoffigures
\listoftables
biogeochem/bpwtpR documentation built on May 6, 2024, 5:17 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
knitr::opts_chunk$set(echo = FALSE, message = FALSE, warning = FALSE, fig.pos = 'H', out.extra = "") #code <- sapply(list.files(file.path(".", "code"), full.names = TRUE), source)
library(bpwtpR) library(pander) library(tidyverse) library(lubridate) library(cowplot)
## The complete labdat database file (labdat_file) from 1980 to 2019 will never be changed ## it will only be updated with the most contemporary data and saved as a new file labdat <- read_db(params$path_to_db_file) # To simplify column names while the data frame is being used. Blair wanted # columns to start with _tbl colnames(labdat) <- str_remove(colnames(labdat), "tbl_")
plot_all_parameters(labdat, params$selected_year, parameter_group = "all", station_list = "all", params$outdir)
Data Availability
Data in this report includes weekly sampling across the water treatment process at Buffalo Pound Water Treatment Plant (BPWTP) from r min(year(labdat$date_ymd)) to r max(year(labdat$date_ymd)).
\newpage
Operations
summarize_monthly_table(df = labdat, grouping = "operations", sampling_station = "Raw", params$selected_year)
group_table_historical(df = labdat, params$selected_year, grouping = "operations", sampling_station = "Raw", percentiles = c(0.1, 0.25, 0.5, 0.75, 0.9), by_month = T, params$selected_month) group_table_historical(df = labdat, params$selected_year, grouping = "operations", sampling_station = "Raw", percentiles = c(0.1, 0.25, 0.5, 0.75, 0.9), by_month = F, params$selected_month)
\newpage
Physical
raw_odour <- parm_fig(df = labdat, params$selected_year, var = "Odour", params$outdir) print(raw_odour)
\newpage
RawWater
summarize_monthly_table(df = labdat, grouping = "physical", sampling_station = "Raw", params$selected_year)
group_table_historical(df = labdat, params$selected_year, grouping = "physical", sampling_station = "Raw", percentiles = c(0.1, 0.25, 0.5, 0.75, 0.9), by_month = T, params$selected_month)
\newpage
Major Constituents
RawWater
summarize_monthly_table(df = labdat, grouping = "majorConstituents", sampling_station = "Raw", params$selected_year)
group_table_historical(df = labdat, params$selected_year, grouping = "majorConstituents", sampling_station = "Raw", percentiles = c(0.1, 0.25, 0.5, 0.75, 0.9), by_month = T, params$selected_month)
\newpage
Trace Constituents
RawWater
summarize_monthly_table(df = labdat, grouping = "traceConstituents", sampling_station = "Raw", params$selected_year)
group_table_historical(df = labdat, params$selected_year, grouping = "traceConstituents", sampling_station = "Raw", percentiles = c(0.1, 0.25, 0.5, 0.75, 0.9), by_month = T, params$selected_month)
PreFM
summarize_monthly_table(df = labdat, grouping = "traceConstituents", sampling_station = "PreFM", params$selected_year)
group_table_historical(df = labdat, params$selected_year, grouping = "traceConstituents", sampling_station = "PreFM", percentiles = c(0.1, 0.25, 0.5, 0.75, 0.9), by_month = T, params$selected_month)
\newpage
THMs
thms <- summarize_THM(labdat = labdat)
tthm_fig(df = thms, params$selected_year)
Tables are presented on the next page.
\newpage
summarize_monthly_table(df = labdat, grouping = "THM", sampling_station = "PreFM", params$selected_year)
summarize_monthly_table(df = labdat, grouping = "THM", sampling_station = "Channel", params$selected_year)
summarize_monthly_table(df = labdat, grouping = "THM", sampling_station = "PreGAC", params$selected_year)
summarize_monthly_table(df = labdat, grouping = "THM", sampling_station = "Clearwell", params$selected_year)
\newpage
Biological
RawWater
summarize_monthly_table(df = labdat, grouping = "biological", sampling_station = "Raw", params$selected_year)
group_table_historical(df = labdat, params$selected_year, grouping = "biological", sampling_station = "Raw", percentiles = c(0.1, 0.25, 0.5, 0.75, 0.9), by_month = T, params$selected_month)
\newpage
Bacteriological
RawWater
summarize_monthly_table(df = labdat, grouping = "bacteriological", sampling_station = "Raw", params$selected_year)
group_table_historical(df = labdat, params$selected_year, grouping = "bacteriological", sampling_station = "Raw", percentiles = c(0.1, 0.25, 0.5, 0.75, 0.9), by_month = T, params$selected_month)
\newpage
Historical Data Summaries
Operations
group_table_historical(df = labdat, params$selected_year, grouping = "operations", sampling_station = "Raw", percentiles = c(0.1, 0.25, 0.5, 0.75, 0.9), by_month = F, params$selected_month)
\newpage
Physical
group_table_historical(df = labdat, params$selected_year, grouping = "physical", sampling_station = "Raw", percentiles = c(0.1, 0.25, 0.5, 0.75, 0.9), by_month = F, params$selected_month)
group_table_historical(df = labdat, params$selected_year, grouping = "physical", sampling_station = "Clearwell", percentiles = c(0.1, 0.25, 0.5, 0.75, 0.9), by_month = F, params$selected_month)
\newpage
Major Constituents
group_table_historical(df = labdat, params$selected_year, grouping = "majorConstituents", sampling_station = "Raw", percentiles = c(0.1, 0.25, 0.5, 0.75, 0.9), by_month = F, params$selected_month)
group_table_historical(df = labdat, params$selected_year, grouping = "majorConstituents", sampling_station = "Clearwell", percentiles = c(0.1, 0.25, 0.5, 0.75, 0.9), by_month = F, params$selected_month)
\newpage
Trace Constituents
group_table_historical(df = labdat, params$selected_year, grouping = "traceConstituents", sampling_station = "Raw", percentiles = c(0.1, 0.25, 0.5, 0.75, 0.9), by_month = F, params$selected_month)
group_table_historical(df = labdat, params$selected_year, grouping = "traceConstituents", sampling_station = "Clearwell", percentiles = c(0.1, 0.25, 0.5, 0.75, 0.9), by_month = F, params$selected_month)
\newpage
tTHMs
group_table_historical(df = labdat, params$selected_year, grouping = "THM", sampling_station = "PreFM", percentiles = c(0.1, 0.25, 0.5, 0.75, 0.9), by_month = F, params$selected_month)
group_table_historical(df = labdat, params$selected_year, grouping = "THM", sampling_station = "Channel", percentiles = c(0.1, 0.25, 0.5, 0.75, 0.9), by_month = F, params$selected_month)
group_table_historical(df = labdat, params$selected_year, grouping = "THM", sampling_station = "PreGAC", percentiles = c(0.1, 0.25, 0.5, 0.75, 0.9), by_month = F, params$selected_month)
group_table_historical(df = labdat, params$selected_year, grouping = "THM", sampling_station = "Clearwell", percentiles = c(0.1, 0.25, 0.5, 0.75, 0.9), by_month = F, params$selected_month)
\newpage
Biological
group_table_historical(df = labdat, params$selected_year, grouping = "biological", sampling_station = "Raw", percentiles = c(0.1, 0.25, 0.5, 0.75, 0.9), by_month = F, params$selected_month)
group_table_historical(df = labdat, params$selected_year, grouping = "biological", sampling_station = "Clearwell", percentiles = c(0.1, 0.25, 0.5, 0.75, 0.9), by_month = F, params$selected_month)
\newpage
Bacteriological
group_table_historical(df = labdat, params$selected_year, grouping = "bacteriological", sampling_station = "Raw", percentiles = c(0.1, 0.25, 0.5, 0.75, 0.9), by_month = F, params$selected_month)
group_table_historical(df = labdat, params$selected_year, grouping = "bacteriological", sampling_station = "Clearwell", percentiles = c(0.1, 0.25, 0.5, 0.75, 0.9), by_month = F, params$selected_month)
\listoffigures \listoftables
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.