In joshualerickson/resourceviz: Resource EDA

knitr::opts_chunk$set(dev.args = list(png = list(type = "cairo")))
library(dplyr)
library(ggplot2)
library(tidyr)
library(kableExtra)
library(scales)
thematic::thematic_on(font = 'Montserrat')

  h12 <- get_huc12_information(...)

  hydro_huc_table(h12)

harv_stats <- get_treatment_proportion(...)
treatment_table(harv_stats)

if(exists(h12)){

  roads_table(h12)

} else {

  h12 <- get_huc12_information(...)
  roads_table(h12)

  }

discharge <- get_master_flow()

clean <- discharge_cleaning(discharge)
get_tss_boxplot(data = clean,...)

joshualerickson/resourceviz documentation built on Jan. 10, 2024, 4:57 p.m.