Merge pull request #48 from elmeraa-usgs/sep24_flowtiles

September 2024 flowtiles
DOI-USGS · Oct 1, 2024 · e574e52 · e574e52
2 parents 3f115f1 + 470750f
commit e574e52
Show file tree

Hide file tree

Showing 7 changed files with 8 additions and 5 deletions.
diff --git a/_targets.R b/_targets.R
@@ -33,7 +33,7 @@ list(
   # Read in data from gage-flow-conditions pipeline output
   tar_target(
     dv,
-    read_csv("https://labs.waterdata.usgs.gov/visualizations/data/flow_conditions_202408.csv", col_types = "cTnnnn")
+    read_csv("https://labs.waterdata.usgs.gov/visualizations/data/flow_conditions_202409.csv", col_types = "cTnnnn")
   ),
   tar_target(
     date_start,
@@ -270,6 +270,7 @@ list(
   tar_target(
     intro_question_ig_png,
     intro_image(plot_nat_clean = explainer_intro_background, date_start, 
-                font_legend, width = 1080, height = 1080, file_png = "out/intro_question_ig.png")
+                font_legend, width = 1080, height = 1080, text_size = 19,
+                file_png = "out/intro_question_ig.png")
   )
 )
diff --git a/out/explainer_flow_national_ig.png b/out/explainer_flow_national_ig.png
diff --git a/out/flow_cartogram.png b/out/flow_cartogram.png
diff --git a/out/flow_cartogram_ig.png b/out/flow_cartogram_ig.png
diff --git a/out/flow_national_ig.png b/out/flow_national_ig.png
diff --git a/out/intro_question_ig.png b/out/intro_question_ig.png
diff --git a/src/explainer_prep.R b/src/explainer_prep.R
@@ -160,7 +160,8 @@ intro_background <- function(national_data, percentile_bin, pal){
 #' @param width width of final png
 #' @param height height of final png
 #' @param file_png file path for final png
-intro_image <- function(plot_nat_clean, date_start, font_legend, width, height, file_png){
+#' @param text_size size of text 
+intro_image <- function(plot_nat_clean, date_start, font_legend, width, height, file_png, text_size){
 
   plot_month <- lubridate::month(date_start, label = TRUE, abbr = FALSE)
   plot_margin <- 0.025
@@ -185,10 +186,11 @@ intro_image <- function(plot_nat_clean, date_start, font_legend, width, height,
               height = 1.18, width = 1.18) +
     draw_label(sprintf("A look at %s's\nstreamflow across\nthe U.S.", plot_month),
                x = 0.05, y = 0.5,
-               size = 22,
+               size = text_size,
                hjust = 0, vjust = 0.5,
                fontfamily = font_legend,
-               color = "#222222")
+               color = "#222222",
+               lineheight = 1.2)
 
   ggsave(file_png, width = width, height = height, dpi = 300, units = c("px"))