From 0fb2171111850a9113cede77231482716c2cd2ab Mon Sep 17 00:00:00 2001
From: Jason Brown <brown.jason@epa.gov>
Date: Wed, 9 Oct 2024 08:50:41 -0400
Subject: [PATCH] added greek encoding to pdf options and revert on exit so
 tests pass on debian environment

---
 NAMESPACE    | 1 +
 R/tcplPlot.R | 6 ++++++
 2 files changed, 7 insertions(+)

diff --git a/NAMESPACE b/NAMESPACE
index f84bf02..99c13b9 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -118,6 +118,7 @@ importFrom(grDevices,col2rgb)
 importFrom(grDevices,colorRampPalette)
 importFrom(grDevices,graphics.off)
 importFrom(grDevices,pdf)
+importFrom(grDevices,pdf.options)
 importFrom(grDevices,rgb)
 importFrom(graphics,abline)
 importFrom(graphics,arrows)
diff --git a/R/tcplPlot.R b/R/tcplPlot.R
index c1091cb..e1bfea9 100644
--- a/R/tcplPlot.R
+++ b/R/tcplPlot.R
@@ -51,6 +51,7 @@
 #' @importFrom gridExtra marrangeGrob
 #' @importFrom ggplot2 ggsave
 #' @importFrom dplyr %>% all_of pull
+#' @importFrom grDevices pdf.options
 #' @export
 #'
 #' @examples
@@ -61,6 +62,11 @@ tcplPlot <- function(dat = NULL, type = "mc", fld = "m4id", val = NULL, compare.
   #variable binding
   conc_unit <- bmd <- resp <- compare.dat <- lvl <- compare <- NULL
   
+  #set pdf options
+  enc <- pdf.options()$encoding
+  pdf.options(encoding="CP1253.enc")
+  on.exit(pdf.options(encoding = enc))
+  
   # Validate vars based on some assumed properties
   validated_vars <- tcplPlotValidate(type = type,flags = flags,output = output,multi = multi,verbose = verbose)
   # take list of validated vars and add them to the function's environment