From 521c0c6b833309dead01aaeba12a22f7c165abde Mon Sep 17 00:00:00 2001
From: milesmedina <44986194+milesmedina@users.noreply.github.com>
Date: Mon, 20 May 2024 17:37:38 -0400
Subject: [PATCH] Update chla_ts.R

---
 R/chla_ts.R | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/R/chla_ts.R b/R/chla_ts.R
index 11f1498..6b23092 100644
--- a/R/chla_ts.R
+++ b/R/chla_ts.R
@@ -4,9 +4,10 @@ load(file = here::here('data-clean/epcwq_clean.RData'))
 
 subsegs <- c("NW","NE","CW","CE","SW","SE")
 
-par(mfrow=c(3,2), mar=c(4,4,3,1))
 
 # Plot data and annual averages over time at each OTB subsegment
+png("../figs/chl_ts.png", res = 400, units = 'in', width = 10, height = 8 )
+par(mfrow=c(3,2), mar=c(4,4,3,1))
 for( i in 1:length(subsegs) ){
   
   this.dat <- epcwq3[ which( epcwq3$subseg==subsegs[i] &
@@ -48,9 +49,12 @@ for( i in 1:length(subsegs) ){
           col = rgb(0.8,0.1,0,1), bg = rgb(1,1,1,1) )
   
 }
+dev.off()
 
 
 # Plot data by month-of-year with monthly averages at each OTB subsegment
+png("../figs/chl_mo.png", res = 400, units = 'in', width = 10, height = 8 )
+par(mfrow=c(3,2), mar=c(4,4,3,1))
 for( i in 1:length(subsegs) ){
   
   this.dat <- epcwq3[ which( epcwq3$subseg==subsegs[i] &
@@ -104,6 +108,7 @@ for( i in 1:length(subsegs) ){
           col = rgb(0.8,0.1,0,1), bg = rgb(1,1,1,1) )
 
 } # // end i loop
+dev.off()