Merge pull request #49 from elmeraa-usgs/oct24_flowtiles

October 2024 flowtiles
DOI-USGS · Nov 4, 2024 · c346777 · c346777
2 parents e574e52 + 5900c15
commit c346777
Show file tree

Hide file tree

Showing 7 changed files with 4 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_202409.csv", col_types = "cTnnnn")
+    read_csv("https://labs.waterdata.usgs.gov/visualizations/data/flow_conditions_202410.csv", col_types = "cTnnnn")
   ),
   tar_target(
     date_start,
@@ -270,7 +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, text_size = 19,
+                font_legend, width = 1080, height = 1080, text_size = 20,
                 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,7 @@ 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
-#' @param text_size size of text 
+#' @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)
@@ -189,8 +189,7 @@ intro_image <- function(plot_nat_clean, date_start, font_legend, width, height,
                size = text_size,
                hjust = 0, vjust = 0.5,
                fontfamily = font_legend,
-               color = "#222222",
-               lineheight = 1.2)
+               color = "#222222")
 
   ggsave(file_png, width = width, height = height, dpi = 300, units = c("px"))