From 616f179f6053707af6ed1ad88468b31b836e9f05 Mon Sep 17 00:00:00 2001
From: Ben Varick <ben@dendroalsia.net>
Date: Mon, 16 Oct 2023 16:53:19 -0500
Subject: [PATCH] edited figure script

---
 03_make_figures.R | 44 ++++++++++++++++++++++----------------------
 1 file changed, 22 insertions(+), 22 deletions(-)

diff --git a/03_make_figures.R b/03_make_figures.R
index 9ab5308..dac4859 100644
--- a/03_make_figures.R
+++ b/03_make_figures.R
@@ -7,7 +7,7 @@ ifelse(!dir.exists(file.path(getwd(), figure_dir)), dir.create(file.path(getwd()
 
 # set colors
 colors <- list(darkblue = "#062e57",
-         lightblue = "#b1dcf3")
+     lightblue = "#b1dcf3")
 
 # set dimensions of figures
 width <- 8.5
@@ -20,40 +20,40 @@ margin <- 0
 # plot map
 plot_map <- function () {
 plot(sf::st_geometry(extent_poly), 
- col = colors$darkblue,
- border = "black")
+col = colors$darkblue,
+border = "black")
 plot(sf::st_geometry(data$NHDWaterbody), 
- col = colors$lightblue, 
- border = NA,
- add = TRUE)
+col = colors$lightblue, 
+border = NA,
+add = TRUE)
 plot(sf::st_geometry(data$NHDArea), 
- col = colors$lightblue, 
- border = NA,
- add = TRUE)
+col = colors$lightblue, 
+border = NA,
+add = TRUE)
 plot(sf::st_geometry(data$NHDFlowline), 
- col = colors$lightblue,
- lwd = data$NHDFlowline$TotDASqKM^0.3204*0.0446,
- border = NA,
- add = TRUE)
+col = colors$lightblue,
+lwd = data$NHDFlowline$TotDASqKM^0.3204*0.0446,
+border = NA,
+add = TRUE)
 }
 
 # save figure
 tiff(filename = paste0(figure_dir,"/map.tiff"),
-     width = width,
-     height = height,
-     units = units,
-     res = res,
-     compression = "lzw")
+ width = width,
+ height = height,
+ units = units,
+ res = res,
+ compression = "lzw")
 par(mai=c(margin, margin, margin, margin))
 par(mar=c(1,1,1,1))
 plot_map()
 dev.off()
 
 png(filename = paste0(figure_dir, "/map.png"),
-    width = width,
-    height = height,
-    units = units,
-    res = res)
+width = width,
+height = height,
+units = units,
+res = res)
 par(mai=c(margin, margin, margin, margin))
 par(mar=c(1,1,1,1))
 plot_map()