From 291e46ef73a56b75c64221b4acb00a65b7887d9f Mon Sep 17 00:00:00 2001
From: gnoblet <gnoblet@zaclys.net>
Date: Wed, 21 Dec 2022 11:35:28 -0500
Subject: [PATCH] Add axis text and title size

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

diff --git a/R/theme_reach.R b/R/theme_reach.R
index 4dea754..25d8825 100644
--- a/R/theme_reach.R
+++ b/R/theme_reach.R
@@ -46,6 +46,8 @@ theme_reach <- function(
     legend_reverse = TRUE,
     axis_x = TRUE,
     axis_y = TRUE,
+    axis_text_size = 10,
+    axis_title_size = 11,
     grid_x = FALSE,
     grid_y = FALSE,
     grid_color = cols_reach("main_lt_grey"),
@@ -89,7 +91,10 @@ theme_reach <- function(
     # Remove background for legend key
     legend.key = ggplot2::element_blank(),
     plot.title.position = "plot",
-    plot.caption.position =  "plot"
+    plot.caption.position =  "plot",
+    # Text sizes
+    axis.text = ggplot2::element_text(size = axis_text_size),
+    axis.title = ggplot2::element_text(size = axis_title_size)
   )
 
   # Axis lines ?