In massbays-tech/MassWateR: Quality Control and Analysis of Massachusetts Water Quality Data

knitr::opts_chunk$set(echo = FALSE, warning = FALSE, message = FALSE)
suppressWarnings(suppressMessages(library(ggplot2, warn.conflicts = FALSE, quietly = TRUE)))
suppressWarnings(suppressMessages(library(flextable, warn.conflicts = FALSE, quietly = TRUE)))

# user parameters
pall <- params$pall
fig_height <- params$fig_height
fig_width <- params$fig_width

addline <- function(wd = 6.5){

  tab <- data.frame(
    x = c(NA, NA)
  )

  flextable::flextable(tab) %>% 
    flextable::align(align = 'left', part = 'all') %>%
    flextable::border_remove() %>%
    flextable::width(width = wd) %>% 
    flextable::hline(i = 1, part = 'body') %>%
    flextable::padding(padding = 1.5, part = 'all') %>% 
    flextable::delete_part(part = 'header')

}

Outlier analysis

for(p in pall){
  print(p)
  cat(knitr::knit_print(addline()))
}

massbays-tech/MassWateR documentation built on April 12, 2025, 7:53 p.m.